Rev 448 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log
| Rev 448 | Rev 508 | ||
|---|---|---|---|
| Line 148... | Line 148... | ||
| 148 | halt |
148 | halt |
| 149 | curkey=$+1 |
149 | curkey=$+1 |
| 150 | ld a,0 |
150 | ld a,0 |
| 151 | cp key_esc |
151 | cp key_esc |
| 152 | jp z,quiter ;Alone Coder |
152 | jp z,quiter ;Alone Coder |
| - | 153 | cp key_redraw |
|
| - | 154 | call z,redraw |
|
| 153 | 155 | ||
| 154 | CALL L_8746 |
156 | CALL L_8746 |
| 155 | CALL L_8FFC |
157 | CALL L_8FFC |
| 156 | CALL L_8E5F |
158 | CALL L_8E5F |
| 157 | CALL L_89F9 |
159 | CALL L_89F9 |
| Line 2119... | Line 2121... | ||
| 2119 | CPL |
2121 | CPL |
| 2120 | LD (HL),A |
2122 | LD (HL),A |
| 2121 | LDIR |
2123 | LDIR |
| 2122 | RET |
2124 | RET |
| 2123 | ; |
2125 | ; |
| - | 2126 | ||
| - | 2127 | setpgs_scr |
|
| - | 2128 | ld a,(user_scr0_low) |
|
| - | 2129 | SETPG32KLOW |
|
| - | 2130 | ld a,(user_scr0_high) |
|
| - | 2131 | SETPG32KHIGH |
|
| - | 2132 | ret |
|
| - | 2133 | ||
| - | 2134 | redraw |
|
| - | 2135 | ld e,0 |
|
| - | 2136 | OS_CLS |
|
| - | 2137 | ||
| - | 2138 | ld hl,VAR038C |
|
| - | 2139 | ld de,VAR068C ;что сейчас отрисовано |
|
| - | 2140 | ld bc,768 |
|
| - | 2141 | redraw0 |
|
| - | 2142 | ld a,(hl) |
|
| - | 2143 | inc a |
|
| - | 2144 | ld (de),a |
|
| - | 2145 | inc de |
|
| - | 2146 | cpi |
|
| - | 2147 | jp pe,redraw0 |
|
| - | 2148 | ||
| 2124 | DrawScreen |
2149 | DrawScreen |
| 2125 | ;draw screen |
2150 | ;draw screen |
| - | 2151 | call setpgs_scr |
|
| - | 2152 | ||
| 2126 | LD DE,VAR038C |
2153 | LD DE,VAR038C |
| 2127 | LD HL,VAR068C |
2154 | LD HL,VAR068C |
| 2128 | |
2155 | |
| 2129 | if EGA |
2156 | if EGA |
| 2130 | |
2157 | |
| Line 2396... | Line 2423... | ||
| 2396 | ; |
2423 | ; |
| 2397 | L_9284 DB #00 |
2424 | L_9284 DB #00 |
| 2398 | ; |
2425 | ; |
| 2399 | L_9285 |
2426 | L_9285 |
| 2400 | ;keep hl!!! |
2427 | ;keep hl!!! |
| 2401 | push hl |
2428 | ;push hl |
| 2402 | GET_KEY ;rasmer |
2429 | ;GET_KEY ;rasmer |
| 2403 | pop hl |
2430 | ;pop hl |
| - | 2431 | ld a,(curkey) |
|
| 2404 | cp key_esc |
2432 | cp key_esc |
| 2405 | jp z,quiter |
2433 | jp z,quiter |
| - | 2434 | cp key_redraw |
|
| - | 2435 | call z,redraw |
|
| 2406 | 2436 | ||
| 2407 | CALL L_9223;readkey |
2437 | CALL L_9223;readkey |
| 2408 | CP "K" |
2438 | CP "K" |
| 2409 | JR Z,L_92A3 |
2439 | JR Z,L_92A3 |
| 2410 | CP "J" |
2440 | CP "J" |