Rev 508 | Rev 583 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log
| Rev 508 | Rev 555 | ||
|---|---|---|---|
| Line 156... | Line 156... | ||
| 156 | ld (on_int_hl),hl |
156 | ld (on_int_hl),hl |
| 157 | ld (on_int_sp),sp |
157 | ld (on_int_sp),sp |
| 158 | pop hl |
158 | pop hl |
| 159 | ld (on_int_sp2),sp |
159 | ld (on_int_sp2),sp |
| 160 | intjpaddr=$+1 |
160 | intjpaddr=$+1 |
| 161 | ld (0),hl ;(on_int_jp),hl |
161 | ld (0),hl ;ok ;(on_int_jp),hl |
| 162 | 162 | ||
| 163 | ld sp,INTSTACK |
163 | ld sp,INTSTACK |
| 164 | 164 | ||
| 165 | push af |
165 | push af |
| 166 | push bc |
166 | push bc |
| Line 171... | Line 171... | ||
| 171 | ;ld bc,0x7ffd |
171 | ;ld bc,0x7ffd |
| 172 | ;out (c),a |
172 | ;out (c),a |
| 173 | 173 | ||
| 174 | ex de,hl;ld hl,0 |
174 | ex de,hl;ld hl,0 |
| 175 | on_int_sp=$+1 |
175 | on_int_sp=$+1 |
| 176 | ld (0),hl ;восстановили запоротый стек |
176 | ld (0),hl ;ok ;восстановили запоротый стек |
| 177 | 177 | ||
| 178 | push ix |
178 | push ix |
| 179 | push iy |
179 | push iy |
| 180 | ex af,af' |
180 | ex af,af' |
| 181 | exx |
181 | exx |
| Line 190... | Line 190... | ||
| 190 | ;ld de,wolfpal |
190 | ;ld de,wolfpal |
| 191 | ;OS_SETPAL |
191 | ;OS_SETPAL |
| 192 | GET_KEY |
192 | GET_KEY |
| 193 | ld (curkey),a |
193 | ld (curkey),a |
| 194 | 194 | ||
| 195 | ld a,(CURPG32KHIGH) |
195 | ld a,(CURPG32KHIGH) ;ok |
| 196 | push af |
196 | push af |
| 197 | pgmuznum=$+1 |
197 | pgmuznum=$+1 |
| 198 | ld a,0 |
198 | ld a,0 |
| 199 | SETPG32KHIGH |
199 | SETPG32KHIGH |
| 200 | ;call muzplay |
200 | ;call muzplay |