Rev 627 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 627 | Rev 1120 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | 1 | ||
| - | 2 | ; LAST UPDATE: 18.10.2023 savelij |
|
| - | 3 | ||
| 2 | ;#INCLUDE "ALLVARS.ASH" |
4 | ;#INCLUDE "ALLVARS.ASH" |
| 3 | 5 | ||
| 4 | _KB_INT: RET |
6 | _KB_INT: RET |
| 5 | 7 | ||
| 6 | KB_INIT: JP _KB_INIT |
8 | KB_INIT: JP _KB_INIT |
| Line 154... | Line 156... | ||
| 154 | DW PCP ; CTRL PUNCT |
156 | DW PCP ; CTRL PUNCT |
| 155 | DW NRET ; CTRL OTHERS |
157 | DW NRET ; CTRL OTHERS |
| 156 | 158 | ||
| 157 | 159 | ||
| 158 | PALT: LD L,-1 |
160 | PALT: LD L,-1 |
| 159 | BIT _KS_NUM,(IX-_KS_ASH) |
161 | BIT B_KS_NUM,(IX-_KS_ASH) |
| 160 | RET NZ |
162 | RET NZ |
| 161 | CP "." |
163 | CP "." |
| 162 | JR NZ,PALT_1 |
164 | JR NZ,PALT_1 |
| 163 | LD A,"y" |
165 | LD A,"y" |
| 164 | RET |
166 | RET |
| Line 183... | Line 185... | ||
| 183 | RET |
185 | RET |
| 184 | 186 | ||
| 185 | TRP: DB 0X88, "`;',.[]",0X5C,"(v|b`h",0X7F,0 |
187 | TRP: DB 0X88, "`;',.[]",0X5C,"(v|b`h",0X7F,0 |
| 186 | ;ED_tab "`;',.[]",0X5C <"(v|b`h", 127,0> 1 |
188 | ;ED_tab "`;',.[]",0X5C <"(v|b`h", 127,0> 1 |
| 187 | TRSP: DB 0X8A, "`;',.[]=",0X5C,"/",")V",0X5C,"B@H_+",0,"?" |
189 | TRSP: DB 0X8A, "`;',.[]=",0X5C,"/",")V",0X5C,"B@H_+",0,"?" |
| 188 | ;ED_tab "`;',.[]=",0X5C,"/" <")V\B@H_+",0,"?"> 1 |
190 | ;ED_tab "`;',.[]=",0X5C,"/" <")V0x5CB@H_+",0,"?"> 1 |
| 189 | TRLET: DB 0, "fiswuapr{oldxt}zjkyegmc~nq" |
191 | TRLET: DB 0, "fiswuapr{oldxt}zjkyegmc~nq" |
| 190 | ;ED_tab "fiswuapr{oldxt}zjkyegmc~nq" |
192 | ;ED_tab "fiswuapr{oldxt}zjkyegmc~nq" |
| 191 | TCCTRL: DB 0X81, 0X0D,0X0A |
193 | TCCTRL: DB 0X81, 0X0D,0X0A |
| 192 | ;ED_tab 0dh 0ah 1 |
194 | ;ED_tab 0dh 0ah 1 |
| 193 | TSDIG: DB 0, ")!@#$%^&*(" |
195 | TSDIG: DB 0, ")!@#$%^&*(" |