Subversion Repositories pentevo

Rev

Rev 507 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 507 Rev 573
Line 75... Line 75...
75 
                CALL MOUSE                      ;ОПРОС ПОРТОВ МЫШИ
 75 
                CALL MOUSE                      ;ОПРОС ПОРТОВ МЫШИ
76 
                POP BC
 76 
                POP BC
77 
                AND A
 77 
                AND A
78 
                SBC HL,BC
 78 
                SBC HL,BC
79 
                JR Z,NO_SELECT                  ;НЕ БЫЛО ДВИЖЕНИЯ МЫШИ
 79 
                JR Z,NO_SELECT                  ;НЕ БЫЛО ДВИЖЕНИЯ МЫШИ
80 
                CALL RESTORE_KOSHAK             ;БЫЛО ДВИЖЕНИЕ МЫШИ, СБРОС СЧЕТЧИКОВ КОШАКА
 80 
;               CALL RESTORE_KOSHAK             ;БЫЛО ДВИЖЕНИЕ МЫШИ, СБРОС СЧЕТЧИКОВ КОШАКА
81 
                CALL MOUOPT                     ;ПРОВЕРКА НАВЕДЕНИЯ МЫШИ НА ЗАДАННОЕ ОКНО
 81 
                CALL MOUOPT                     ;ПРОВЕРКА НАВЕДЕНИЯ МЫШИ НА ЗАДАННОЕ ОКНО
82 
NO_SELECT       LD BC,0XFADF
 82 
NO_SELECT       LD BC,0XFADF
83 
                IN A,(C)                        ;ОПРОС НАЖАТИЯ КНОПОК МЫШИ
 83 
                IN A,(C)                        ;ОПРОС НАЖАТИЯ КНОПОК МЫШИ
84 
                AND 7
 84 
                AND 7
85 
                CP 6
 85 
                CP 6
Line 118... Line 118...
118 
MAINNMO         CALL PRINTTIME                  ;ОБНОВЛЕНИЕ ВРЕМЕНИ, ЕСЛИ В ОНО ОБНОВИЛОСЬ
 118 
MAINNMO         CALL PRINTTIME                  ;ОБНОВЛЕНИЕ ВРЕМЕНИ, ЕСЛИ В ОНО ОБНОВИЛОСЬ
119 
                EI
 119 
                EI
120 
                HALT
 120 
                HALT
121 
MAINQMO         LD A,(FLAGS_KEY)
 121 
MAINQMO         LD A,(FLAGS_KEY)
122 
                BIT 5,A                         ;ПРОВЕРКА НАЖАТИЯ КНОПОК КЛАВИАТУРЫ
 122 
                BIT 5,A                         ;ПРОВЕРКА НАЖАТИЯ КНОПОК КЛАВИАТУРЫ
123 
                CALL Z,CP_TIME_KOSHAK           ;ЕСЛИ НЕ НАЖАТО НИЧЕГО, ПРОВЕРЯЕМ СЧЕТЧИК КОШАКА
 123 
;               CALL Z,CP_TIME_KOSHAK           ;ЕСЛИ НЕ НАЖАТО НИЧЕГО, ПРОВЕРЯЕМ СЧЕТЧИК КОШАКА
124 
                JP Z,MAINLOP                    ;ПРОДОЛЖАЕМ ОПРОС УПРАВЛЕНИЯ
 124 
                JP Z,MAINLOP                    ;ПРОДОЛЖАЕМ ОПРОС УПРАВЛЕНИЯ
125 
                CALL BREAK_KEY                  ;ПРОВЕРКА НА BREAK
 125 
                CALL BREAK_KEY                  ;ПРОВЕРКА НА BREAK
126 
                JR C,SELECT_KEY                 ;ЕСЛИ BREAK НАЖАТ ПЕРЕЗАПУСКАЕМСЯ
 126 
                JR C,SELECT_KEY                 ;ЕСЛИ BREAK НАЖАТ ПЕРЕЗАПУСКАЕМСЯ
127 
RESTART         LD A,1
 127 
RESTART         LD A,1
128 
                OUT (PEVO_CONF),A
 128 
                OUT (PEVO_CONF),A
129 
                RET
 129 
                RET
130 
 
 130 
 
- 
 
 131 
SELECT_KEY      
131 
SELECT_KEY      CALL RESTORE_KOSHAK             ;НАЖАТО НЕЧТО НА КЛАВЕ, СБРОС СЧЕТЧИКА КОШАКА
 132 
;               CALL RESTORE_KOSHAK             ;НАЖАТО НЕЧТО НА КЛАВЕ, СБРОС СЧЕТЧИКА КОШАКА
132 
                LD HL,LAST_K
 133 
                LD HL,LAST_K
133 
                LD A,(HL)                       ;ВЗЯЛИ НАЖАТУЮ КЛАВИШУ
 134 
                LD A,(HL)                       ;ВЗЯЛИ НАЖАТУЮ КЛАВИШУ
134 
                LD B,0
 135 
                LD B,0
135 
                LD HL,MAIN_KEYS
 136 
                LD HL,MAIN_KEYS
136 
                LD C,(HL)                       ;КОЛИЧЕСТВО ДОСТУПНЫХ КНОПОК
 137 
                LD C,(HL)                       ;КОЛИЧЕСТВО ДОСТУПНЫХ КНОПОК