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) |