Rev 767 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log
Rev 767 | Rev 1213 | ||
---|---|---|---|
Line 147... | Line 147... | ||
147 | prtext_cr_de=$+1 |
147 | prtext_cr_de=$+1 |
148 | ld de,0 |
148 | ld de,0 |
149 | call nextchrline_de |
149 | call nextchrline_de |
150 | jr prtext0keepde |
150 | jr prtext0keepde |
151 | 151 | ||
152 | if 1==0 |
- | |
153 | ;lx=background color %33210210 |
- | |
154 | ;hx=color %33210210 |
- | |
155 | ;de=font char |
- | |
156 | ;hl=screen |
- | |
157 | prchar48ega_hxoncolor0 |
- | |
158 | ld b,hx |
- | |
159 | ld a,(de) |
- | |
160 | ld c,a |
- | |
161 | ld a,lx |
- | |
162 | rl c |
- | |
163 | jr nc,$+2+4 |
- | |
164 | xor b |
- | |
165 | and 0xb8;%10111000 |
- | |
166 | xor b |
- | |
167 | rl c |
- | |
168 | jr nc,$+2+4 |
- | |
169 | xor b |
- | |
170 | and 0x47;%01000111 |
- | |
171 | xor b |
- | |
172 | ld (hl),a |
- | |
173 | set 6,h |
- | |
174 | ld a,lx |
- | |
175 | rl c |
- | |
176 | jr nc,$+2+4 |
- | |
177 | xor b |
- | |
178 | and 0xb8;%10111000 |
- | |
179 | xor b |
- | |
180 | rl c |
- | |
181 | jr nc,$+2+4 |
- | |
182 | xor b |
- | |
183 | and 0x47;%01000111 |
- | |
184 | xor b |
- | |
185 | ld (hl),a |
- | |
186 | inc d |
- | |
187 | ld bc,+(40-0x4000) |
- | |
188 | add hl,bc |
- | |
189 | dec hy |
- | |
190 | jp nz,prchar48ega_hxoncolor0 |
- | |
191 | - | ||
192 | ;c=ink (IIiiiiii) |
- | |
193 | ;b=paper (PPpppppp) |
- | |
194 | ld a,(hl) |
- | |
195 | rla |
- | |
196 | sbc a,a |
- | |
197 | ld e,a ;RRRRRRRR |
- | |
198 | ld a,(hl) |
- | |
199 | rla |
- | |
200 | rla |
- | |
201 | sbc a,a ;LLLLLLLL |
- | |
202 | xor e |
- | |
203 | and 0b01000111 |
- | |
204 | xor e |
- | |
205 | ld d,a |
- | |
206 | ;a=%RLRRRLLL |
- | |
207 | and c ;ink (IIiiiiii) |
- | |
208 | ld e,a |
- | |
209 | ld a,d |
- | |
210 | cpl |
- | |
211 | and b ;paper (PPpppppp) |
- | |
212 | or e |
- | |
213 | ld (hl),a |
- | |
214 | - | ||
215 | ;несколько шрифтов в зависимости от цвета: |
- | |
216 | ;один шрифт = 2(столбца)*8(высота)*2(байта)*256(символов) = 0x2000 |
- | |
217 | ;с версией, сдвинутой на 1 пикс. вправо, он даже не поместится в страницу |
- | |
218 | pop de |
- | |
219 | ld a,(hl) |
- | |
220 | and e |
- | |
221 | or d |
- | |
222 | ld (hl),a |
- | |
223 | add hl,bc |
- | |
224 | ;43t/b (последний add не нужен, так что 41.625t/b) |
- | |
225 | ;но неудобно вычислять начальный адрес (+33t) и сохранять стек (+36t или 16t всегда на одной глубине), причём первое слово надо брать не из стека (+12t), итого 51.75t/b |
- | |
226 | - | ||
227 | ;или |
- | |
228 | ld a,(de) |
- | |
229 | and (hl) |
- | |
230 | inc d |
- | |
231 | ex de,hl |
- | |
232 | or (hl) |
- | |
233 | ex de,hl |
- | |
234 | ld (hl),a |
- | |
235 | inc d |
- | |
236 | add hl,bc |
- | |
237 | ;55t/b (последний inc d и add не нужны, так что 53.125t/b) |
- | |
238 | - | ||
239 | ;или |
- | |
240 | ld a,(de) |
- | |
241 | and (hl) |
- | |
242 | inc h |
- | |
243 | or (hl) |
- | |
244 | ld (de),a |
- | |
245 | inc h |
- | |
246 | ld a,e |
- | |
247 | add a,c |
- | |
248 | ld e,a |
- | |
249 | jp nc,$+3 ;10.625t |
- | |
250 | inc d |
- | |
251 | ;10.625+28+20 = 58.625t/b (последний inc h и пересчёт не нужны, так что 55.3t/b) |
- | |
252 | - | ||
253 | ;или (с огромной таблицей перехода по стеку для всех случаев) |
- | |
254 | pop de |
- | |
255 | ld a,(de) |
- | |
256 | and (hl) |
- | |
257 | inc h |
- | |
258 | or (hl) |
- | |
259 | ld (de),a |
- | |
260 | inc h |
- | |
261 | ;46t/b (45.5 без последнего inc h), но надо сохранять стек (+36t/8) = 50t/b |
- | |
262 | endif |
- | |
263 | - | ||
264 | scrollleft |
- | |
265 | ;hl=linestart |
- | |
266 | ;c=scroll amount |
- | |
267 | ;c=1: scrollleft_rld с c=0 |
- | |
268 | ;c=2: scrollleft_ld с c=1 |
- | |
269 | ;c=3: scrollleft_rld с c=1 |
- | |
270 | srl c |
- | |
271 | jp c,scrollleft_rld |
- | |
272 | scrollleft_ld |
- | |
273 | ;hl=linestart |
- | |
274 | ;c=scroll amount |
- | |
275 | ld d,h |
- | |
276 | ld a,l |
- | |
277 | add a,c |
- | |
278 | ld e,a |
- | |
279 | ex de,hl |
- | |
280 | ;hl=from |
- | |
281 | ;de=to |
- | |
282 | ld a,SCRTRACKWID/2 |
- | |
283 | sub c |
- | |
284 | ld c,a |
- | |
285 | ;c=SCRTRACKWID/2-scrollamount |
- | |
286 | ld b,8 |
- | |
287 | scrollleft_ld0 |
- | |
288 | push bc |
- | |
289 | push de |
- | |
290 | push hl |
- | |
291 | ld b,0 |
- | |
292 | ldir |
- | |
293 | pop hl |
- | |
294 | pop de |
- | |
295 | pop bc |
- | |
296 | inc d |
- | |
297 | inc h |
- | |
298 | djnz scrollleft_ld0 |
- | |
299 | ret |
- | |
300 | - | ||
301 | scrollright |
- | |
302 | ;hl=linestart |
- | |
303 | ;c=scroll amount |
- | |
304 | ;c=1: scrollright_rrd с c=0 |
- | |
305 | ;c=2: scrollright_ld с c=1 |
- | |
306 | ;c=3: scrollright_rrd с c=1 |
- | |
307 | srl c |
- | |
308 | jp c,scrollright_rrd |
- | |
309 | scrollright_ld |
- | |
310 | ;hl=linestart |
- | |
311 | ;c=scroll amount |
- | |
312 | ld a,l |
- | |
313 | add a,SCRTRACKWID/2-1 |
- | |
314 | ld l,a |
- | |
315 | ld d,h |
- | |
316 | sub c |
- | |
317 | ld e,a |
- | |
318 | ex de,hl |
- | |
319 | ;hl=from |
- | |
320 | ;de=to |
- | |
321 | ld a,SCRTRACKWID/2 |
- | |
322 | sub c |
- | |
323 | ld c,a |
- | |
324 | ;c=SCRTRACKWID/2-scrollamount |
- | |
325 | ld b,8 |
- | |
326 | scrollright_ld0 |
- | |
327 | push bc |
- | |
328 | push de |
- | |
329 | push hl |
- | |
330 | ld b,0 |
- | |
331 | lddr |
- | |
332 | pop hl |
- | |
333 | pop de |
- | |
334 | pop bc |
- | |
335 | inc d |
- | |
336 | inc h |
- | |
337 | djnz scrollright_ld0 |
- | |
338 | ret |
- | |
339 | - | ||
340 | scrollleft_rld |
- | |
341 | ;hl=linestart |
- | |
342 | ;ld c,0 |
- | |
343 | ;c=scroll amount |
- | |
344 | ld d,h |
- | |
345 | ld a,l |
- | |
346 | add a,c |
- | |
347 | ld e,a |
- | |
348 | ex de,hl |
- | |
349 | ;hl=from |
- | |
350 | ;de=to |
- | |
351 | ld a,SCRTRACKWID/2 |
- | |
352 | sub c |
- | |
353 | ld c,a |
- | |
354 | ;c=SCRTRACKWID/2-scrollamount |
- | |
355 | ld b,8 |
- | |
356 | scrollleft0p |
- | |
357 | push bc |
- | |
358 | push de |
- | |
359 | push hl |
- | |
360 | ld b,0 |
- | |
361 | ld a,l |
- | |
362 | cp e |
- | |
363 | jr z,scrollleft_noldir |
- | |
364 | ldir |
- | |
365 | scrollleft_noldir |
- | |
366 | add hl,bc |
- | |
367 | dec hl |
- | |
368 | xor a |
- | |
369 | dup SCRTRACKWID/2-1 |
- | |
370 | rld |
- | |
371 | dec l |
- | |
372 | edup |
- | |
373 | rld |
- | |
374 | pop hl |
- | |
375 | pop de |
- | |
376 | pop bc |
- | |
377 | inc d |
- | |
378 | inc h |
- | |
379 | djnz scrollleft0p |
- | |
380 | ret |
- | |
381 | - | ||
382 | scrollright_rrd |
- | |
383 | ;hl=linestart |
- | |
384 | ;ld c,0 |
- | |
385 | ;c=scroll amount |
- | |
386 | ld a,l |
- | |
387 | add a,SCRTRACKWID/2-1 |
- | |
388 | ld l,a |
- | |
389 | ld d,h |
- | |
390 | sub c |
- | |
391 | ld e,a |
- | |
392 | ex de,hl |
- | |
393 | ld a,SCRTRACKWID/2 |
- | |
394 | sub c |
- | |
395 | ld c,a |
- | |
396 | ;c=SCRTRACKWID/2-scrollamount |
- | |
397 | ld b,8 |
- | |
398 | scrollright0p |
- | |
399 | push bc |
- | |
400 | push de |
- | |
401 | push hl |
- | |
402 | ld b,0 |
- | |
403 | ld a,l |
- | |
404 | cp e |
- | |
405 | jr z,scrollright_nolddr |
- | |
406 | lddr |
- | |
407 | scrollright_nolddr |
- | |
408 | or a |
- | |
409 | sbc hl,bc |
- | |
410 | inc hl |
- | |
411 | xor a |
- | |
412 | dup SCRTRACKWID/2-1 |
- | |
413 | rrd |
- | |
414 | inc l |
- | |
415 | edup |
- | |
416 | rrd |
- | |
417 | pop hl |
- | |
418 | pop de |
- | |
419 | pop bc |
- | |
420 | inc d |
- | |
421 | inc h |
- | |
422 | djnz scrollright0p |
- | |
423 | ret |
- | |
424 | - | ||
425 | align 256 |
152 | align 256 |
426 | font |
153 | font |
427 | incbin "64qua.fnt" |
154 | incbin "64qua.fnt" |
428 | fnotes |
155 | fnotes |
429 | incbin "fnotes.fnt" |
156 | incbin "fnotes.fnt" |
Line 503... | Line 230... | ||
503 | call setneedprtypes |
230 | call setneedprtypes |
504 | jp updatescr_scroll_noprall |
231 | jp updatescr_scroll_noprall |
505 | 232 | ||
506 | updatescr_scroll |
233 | updatescr_scroll |
507 | ;hl=lefttime-oldlefttime |
234 | ;hl=lefttime-oldlefttime |
508 | ;если скролл на 1 символ, то реально скроллим, иначе перепечатываем? |
- | |
509 | bit 7,h |
235 | bit 7,h |
510 | jp nz,updatescr_scroll_right |
236 | jp nz,updatescr_scroll_right |
511 | ;ld a,l |
- | |
512 | ;and h |
- | |
513 | ;inc a |
- | |
514 | ;jp z,updatescr_scroll_right |
- | |
515 | ;ld a,l |
- | |
516 | ;dec a |
- | |
517 | ;or h |
- | |
518 | ;jp nz,updatescr_scroll_prall |
- | |
519 | - | ||
520 | updatescr_scroll_left |
237 | ;updatescr_scroll_left |
521 | ld bc,9 |
238 | ld bc,9 |
522 | or a |
239 | or a |
523 | sbc hl,bc |
240 | sbc hl,bc |
524 | jp nc,updatescr_scroll_prall |
241 | jp nc,updatescr_scroll_prall |
525 | add hl,bc |
242 | add hl,bc |
526 | ld c,l;1 |
243 | ld c,l;1 |
527 | ;c=scroll amount (in chars) |
- | |
528 | ld a,c |
- | |
529 | ld (scrollleft_Nchars),a |
- | |
530 | push bc |
- | |
531 | call setscrpg |
- | |
532 | pop bc |
- | |
533 | ld hl,0x4020+(TRACKX/2);+(SCRTRACKWID/2)-1 |
244 | ld hl,0x4020+(TRACKX/2);+(SCRTRACKWID/2)-1 |
534 | call getscrntracks;ld b,SCRNTRACKS |
245 | call getscrntracks;ld b,SCRNTRACKS |
535 | ld a,(toptrack) |
246 | ld a,(toptrack) |
536 | ld hx,a;0 ;track |
247 | ld hx,a;0 ;track |
537 | scrollleft0 |
- | |
538 | push bc |
- | |
539 | push hl |
- | |
540 | call scrollleft ;scrollleft_rld |
248 | call scroll_left_c ;c=scroll amount (in chars) |
541 | pop hl |
- | |
542 | ;обновить бар слева |
- | |
543 | push hl |
- | |
544 | ld d,h |
- | |
545 | ld e,l |
- | |
546 | dec e |
- | |
547 | ld c,0x01 |
- | |
548 | ld a,(curlefttime) |
- | |
549 | sub 8 |
- | |
550 | ld l,a |
- | |
551 | and 7 |
- | |
552 | call prbar_or_nobar |
- | |
553 | call setpgroots |
- | |
554 | ;допечатать столбик справа и его бар |
- | |
555 | call prtrack_gettype ;uses hx |
- | |
556 | pop hl |
- | |
557 | push hl |
- | |
558 | ld d,h |
- | |
559 | ld a,l |
- | |
560 | add a,SCRTRACKWID/2-1 |
- | |
561 | ld e,a |
- | |
562 | curlefttime=$+1 |
- | |
563 | ld hl,0;(curlefttime) |
- | |
564 | ld bc,SCRTRACKWID-1 |
- | |
565 | add hl,bc |
- | |
566 | scrollleft_Nchars=$+2 |
- | |
567 | ld bc,1*256+0xf0 |
- | |
568 | ;de=scr |
- | |
569 | ;hx=track |
- | |
570 | ;c=0x0f/0xf0 |
- | |
571 | ;b=SCRTRACKWID |
- | |
572 | ;hl=time |
- | |
573 | push bc |
- | |
574 | push de |
- | |
575 | push bc |
- | |
576 | ld a,c |
- | |
577 | dec b |
- | |
578 | jr z,scrollleft_beforeprtrack0q |
- | |
579 | scrollleft_beforeprtrack0 |
- | |
580 | dec hl |
- | |
581 | rlca |
- | |
582 | rlca |
- | |
583 | rlca |
- | |
584 | rlca |
- | |
585 | jr c,$+3 |
- | |
586 | dec e |
- | |
587 | djnz scrollleft_beforeprtrack0 |
- | |
588 | scrollleft_beforeprtrack0q |
- | |
589 | pop bc |
- | |
590 | ld c,a |
- | |
591 | call prtrack_Nchars |
- | |
592 | pop de |
- | |
593 | call setscrpg |
- | |
594 | ld a,(curlefttime) |
- | |
595 | add a,SCRTRACKWID-8 |
- | |
596 | ld l,a |
- | |
597 | pop bc ;ld b,1 |
- | |
598 | ld c,0x01 |
- | |
599 | scrollleft_prbars0 |
- | |
600 | push de |
- | |
601 | ld a,l |
- | |
602 | and 7 |
- | |
603 | call prbar_or_nobar |
- | |
604 | pop de |
- | |
605 | dec l |
- | |
606 | ld a,c |
- | |
607 | rlca |
- | |
608 | rlca |
- | |
609 | rlca |
- | |
610 | rlca |
- | |
611 | ld c,a |
- | |
612 | jr nc,$+3 |
- | |
613 | dec e |
- | |
614 | djnz scrollleft_prbars0 |
- | |
615 | pop hl |
- | |
616 | call nextchrline_hl |
- | |
617 | pop bc |
- | |
618 | inc hx ;track |
- | |
619 | dec b |
- | |
620 | jp nz,scrollleft0 |
- | |
621 | call setpgroots |
249 | call setpgroots |
622 | jp updatescr_scroll_noprall |
250 | jp updatescr_scroll_noprall |
623 | 251 | ||
624 | updatescr_scroll_right |
252 | updatescr_scroll_right |
625 | xor a |
253 | xor a |
Line 632... | Line 260... | ||
632 | or a |
260 | or a |
633 | sbc hl,bc |
261 | sbc hl,bc |
634 | jp nc,updatescr_scroll_prall |
262 | jp nc,updatescr_scroll_prall |
635 | add hl,bc |
263 | add hl,bc |
636 | ld c,l;1 |
264 | ld c,l;1 |
637 | ;c=scroll amount (in chars) |
- | |
638 | ld a,c |
- | |
639 | ld (scrollright_Nchars),a |
- | |
640 | push bc |
- | |
641 | call setscrpg |
- | |
642 | pop bc |
- | |
643 | ld hl,0x4020+(TRACKX/2) |
265 | ld hl,0x4020+(TRACKX/2) |
644 | call getscrntracks;ld b,SCRNTRACKS |
266 | call getscrntracks;ld b,SCRNTRACKS |
645 | ld a,(toptrack) |
267 | ld a,(toptrack) |
646 | ld hx,a;0 ;track |
268 | ld hx,a;0 ;track |
647 | scrollright0 |
- | |
648 | push bc |
- | |
649 | push hl |
- | |
650 | call scrollright ;scrollright_rrd |
269 | call scroll_right_c ;c=scroll amount (in chars) |
651 | pop hl |
- | |
652 | ;обновить бар слева (вне поля скролла) |
- | |
653 | push hl |
- | |
654 | ld d,h |
- | |
655 | ld e,l |
- | |
656 | push de |
- | |
657 | dec e |
- | |
658 | ld c,0x01 |
- | |
659 | ld a,(curlefttime) |
- | |
660 | sub 8 |
- | |
661 | ld l,a |
- | |
662 | and 7 |
- | |
663 | call prbar_or_nobar |
- | |
664 | call setpgroots |
- | |
665 | ;допечатать столбик слева и его бар |
- | |
666 | call prtrack_gettype ;uses hx |
- | |
667 | pop de |
- | |
668 | ld hl,(curlefttime) |
- | |
669 | scrollright_Nchars=$+2 |
- | |
670 | ld bc,1*256+0x0f |
- | |
671 | ;de=scr |
- | |
672 | ;hx=track |
- | |
673 | ;c=0x0f/0xf0 |
- | |
674 | ;b=SCRTRACKWID |
- | |
675 | ;hl=time |
- | |
676 | push bc |
- | |
677 | push de |
- | |
678 | call prtrack_Nchars |
- | |
679 | pop de |
- | |
680 | call setscrpg |
- | |
681 | ld a,(curlefttime) |
- | |
682 | add a,1-8 |
- | |
683 | ld l,a |
- | |
684 | pop bc;ld b,1 |
- | |
685 | ld c,0x10 |
- | |
686 | scrollright_prbars0 |
- | |
687 | push de |
- | |
688 | ld a,l |
- | |
689 | and 7 |
- | |
690 | call prbar_or_nobar |
- | |
691 | pop de |
- | |
692 | inc l |
- | |
693 | ld a,c |
- | |
694 | rlca |
- | |
695 | rlca |
- | |
696 | rlca |
- | |
697 | rlca |
- | |
698 | ld c,a |
- | |
699 | jr c,$+3 |
- | |
700 | inc e |
- | |
701 | djnz scrollright_prbars0 |
- | |
702 | - | ||
703 | pop hl |
- | |
704 | call nextchrline_hl |
- | |
705 | pop bc |
- | |
706 | inc hx ;track |
- | |
707 | dec b |
- | |
708 | jp nz,scrollright0 |
- | |
709 | call setpgroots |
270 | call setpgroots |
710 | jp updatescr_scroll_noprall |
271 | jp updatescr_scroll_noprall |
711 | 272 | ||
712 | updatescr_scroll_prall |
273 | updatescr_scroll_prall |
713 | call setneedpralltracks |
274 | call setneedpralltracks |