Subversion Repositories pentevo

Rev

Rev 764 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 764 Rev 821
Line 1... Line 1...
1
 
1
 
2
;LAST UPDATE; 30.08.2017 savelij
2
;LAST UPDATE; 03.05.2019 savelij
3
 
3
 
4
;СОХРАНЕНИЕ КУСКА ЭКРАНА
4
;СОХРАНЕНИЕ КУСКА ЭКРАНА
5
SAVE2X2         LD HL,FLAGS
5
SAVE2X2         LD HL,FLAGS
6
                BIT B_VIDEO_MODE,(HL)
6
                BIT B_VIDEO_MODE,(HL)
7
                RET NZ
7
                RET NZ
Line 129... Line 129...
129
                LD A,H
129
                LD A,H
130
                ADD A,(IX+2)
130
                ADD A,(IX+2)
131
                SUB 3
131
                SUB 3
132
                CP D
132
                CP D
133
                RET C                           ;КУРСОР НИЖЕ ОКНА ИЛИ НА ПОСЛЕДНЕЙ ПОЛОСКЕ
133
                RET C                           ;КУРСОР НИЖЕ ОКНА ИЛИ НА ПОСЛЕДНЕЙ ПОЛОСКЕ
-
 
134
;КУРСОР В ПРЕДЕЛАХ РАБОЧЕЙ ОБЛАСТИ
-
 
135
                LD A,(IX+_NUM_KOL_H)
-
 
136
                AND A
-
 
137
                JR NZ,.L1              
-
 
138
                OR (IX+_NUM_KOL_L)
-
 
139
                JR Z,.L1
-
 
140
;ПРОВЕРКА ДЛЯ КОЛИЧЕСТВА ПУНКТОВ МЕНЬШЕ ВЫСОТЫ ОКНА - 2
-
 
141
                PUSH HL
-
 
142
                LD L,A
-
 
143
                LD H,(IX+_NUM_KOL_H)
134
                LD A,D
144
                LD A,D
-
 
145
                SUB (IX+_Y_COORD)
-
 
146
                LD C,A
-
 
147
                LD B,0
-
 
148
                AND A
-
 
149
                SBC HL,BC
-
 
150
                POP HL
-
 
151
                RET C
-
 
152
 
-
 
153
.L1             LD A,D
135
                SUB H
154
                SUB H
136
                LD C,A
155
                LD C,A
137
                LD L,(IX+8)
156
                LD L,(IX+8)
138
                LD H,(IX+9)
157
                LD H,(IX+9)
139
                BIT 7,(IX+7)
158
                BIT 7,(IX+7)