WebSVN – pentevo – Diff – /rom/page5/source/selector.a80

-; LAST UPDATE: 09.11.2022 savelij
+; LAST UPDATE: 16.02.2025 savelij
-ITSELECTOR      LD HL,FLAGS
+ITSELECTOR      LD HL,SYSFLAGS
-                RES B_MOUSE_PRESENT,(HL)        ;ПРИНУДИТЕЛЬНОЕ ОТКЛЮЧЕНИЕ МЫШИ ДЛЯ ТЕКСТМОДА
+                RES SYSFLAGS.B_MOUSE_PRESENT,(HL); принудительное отключение мыши для текстмода
-                SET B_VIDEO_MODE,(HL)           ;МЕНЮ ТЕКСТОВОГО ВИДЕОРЕЖИМА
+                SET SYSFLAGS.B_VIDEO_MODE,(HL)  ; меню текстового видеорежима
                 LD HL,KEYBOARDS
-                LD (ADR_INT),HL                 ;ПО ПРЕРЫВАНИЯМ БУДЕТ ОПРОС КЛАВИАТУРЫ
+                LD (ADR_INT),HL                 ; по прерываниям будет опрос клавиатуры
                 LD (OLD_STACK),SP
                 JR SELECTOR
-ISELECTOR       LD HL,FLAGS
+ISELECTOR       LD HL,SYSFLAGS
-                RES B_VIDEO_MODE,(HL)
+                RES SYSFLAGS.B_VIDEO_MODE,(HL)
                 CALL DETECTMOUSE
                 LD (OLD_STACK),SP
 SELECTOR        EI
-                LD A,(FLAGS)
+                LD A,(SYSFLAGS)
-                AND M_MOUSE_PRESENT                     ;ПРОВЕРКА НАЛИЧИЯ МЫШИ
+                AND SYSFLAGS.M_MOUSE_PRESENT    ; проверка наличия мыши
                 JR Z,_RULNMO
-;FIX КОЛЕСО МЫШИ
+; FIX колесо мыши
 MKEYPR          EI
-                LD A,0XFA
+                LD A,HIGH (MOUSE_KEYS)
-                IN A,(0XDF)
+                IN A,(LOW (MOUSE_KEYS))
                 CPL
-                AND 7
+                AND %00000111
                 JR NZ,MKEYPR
-_RULNMO         CALL SAVE2X2                    ;ЕСЛИ МЕНЮ НАПЕЧАТАЛИ ПОВЕРХ СТРЕЛКИ
+_RULNMO         CALL SAVE2X2                    ; если меню напечатали поверх стрелки
-                CALL SET_ADR_ATR                ;УСТАНОВКА НОВОГО АДРЕСА ДЛЯ ЦВЕТНОЙ ПОЛОСКИ
+                CALL SET_ADR_ATR                ; установка нового адреса для цветной полоски
                 LD HL,FLAGS_KEY
-                RES 5,(HL)                      ;НА КЛАВИАТУРЕ НИЧЕГО НЕ НАЖАТО
+                RES 5,(HL)                      ; на клавиатуре ничего не нажато
                 JR MAINLOP
-;НАЖАТА СТРЕЛКА ВВЕРХ
+; нажата стрелка вверх
-UP              CALL CURSOR_UP                  ;СМЕНИЛИ ТЕКУЩИЙ ПУНКТ НА -1
+UP              CALL CURSOR_UP                  ; сменили текущий пункт на -1
                 JR SET_POS1
-;НАЖАТА СТРЕЛКА ВПРАВО
+; нажата стрелка вправо
-RIGHT           BIT 1,(IX+6)                    ;ПРОВЕРКА ПРОСТО МЕНЮ ИЛИ ФАЙЛОВОЕ
+RIGHT           BIT 1,(IX+_FLAGS)               ; проверка просто меню или файловое
-                PUSH AF                         ;СОХРАНИЛИ РЕЗУЛЬТАТ ПРОВЕРКИ
+                PUSH AF                         ; сохранили результат проверки
-                CALL NZ,PAGEDN                  ;ЕСЛИ ФАЙЛОВОЕ, ТО ЛИСТАНИЕ СТРАНИЧНОЕ
+                CALL NZ,PAGEDN                  ; если файловое, то листание страничное
-                POP AF                          ;ВОССТАНОВИЛИ РЕЗУЛЬТАТ ПРОВЕРКИ
+                POP AF                          ; восстановили результат проверки
-                JR NZ,SET_POS1                  ;ЕСЛИ ФАЙЛОВОЕ ПРОДОЛЖАЕМ
+                JR NZ,SET_POS1                  ; если файловое продолжаем
-                LD A,(IX+0X0A)
+                LD A,(IX+_NUM_KOL_L)
                 AND A
                 JR Z,SET_POS
-                DEC A                           ;ИНАЧЕ ПЕРЕХОД КУРСОРА НА ПОСЛЕДНИЙ ПУНКТ
+                DEC A                           ; иначе переход курсора на последний пункт
-                JR SET_POS                      ;ИЗМЕНЯЕМ ПОЛОЖЕНИЕ КУРСОРА И ПРОДОЛЖАЕМ
+                JR SET_POS                      ; изменяем положение курсора и продолжаем
-;НАЖАТА СТРЕЛКА ВНИЗ
+; нажата стрелка вниз
-DOWN            CALL CURSOR_DOWN                ;СМЕНИЛИ ТЕКУЩИЙ ПУНКТ НА +1
+DOWN            CALL CURSOR_DOWN                ; сменили текущий пункт на +1
                 JR SET_POS1
-;НАЖАТА СТРЕЛКА ВЛЕВО
+; нажата стрелка влево
-LEFT            BIT 1,(IX+6)                    ;ПРОВЕРКА ПРОСТО МЕНЮ ИЛИ ФАЙЛОВОЕ
+LEFT            BIT 1,(IX+_FLAGS)               ; проверка просто меню или файловое
-                PUSH AF                         ;СОХРАНИЛИ РЕЗУЛЬТАТ ПРОВЕРКИ
+                PUSH AF                         ; сохранили результат проверки
-                CALL NZ,PAGEUP                  ;ЕСЛИ ФАЙЛОВОЕ, ТО ЛИСТАНИЕ СТРАНИЧНОЕ
+                CALL NZ,PAGEUP                  ; если файловое, то листание страничное
-                POP AF                          ;ВОССТАНОВИЛИ РЕЗУЛЬТАТ ПРОВЕРКИ
+                POP AF                          ; восстановили результат проверки
-                JR NZ,SET_POS1                  ;ЕСЛИ ФАЙЛОВОЕ ПРОДОЛЖАЕМ
+                JR NZ,SET_POS1                  ; если файловое продолжаем
-                XOR A                           ;ИНАЧЕ ПЕРЕХОД КУРСОРА НА ПЕРВЫЙ ПУНКТ
+                XOR A                           ; иначе переход курсора на первый пункт
-SET_POS         BIT 7,(IX+7)
+SET_POS         BIT B_ADR_PUNKT,(IX+_NUM_PKT)
                 JR Z,SET_POS3
-                LD L,(IX+8)
+                LD L,(IX+_TEK_PKT_L)
-                LD H,(IX+9)
+                LD H,(IX+_TEK_PKT_H)
                 LD (HL),A
                 INC HL
                 LD (HL),A
                 INC HL
                 LD (HL),0
                 JR SET_POS1
-SET_POS3        LD (IX+7),A                     ;ИЗМЕНИЛИ ПОЗИЦИЮ КУРСОРА
+SET_POS3        LD (IX+_NUM_PKT),A              ; изменили позицию курсора
-                LD (IX+8),A
+                LD (IX+_TEK_PKT_L),A
-                LD (IX+9),0                     ;ИЗМЕНИЛИ НОМЕР ВЫБРАННОГО ПУНКТА
+                LD (IX+_TEK_PKT_H),0            ; изменили номер выбранного пункта
-SET_POS1        CALL COLOR_CURSOR               ;ПЕРЕРИСОВКА ЦВЕТНОЙ ПОЛОСКИ МЕНЮ
+SET_POS1        CALL COLOR_CURSOR               ; перерисовка цветной полоски меню
 MAINLOP         LD HL,FLAGS_KEY
-                RES 5,(HL)                      ;СБРОС НАЖАТЫХ КНОПОК
+                RES 5,(HL)                      ; сброс нажатых кнопок
-                LD A,(FLAGS)
+                LD A,(SYSFLAGS)
-                AND M_MOUSE_PRESENT             ;ПРОВЕРКА НАЛИЧИЯ МЫШИ
+                AND SYSFLAGS.M_MOUSE_PRESENT    ; проверка наличия мыши
                 JP Z,MAINNMO
-                LD HL,(ARXY)                    ;СТАРАЯ КООРДИНАТА МЫШИ
+                LD HL,(ARXY)                    ; старая координата мыши
                 PUSH HL
-                CALL MOUSE                      ;ОПРОС ПОРТОВ МЫШИ
+                CALL MOUSE                      ; опрос портов мыши
                 POP BC
                 AND A
                 SBC HL,BC
-                JR Z,NO_SELECT                  ;НЕ БЫЛО ДВИЖЕНИЯ МЫШИ
+                JR Z,NO_SELECT                  ; не было движения мыши
-                CALL MOUOPT                     ;ПРОВЕРКА НАВЕДЕНИЯ МЫШИ НА ЗАДАННОЕ ОКНО
+                CALL MOUOPT                     ; проверка наведения мыши на заданное окно
-NO_SELECT       LD BC,0XFADF
+NO_SELECT       LD BC,MOUSE_KEYS
-                IN A,(C)                        ;ОПРОС НАЖАТИЯ КНОПОК МЫШИ
+                IN A,(C)                        ; опрос нажатия кнопок мыши
                 AND 7
                 CP 6
-                JR Z,PRESS_MOUSE                ;ЕСЛИ НАЖАТА ЛЕВАЯ КНОПКА МЫШИ
+                JR Z,PRESS_MOUSE                ; если нажата левая кнопка мыши
                 CP 5
-                JP Z,RESTART                    ;ЕСЛИ НАЖАТА ПРАВАЯ КНОПКА МЫШИ
+                JP Z,RESTART                    ; если нажата правая кнопка мыши
-                CALL PRINTTIME                  ;ОБНОВИЛИ ВРЕМЯ ЕСЛИ ИЗМЕНИЛОСЬ
+                CALL PRINTTIME                  ; обновили время если изменилось
                 EI
-                CALL REST2X2                    ;ВОССТАНОВИЛИ КУСОК ЭКРАНА ПОД МЫШЬЮ
+                CALL REST2X2                    ; восстановили кусок экрана под мышью
-                CALL DRAW_MOUSE                 ;НАРИСОВАЛИ КУРСОР МЫШИ
+                CALL DRAW_MOUSE                 ; нарисовали курсор мыши
-                JR MAINQMO                      ;ПРОДОЛЖЕНИЕ ОПРОСА
+                JR MAINQMO                      ; продолжение опроса
 PRESS_MOUSE     CALL OPMSPL
                 AND A
                 JR Z,CP_MOUSE4
                 LD (LAST_K),A
                 CALL TIMELP
                 JR SELECT_KEY
-CP_MOUSE4       CALL MOUOPT                     ;ПРОВЕРКА ПОПАДАНИЯ МЫШИ В ПРЕДЕЛЫ ТЕКУЩЕГО ОКНА
+CP_MOUSE4       CALL MOUOPT                     ; проверка попадания мыши в пределы текущего окна
-                JR C,MAINNMO                    ;НЕ ПОПАЛИ И ЕДЕМ ДАЛЕЕ
+                JR C,MAINNMO                    ; не попали и едем далее
-                LD E,(IX+7)                     ;ВЗЯЛИ НОМЕР ПУНКТА КУДА ПОПАЛИ МЫШЬЮ
+                LD E,(IX+_NUM_PKT)              ; взяли номер пункта куда попали мышью
-                BIT 7,E
+                BIT B_ADR_PUNKT,E
                 JR Z,CP_MOUSE5
-                LD L,(IX+8)
+                LD L,(IX+_TEK_PKT_L)
-                LD H,(IX+9)
+                LD H,(IX+_TEK_PKT_H)
                 LD E,(HL)
 CP_MOUSE5       LD D,0
-                LD HL,(PRESSEDKEY)              ;АДРЕС СПИСКА ХОТКЕЕВ ТЕКУЩЕГО ОКНА
+                LD HL,(PRESSEDKEY)              ; адрес списка хоткеев текущего окна
-                ADD HL,DE                       ;АДРЕС ХОТКЕЯ ВЫБРАННОГО ПУНКТА
+                ADD HL,DE                       ; адрес хоткея выбранного пункта
                 LD DE,LAST_K
-                LDI                             ;ИМИТАЦИЯ НАЖАТИЯ ЗАДАННОЙ КНОПКИ
+                LDI                             ; имитация нажатия заданной кнопки
                 JR ENTER
-MAINNMO         CALL PRINTTIME                  ;ОБНОВЛЕНИЕ ВРЕМЕНИ, ЕСЛИ В ОНО ОБНОВИЛОСЬ
+MAINNMO         CALL PRINTTIME                  ; обновление времени, если в оно обновилось
                 EI
                 HALT
 MAINQMO         LD A,(FLAGS_KEY)
-                BIT 5,A                         ;ПРОВЕРКА НАЖАТИЯ КНОПОК КЛАВИАТУРЫ
+                BIT 5,A                         ; проверка нажатия кнопок клавиатуры
-                JP Z,MAINLOP                    ;ПРОДОЛЖАЕМ ОПРОС УПРАВЛЕНИЯ
+                JP Z,MAINLOP                    ; продолжаем опрос управления
-                ROMCALL BREAK_KEY,ROM_RST82     ;ПРОВЕРКА НА BREAK
+        ROMCALL BREAK_KEY,ROM_RST82             ; проверка на BREAK
-                JR C,SELECT_KEY                 ;ЕСЛИ BREAK НЕ НАЖАТ ПРОДОЛЖАЕМ
+                JR C,SELECT_KEY                 ; если BREAK не нажат продолжаем
 RESTART         DI
+                CALL RESTORE_FATVARS            ; восстановление FAT переменных
-                CALL TRESTORE_CLINE
+                CALL TRESTORE_CLINE             ; восстановление цвета в меню
                 LD A,1
                 RET
 SELECT_KEY      DI
                 LD HL,SET_POS1
                 PUSH HL
                 LD HL,LAST_K
-                LD A,(HL)                       ;ВЗЯЛИ НАЖАТУЮ КЛАВИШУ
+                LD A,(HL)                       ; взяли нажатую клавишу
                 LD B,0
                 LD HL,MAIN_KEYS
-                LD C,(HL)                       ;КОЛИЧЕСТВО ДОСТУПНЫХ КНОПОК
+                LD C,(HL)                       ; количество доступных кнопок
                 LD D,C
                 INC HL
                 CPIR
-                JR NZ,NOMAINKEYS                ;НИЧЕГО НЕ НАШЛИ, ДАЛЕЕ СМОТРИМ КНОПКИ ТЕКУЩЕГО ОКНА
+                JR NZ,NOMAINKEYS                ; ничего не нашли, далее смотрим кнопки текущего окна
-                                                ;НАЖАТО ЧТО-ТО ИЗ ГЛАВНЫХ КНОПОК, ДОСТУПНЫХ ВСЕГДА
+                                                ; нажато что-то из главных кнопок, доступных всегда
                 LD HL,ADREXEKEYS
-                LD A,D                          ;КОЛИЧЕСТВО КНОПОК В ТАБЛИЦЕ -1
+                LD A,D                          ; количество кнопок в таблице -1
-                SUB C                           ;ПОЛУЧИЛИ ВЫБРАННЫЙ НОМЕР
+                SUB C                           ; получили выбранный номер
                 DEC A
                 ADD A,A
                 ADD A,L
                 LD L,A
                 ADC A,H
                 INC HL
                 LD H,(HL)
                 LD L,A
                 JP (HL)
-;ПРОВЕРКА ХОТКЕЕВ В ТЕКУЩЕМ ОКНЕ
+; проверка хоткеев в текущем окне
-NOMAINKEYS      LD L,(IX+0X12)
+NOMAINKEYS      LD L,(IX+_ADR_HOTKEY_L)
-                LD H,(IX+0X13)                  ;АДРЕС СПИСКА НАЖАТЫХ КНОПОК ТЕКУЩЕГО ОКНА
+                LD H,(IX+_ADR_HOTKEY_H)         ; адрес списка нажатых кнопок текущего окна
                 LD C,A
                 LD A,H
                 OR L
-                JP Z,MAINLOP                    ;ЕСЛИ СПИСКА НЕТ, ПРОДОЛЖАЕМ ОПРОС
+                JP Z,MAINLOP                    ; если списка нет, продолжаем опрос
                 LD A,C
-                LD C,(IX+2)
+                LD C,(IX+_V_SIZE)
                 LD E,(HL)
                 INC HL
-                DEC C                           ;КОЛИЧЕСТВО КНОПОК
+                DEC C                           ; количество кнопок
-                DEC C                           ;ВЫСОТА ОКНА -2
+                DEC C                           ; высота окна -2
                 LD D,C
                 LD B,0
-                CPIR                            ;СКАНИРОВАНИЕ СПИСКА ЗАДАННЫХ КЛАВИШ
+                CPIR                            ; сканирование списка заданных клавиш
                 JR NZ,OSTAT_KEYS
-                LD A,D                          ;ВЫСОТА ОКНА
+                LD A,D                          ; высота окна
                 SUB C
-                DEC A                           ;ПОЛУЧИЛИ НОМЕР НАЖАТОЙ КНОПКИ И -1
+                DEC A                           ; получили номер нажатой кнопки и -1
-                BIT 7,(IX+7)
+                BIT B_ADR_PUNKT,(IX+_NUM_PKT)
                 JR Z,ENTER1
-                LD L,(IX+8)
+                LD L,(IX+_TEK_PKT_L)
-                LD H,(IX+9)
+                LD H,(IX+_TEK_PKT_H)
                 LD (HL),A
                 INC HL
                 LD (HL),A
                 JR ENTER
-ENTER1          LD (IX+7),A                     ;НОМЕР ПУНКТА В ОКНЕ
+ENTER1          LD (IX+_NUM_PKT),A              ; номер пункта в окне
-                LD (IX+8),A                     ;НОМЕР НАЖАТОЙ КЛАВИШИ ПО УКАЗАННОМУ СПИСКУ
+                LD (IX+_TEK_PKT_L),A            ; номер нажатой клавиши по указанному списку
-ENTER           LD A,(FLAGS)
+ENTER           LD A,(SYSFLAGS)
-                AND M_MOUSE_PRESENT
+                AND SYSFLAGS.M_MOUSE_PRESENT
-                CALL NZ,TIMELP                  ;ОБНОВЛЕНИЕ ВРЕМЕНИ ЕСЛИ ОНО ИЗМЕНИЛОСЬ
+                CALL NZ,TIMELP                  ; обновление времени если оно изменилось
-                CALL REST2X2                    ;СТЕРЛИ КУРСОР МЫШИ
+                CALL REST2X2                    ; стерли курсор мыши
-                LD A,(IX+7)                     ;НОМЕР ИЗ СПИСКА КОТОРЫЙ ВЫЗВАТЬ
+                LD A,(IX+_NUM_PKT)              ; номер из списка который вызвать
-                BIT 7,A
+                BIT B_ADR_PUNKT,A
                 JR Z,JUMP2HL1
-                LD L,(IX+8)
+                LD L,(IX+_TEK_PKT_L)
-                LD H,(IX+9)
+                LD H,(IX+_TEK_PKT_H)
                 LD A,(HL)
-JUMP2HL1        LD L,(IX+0X0E)
+JUMP2HL1        LD L,(IX+_ADR_PRG_L)
-                LD H,(IX+0X0F)                  ;ВЗЯЛИ СПИСОК АДРЕСОВ 1 ИЗ КОТОРЫХ БУДЕМ ВЫЗЫВАТЬ
+                LD H,(IX+_ADR_PRG_H)            ; взяли список адресов 1 из которых будем вызывать
 JUMP2HL         ADD A,A
                 ADD A,L
                 LD L,A
                 ADC A,H
                 SUB L
                 SUB C
                 DEC A
                 JR JUMP2HL1
 TIMELP          CALL PRINTTIME
-                LD A,0XFA
+                LD A,HIGH (MOUSE_KEYS)
-                IN A,(0XDF)                     ;КНОПКИ МЫШИ
+                IN A,(LOW (MOUSE_KEYS))         ; кнопки мыши
                 CPL
                 AND 7
-                JR NZ,TIMELP                    ;ПОКА НЕ ОТПУСТЯТ
+                JR NZ,TIMELP                    ; пока не отпустят
                 RET
-CURSOR_UP       LD C,(IX+8)
+CURSOR_UP       LD C,(IX+_TEK_PKT_L)
-                LD B,(IX+9)
+                LD B,(IX+_TEK_PKT_H)
-                BIT 7,(IX+7)
+                BIT B_ADR_PUNKT,(IX+_NUM_PKT)
                 JR Z,CURSOR_UP3
-                LD L,(IX+8)
+                LD L,(IX+_TEK_PKT_L)
-                LD H,(IX+9)
+                LD H,(IX+_TEK_PKT_H)
                 INC HL
                 LD C,(HL)
                 INC HL
                 LD B,(HL)
 CURSOR_UP3      LD A,B
                 OR C
                 RET Z
                 DEC BC
-                BIT 7,(IX+7)
+                BIT B_ADR_PUNKT,(IX+_NUM_PKT)
                 JR Z,CURSOR_UP2
                 LD (HL),B
                 DEC HL
                 LD (HL),C
                 DEC HL
                 AND A
                 JR Z,CURSOR_UP1
                 DEC (HL)
                 RET
-CURSOR_UP2      LD (IX+8),C
+CURSOR_UP2      LD (IX+_TEK_PKT_L),C
-                LD (IX+9),B
+                LD (IX+_TEK_PKT_H),B
-                LD A,(IX+7)
+                LD A,(IX+_NUM_PKT)
                 AND A
                 JR Z,CURSOR_UP1
-                DEC (IX+7)
+                DEC (IX+_NUM_PKT)
                 RET
 CURSOR_UP1      CALL REST2X2
                 CALL RESTORE_CLINE
                 CALL SCRDN
-                LD E,(IX+1)
+                LD E,(IX+_Y_COORD)
                 INC E
-DOWN1           LD D,(IX+0)
+DOWN1           LD D,(IX+_X_COORD)
                 INC D
                 INC D
-                EVOPORT WIN_P3,RAM_TEMP2
+        EVOPORT WIN_P3,RAM_SORTFILES
-                LD L,(IX+8)
+                LD L,(IX+_TEK_PKT_L)
-                LD H,(IX+9)
+                LD H,(IX+_TEK_PKT_H)
-                BIT 7,(IX+7)
+                BIT B_ADR_PUNKT,(IX+_NUM_PKT)
                 JR Z,DOWN3
                 DEC D
                 INC HL
                 LD A,(HL)
                 INC HL
-                ROMCALL POSTF06,ROM_RST83
+        ROMCALL POSTF06,ROM_RST83
-                ROMCALL READ_DIR,ROM_RST83
+        ROMCALL READ_DIR,ROM_RST83
                 LD DE,FILES_EXT
-                ROMCALL CP_EXT,ROM_RST83
+        ROMCALL CP_EXT,ROM_RST83
                 EX AF,AF'
-                LD BC,0X0B
+                LD BC,_DIR_Attr
                 ADD HL,BC
                 LD A,(HL)
                 SBC HL,BC
-                AND 0X10
+                AND M_DIR_Directory
-                LD A,BLUE<<3+WHITE+BR_INK
-                LD (OUT_NAME_FILE+1),A          ;ЕСЛИ ДИРЕКТОРИЯ ТО ЦВЕТ БЕЛЫЙ
+                LD A,BLUE << 3 + WHITE + BR_INK ; если директория то цвет белый
                 JR NZ,DOWN7
+; раскраска по заданной таблице
                 EX AF,AF'
-                LD L,A
-                INC A
-                JR Z,DOWN6
-                LD A,L
-DOWN6           LD HL,COLOR_EXT
+                LD HL,COLOR_EXT
                 ADD A,L
                 LD L,A
                 ADC A,H
                 SUB L
+                LD H,A
                 LD A,(HL)
-                ADD A,BLUE<<3+BR_INK
+                ADD A,BLUE << 3 + BR_INK
-                LD (OUT_NAME_FILE+1),A
+DOWN7           LD (OUT_NAME_FILE+1),A          ; установка цвета раскраски
-DOWN7           LD HL,BUF_256
+                LD HL,BUF_MOVE256
-                ROMCALL GET_LONGNAME,ROM_RST83
+        ROMCALL GET_LONGNAME,ROM_RST83
                 POP DE
                 CALL FILENAME8_3
                 JP SET_ADR_ATR
-CURSOR_DOWN     LD L,(IX+0X0A)
+CURSOR_DOWN     LD L,(IX+_NUM_KOL_L)
-                LD H,(IX+0X0B)                  ;КОЛИЧЕСТВО ПУНКТОВ
+                LD H,(IX+_NUM_KOL_H)            ; количество пунктов
-                BIT 6,(IX+7)
+                BIT B_ADR_NUMS_PUNKT,(IX+_NUM_PKT)
                 JR Z,CURSOR_DOWN6
-                LD L,(IX+8)                     ;ПОЛУЧЕНИЕ КОЛИЧЕСТВА ПУНКТОВ
+                LD L,(IX+_TEK_PKT_L)            ; получение количества пунктов
-                LD H,(IX+9)                     ;ИЗ УКАЗАННОГО АДРЕСА
+                LD H,(IX+_TEK_PKT_H)            ; из указанного адреса
                 INC HL
                 INC HL
                 INC HL
                 LD A,(HL)
                 INC HL
                 LD H,(HL)
-                LD L,A                          ;КОЛИЧЕСТВО ПУНКТОВ В ЭТОМ МЕНЮ
+                LD L,A                          ; количество пунктов в этом меню
 CURSOR_DOWN6    LD A,H
                 OR L
                 RET Z
-                BIT 7,(IX+7)
+                BIT B_ADR_PUNKT,(IX+_NUM_PKT)
                 JR Z,CURSOR_DOWN2
-                LD E,(IX+8)
+                LD E,(IX+_TEK_PKT_L)
-                LD D,(IX+9)                     ;ТЕКУЩИЙ НОМЕР
+                LD D,(IX+_TEK_PKT_H)            ; текущий номер
                 EX DE,HL
                 INC HL
                 LD C,(HL)
                 INC HL
                 LD B,(HL)
                 EX DE,HL
                 JR CURSOR_DOWN3
-CURSOR_DOWN2    LD C,(IX+8)
+CURSOR_DOWN2    LD C,(IX+_TEK_PKT_L)
-                LD B,(IX+9)
+                LD B,(IX+_TEK_PKT_H)
 CURSOR_DOWN3    SCF
                 SBC HL,BC
                 RET Z
                 INC BC
-                BIT 7,(IX+7)
+                BIT B_ADR_PUNKT,(IX+_NUM_PKT)
                 JR Z,CURSOR_DOWN4
                 EX DE,HL
                 LD (HL),B
                 DEC HL
                 LD (HL),C
                 DEC HL
-                LD A,(IX+2)
+                LD A,(IX+_V_SIZE)
                 SUB 3
                 CP (HL)
                 JR Z,CURSOR_DOWN1
                 INC (HL)
                 RET
-CURSOR_DOWN4    LD (IX+8),C
+CURSOR_DOWN4    LD (IX+_TEK_PKT_L),C
-                LD (IX+9),B
+                LD (IX+_TEK_PKT_H),B
-                LD A,(IX+2)
+                LD A,(IX+_V_SIZE)
                 SUB 3
-                CP (IX+7)
+                CP (IX+_NUM_PKT)
                 JR Z,CURSOR_DOWN1
-                INC (IX+7)
+                INC (IX+_NUM_PKT)
                 RET
 CURSOR_DOWN1    CALL REST2X2
                 CALL RESTORE_CLINE
                 CALL SCRUP
-                LD A,(IX+1)
+                LD A,(IX+_Y_COORD)
-                ADD A,(IX+2)
+                ADD A,(IX+_V_SIZE)
                 SUB 2
                 LD E,A
                 JP DOWN1
-GET_XY          LD L,(IX+8)
+GET_XY          LD L,(IX+_TEK_PKT_L)
-                LD H,(IX+9)             ;ТЕКУЩИЙ НОМЕР
+                LD H,(IX+_TEK_PKT_H)            ; текущий номер
-                BIT 7,(IX+7)
+                BIT B_ADR_PUNKT,(IX+_NUM_PKT)
                 JR Z,GETXY1
-;ПОЛУЧЕНИЕ НОМЕРА ТЕКУЩЕГО ПУНКТА ИЗ УКАЗАТЕЛЯ
+; получение номера текущего пункта из указателя
                 INC HL
                 LD E,(HL)
                 INC HL
-                LD D,(HL)               ;ТЕКУЩИЙ НОМЕР ИЗ УКАЗАННОГО АДРЕСА
+                LD D,(HL)               ; текущий номер из указанного адреса
                 EX DE,HL
-                BIT 6,(IX+7)
+                BIT B_ADR_NUMS_PUNKT,(IX+_NUM_PKT)
                 JR Z,GETXY1
-;ПОЛУЧЕНИЕ КОЛИЧЕСТВА ПУНКТОВ ИЗ УККАЗАТЕЛЯ
+; получение количества пунктов из укказателя
                 EX DE,HL
                 INC HL
                 LD A,(HL)
                 INC HL
                 LD H,(HL)
-                LD L,A                  ;КОЛИЧЕСТВО ПУНКТОВ ИЗ УКАЗАННОГО АДРЕСА
+                LD L,A                  ; количество пунктов из указанного адреса
                 EX DE,HL
                 JR GETXY2
-GETXY1          LD E,(IX+0X0A)
+GETXY1          LD E,(IX+_NUM_KOL_L)
-                LD D,(IX+0X0B)          ;КОЛ-ВО ПУНКТОВ
+                LD D,(IX+_NUM_KOL_H)            ; кол-во пунктов
-GETXY2          LD A,(IX+2)
+GETXY2          LD A,(IX+_V_SIZE)
                 SUB 3
-                LD C,A                  ;КОЛИЧЕСТВО ПУНКТОВ В ВЫСОТЕ ОКНА
+                LD C,A                  ; количество пунктов в высоте окна
                 LD B,0
                 LD A,D
                 OR E
                 LD A,C
                 RET
-;ПЕРЕМЕЩЕНИЕ НА СТРАНИЦУ ВВЕРХ
+; перемещение на страницу вверх
 PAGEUP          CALL GET_XY
                 RET Z
                 XOR A
                 SBC HL,BC
                 EX DE,HL
                 JR NC,PDUN0
 PDU0            LD D,A
                 LD E,A
                 JR PDUN0
-;ПЕРЕМЕЩЕНИЕ НА СТРАНИЦУ ВНИЗ
+; перемещение на страницу вниз
 PAGEDN          CALL GET_XY
                 RET Z
                 EX DE,HL
                 AND A
                 SBC HL,BC
                 ADD HL,DE
                 JR Z,PDUN1
                 JR NC,PDUN0
 PDUN1           EX DE,HL
                 DEC DE
-PDUN0           BIT 7,(IX+7)
+PDUN0           BIT B_ADR_PUNKT,(IX+_NUM_PKT)
                 JR Z,PDUN2
-                LD L,(IX+8)
+                LD L,(IX+_TEK_PKT_L)
-                LD H,(IX+9)
+                LD H,(IX+_TEK_PKT_H)
                 LD (HL),A
                 INC HL
                 LD (HL),E
                 INC HL
                 LD (HL),D
                 JR PDUN3
-PDUN2           LD (IX+7),A
+PDUN2           LD (IX+_NUM_PKT),A
-                LD (IX+8),E
+                LD (IX+_TEK_PKT_L),E
-                LD (IX+9),D
+                LD (IX+_TEK_PKT_H),D
 PDUN3           CALL RESTORE_CLINE
-                JP OUT_TEK_DIR
+                JP OUT_CURR_DIR
 PRINTTIME       DI
-                LD H,0X0C
+                LD H,CMOS.REG_C
                 CALL READCMOS
-                AND 0X10
+                AND CMOSREG.M_C_RO_UF
-                RET Z                           ;ЕСЛИ ВРЕМЯ ЕЩЕ НЕ ОБНОВИЛОСЬ, ВЫХОДИМ НИЧЕГО НЕ ВЫВОДЯ
+                RET Z                           ; если время еще не обновилось, выходим ничего не выводя
-                LD BC,TXT_TIME                  ;ЧТЕНИЕ И ПРЕОБРАЗОВАНИЕ ВРЕМЕНИ
+                LD BC,TXT_TIME                  ; чтение и преобразование времени
-                LD H,4
+                LD H,CMOS.HOUR
-                CALL READCMOS                   ;ПРОЧИТАЛИ ЧАСЫ
+                CALL READCMOS                   ; прочитали часы
-                CALL BYTE2TXT                   ;СКОНВЕРТИЛИ ЧАСЫ С УКЛАДКОЙ В БУФЕР
+                CALL BYTE2TXT                   ; сконвертили часы с укладкой в буфер
                 LD A,(BC)
-                XOR 0X1A                        ;КОНВЕРСИЯ МИГАЮЩЕГО ДВОЕТОЧИЯ
+                XOR ':'-' '                     ; конверсия мигающего двоеточия
                 LD (BC),A
                 INC BC
-                LD H,2
+                LD H,CMOS.MINUTE
-                CALL READCMOS                   ;ПРОЧИТАЛИ МИНУТЫ
+                CALL READCMOS                   ; прочитали минуты
-                CALL BYTE2TXT                   ;СКОНВЕРТИЛИ ЧАСЫ С УКЛАДКОЙ В БУФЕР
+                CALL BYTE2TXT                   ; сконвертили часы с укладкой в буфер
                 LD A,(BC)
-                XOR ':'-' '                     ;КОНВЕРСИЯ МИГАЮЩЕГО ДВОЕТОЧИЯ
+                XOR ':'-' '                     ; конверсия мигающего двоеточия
                 LD (BC),A
                 INC BC
-                LD H,0
+                LD H,CMOS.SECOND
-                CALL READCMOS                   ;ПРОЧИТАЛИ СЕКУНДЫ
+                CALL READCMOS                   ; прочитали секунды
                 CALL BYTE2TXT
-                LD BC,TXT_DATA                  ;ДАЛЕЕ ЧТЕНИЕ И ПРЕОБРАЗОВАНИЕ ДАТЫ
+                LD BC,TXT_DATA                  ; далее чтение и преобразование даты
-                LD H,7
+                LD H,CMOS.DAY_MONTH
                 CALL READCMOS
                 CALL BYTE2TXT
                 INC BC
-                LD H,8
+                LD H,CMOS.MONTH
                 CALL READCMOS
                 CALL BYTE2TXT
                 INC BC
-                LD H,9
+                LD H,CMOS.YEAR
                 CALL READCMOS
                 CALL BYTE2TXT
-                LD HL,BUFF_TIME                 ;ПЕЧАТАЕМ ВРЕМЯ ИЗ БУФЕРА
+                LD HL,BUFF_TIME                 ; печатаем время из буфера
                 JP ITPRINT_MESSAGE
-;ПЕРЕВОД "A" В ДЕСЯТИЧКУ И В ТЕКСТ
+; перевод "A" в десятичку и в текст
 A2TXT           PUSH HL
                 LD L,A
                 LD H,0
                 LD DE,10
                 XOR A
                 DEC A
-                INC A
+.L1             INC A
                 SBC HL,DE
-                JR NC,$-3
+                JR NC,.L1
                 ADD HL,DE
-                ADD A,"0"
+                ADD A,'0'
                 LD D,A
                 LD A,L
-                ADD A,"0"
+                ADD A,'0'
                 POP HL
                 LD (HL),D
                 INC HL
                 LD (HL),A
                 INC HL
                 RET
 BYTE2TXT        LD L,A
-                LD H,"0"
+                LD H,'0'
                 RRCA
                 RRCA
                 RRCA
                 RRCA
-                AND 0X0F
+                AND 0x0F
                 ADD A,H
                 LD (BC),A
                 INC BC
                 LD A,L
-                AND 0X0F
+                AND 0x0F
                 ADD A,H
                 LD (BC),A
                 INC BC
                 RET
-;ВЫХОД ИЗ MAGIC
+; выход из MAGIC
 CONTINUE_PROG   DI
                 LD SP,(OLD_STACK)
                 XOR A
                 RET
-;ПЕРЕЗАПУСК MAGIC МЕНЮ С ПОЛНОЙ ПЕРЕРИСОВКОЙ ЭКРАНА
+; перезапуск MAGIC меню с полной перерисовкой экрана
 RESTART_MAIN    DI
                 LD SP,(OLD_STACK)
                 LD A,1
                 RET
-;ВЫХОД ИЗ ОТЛАДЧИКА
+; выход из отладчика
 TRACER_DBG      DI
                 LD SP,(OLD_STACK)
                 LD A,2
                 RET
 SETUP           LD IX,SETUP_MENU
-                CALL ITWINW
+                CALL INT_TXT_WINDOW
                 JP SET_ADR_ATR
-;ПЕРЕБОР TURBO РЕЖИМОВ С ЗАПИСЬЮ В CMOS И ИЗМЕНЕНИЕМ ПОСЛЕ ВЫХОДА ИЗ NMI
+; перебор TURBO режимов с записью в CMOS и изменением после выхода из NMI
-;0-7MHZ 1-3,5MHZ 2-14,0MHZ
+; 0-7MHZ 1-3,5MHZ 2-14,0MHZ
 SET_TURBO       DI
-                LD H,CMOS_BYTE_01
+                LD H,CMOS.BYTE_01
                 CALL READCMOS
-                LD E,L                          ;TURBO AND MEMORY MODE
+                LD E,L                          ; турбо режим и режим памяти
-                LD H,CMOS_BYTE_00
+                LD H,CMOS.BYTE_00
                 CALL READCMOS
-                LD D,L                          ;TURBO 14
+                LD D,L                          ; TURBO 14.0
                 RLCA
                 LD C,A
                 LD A,E
                 RLCA
                 LD A,C
                 RLA
                 AND 3
-                INC A                           ;СМЕНИЛИ TURBO РЕЖИМ
+                INC A                           ; сменили TURBO режим
                 CP 3
                 JR C,SETTURBO1
-                XOR A                           ;ЕСЛИ ПЕРЕШЛИ ЧЕРЕЗ 0, ТО ВЫСТАВИЛИ РЕЖИМ 14MHZ
+                XOR A                           ; если перешли через 0, то выставили режим 14.0
 SETTURBO1       LD C,A
                 PUSH BC
                 AND A
-                RES 7,E                         ;TURBO 7        0
+                RES 7,E                         ; TURBO 7       0
-                RES 7,D                         ;TURBO 14=7MHZ  0
+                RES 7,D                         ; TURBO 14=7MHZ 0
-                SET 7,E                         ;TURBO 7        1
+                SET 7,E                         ; TURBO 7       1
-                RES 7,D                         ;TURBO 14=3,5   0
+                RES 7,D                         ; TURBO 14=3,5  0
                 JR Z,SETTURBO3
-                RES 7,E                         ;TURBO 7        0
+                RES 7,E                         ; TURBO 7       0
-                SET 7,D                         ;TURBO 14=14    1
+                SET 7,D                         ; TURBO 14=14   1
-SETTURBO3       LD H,CMOS_BYTE_00
+SETTURBO3       LD H,CMOS.BYTE_00
                 LD L,D
                 PUSH DE
                 CALL IWRITECMOS
                 POP DE
-                LD H,CMOS_BYTE_01
+                LD H,CMOS.BYTE_01
                 LD L,E
                 CALL IWRITECMOS
                 POP BC
                 LD A,C
                 AND A
                 LD A,(N_EFF7)
                 AND %11101111
                 OR D
                 LD (N_EFF7),A
 SETANDPRINT     CALL SETUP4SEL
-                LD HL,TXT_SETUPMENU
+                LD HL,SETUP_MENU.TXT_SETUPMENU
                 JP ITPRINT_MESSAGE
-;ПЕРЕБОР РЕЖИМОВ ПАМЯТИ С ЗАПИСЬЮ В CMOS И ИЗМЕНЕНИЕМ ПОСЛЕ ВЫХОДА ИЗ NMI
+; перебор режимов памяти с записью в CMOS и изменением после выхода из NMI
 SET_MEMORY      DI
-                LD H,CMOS_BYTE_01
+                LD H,CMOS.BYTE_01
                 CALL READCMOS
                 AND 3
                 INC A
                 CP 3
                 JR C,SETMEMORY1
                 OR C
                 LD L,A
                 CALL IWRITECMOS
                 JR SETANDPRINT
-;ВКЛЮЧЕНИЕ/ВЫКЛЮЧЕНИЕ РЕЗИДЕНТА HONEY COMANDER
+; включение/выключение резидента HONEY COMANDER
 SET_REZIDENT    DI
-                LD H,CMOS_BYTE_01
+                LD H,CMOS.BYTE_01
                 CALL READCMOS
-                XOR M_REZIDENT
+                XOR CMOS_EC.M_REZIDENT
                 LD L,A
                 CALL IWRITECMOS
                 JR SETANDPRINT
 KILL_REZID      DI
-                LD H,CMOS_BYTE_03
+                LD H,CMOS.BYTE_03
                 CALL READCMOS
-                XOR M_KILL_REZIDENT
+                XOR CMOS_E9.M_KILL_REZIDENT
                 LD L,A
                 CALL IWRITECMOS
                 JR SETANDPRINT
-;ИЗМЕНЕНИЕ ТЕКСТА В МЕНЮ
+; изменение текста в меню
 SETUP4SEL       DI
-                LD H,CMOS_BYTE_01
+                LD H,CMOS.BYTE_01
                 CALL READCMOS
-                LD E,L                          ;TURBO AND MEMORY MODE
+                LD E,L                          ; турбо режим и режим памяти
-                LD H,CMOS_BYTE_00
+                LD H,CMOS.BYTE_00
                 CALL READCMOS
-                LD D,L                          ;TURBO 14
+                LD D,L                          ; TURBO 14.0
                 RLCA
                 LD C,A
                 LD A,E
                 RLCA
                 LD A,C
                 LD HL,TXT_TURBO
                 LD C,A
                 LD B,0
                 ADD HL,BC
                 PUSH DE
-                LD DE,TURBO_MODE
+                LD DE,TXT_TURBO_MODE
                 LDI
                 LDI
                 LDI
                 LDI
                 EX DE,HL
                 LD B,0
                 LD HL,TXT_MEMORY
                 ADD HL,BC
                 ADD HL,BC
                 ADD HL,BC
-                LD DE,MEMORY_MODE
+                LD DE,TXT_MEMORY_MODE
                 LDI
                 LDI
                 LDI
                 EX DE,HL
                 LD (HL),2
                 POP DE
-;ДЛЯ РЕЗИДЕНТА HONEY COMANDER
+; для резидента HONEY COMANDER
                 LD A,E
-                AND M_REZIDENT
+                AND CMOS_EC.M_REZIDENT
                 LD HL,TXT_ONOFF
                 JR NZ,.ON
                 LD HL,TXT_ONOFF+3
-.ON             LD DE,REZIDENT_MODE
+.ON             LD DE,TXT_REZIDENT_MODE
                 LDI
                 LDI
                 LDI
                 EX DE,HL
                 LD (HL),2
-                LD H,CMOS_BYTE_03
+                LD H,CMOS.BYTE_03
                 CALL READCMOS
-                AND M_KILL_REZIDENT
+                AND CMOS_E9.M_KILL_REZIDENT
                 LD HL,TXT_ONOFF
                 JR NZ,.ON1
                 LD HL,TXT_ONOFF+3
 .ON1            LD DE,TXT_KILLREZID
                 LDI
                 LDI
                 EX DE,HL
                 LD (HL),2
                 RET
-;ОЖИДАНИЕ НАЖАТИЯ И ОТПУСКАНИЯ ЛЮБОЙ КЛАВИШИ
+; ожидание нажатия и отпускания любой клавиши
 ANY_KEYS        XOR A
-                IN A,(0XFE)
+                IN A,(0xFE)
                 CPL
-                AND 0X1F
+                AND 0x1F
                 JR Z,ANY_KEYS
 ANYKEYS1        XOR A
-                IN A,(0XFE)
+                IN A,(0xFE)
                 CPL
-                AND 0X1F
+                AND 0x1F
                 JR NZ,ANYKEYS1
                 RET

Subversion Repositories pentevo

(root)/rom/page5/source/selector.a80 – Rev 1035 → 1186