🚀 go-pugleaf

> No więc poddaję się. Próbuję przewalczyć "błąd przedostatniej i
> ostatniej kolumny" ale bez pozytywnych rezultatów. Poniżej zamieszczam
> uproszczoną wersję bez przesuwania ekranu. Nie korzystam już z funkcji
> 10h przerwania 16h lecz 8h - 21h ale to niewiele zmieniło.
>
> Czy ktoś potrafi wskazać gdzie leży błąd lub przerobić to na
> działającą wersję z wykorzystaniem tych samych funkcji?
>
> Kolega Matuzalem bardzo się starał i za to mu dziękuję. Jednak teorii
> podanej w jego odpowiedziach nie udało mi się przełożyć na praktykę.

> title ekran
> .model small
> .stack 100h
> .386
> .code
> ;---------------------------------------------
> ; main
> ;---------------------------------------------
> main proc
> mov ax,@data ; inicjalizacja ds
> mov ds,ax
>
> xor ah,ah ; minimalny tryb wideo
> mov al,1h
> int 10h
>
> mov ah,0fh ; odczyt liczby kolumn
> int 10h
> dec ah ; l kolumn - 1 bo indeks zaczyna się od zera
> mov lcol,ah
>
> mov cx,040ah ; licznik
>
> odczyt:
> mov ah,8h
> int 21h
>
> cmp al,1bh ; czy ESC
> je exit
>
> mov ah,0ah ; zapis znaku
> xor bh,bh
> push cx
> mov cx,1h
> int 10h
> pop cx
>
> call przesun
>
> loop odczyt
>
> exit:
> mov ax,4C00h ; zakończenie procedury
> int 21h
> main endp
>
>
> ;---------------------------------------------
> ; przesun
> ;---------------------------------------------
> przesun proc
> pusha ; wszystko na stos
>
> mov ah,3h ; odczytaj położenie wskaźnika
> xor bh,bh
> int 10h
>
> mov ah,2h ; przesuń wskaźnik
> xor bh,bh
> cmp dl,lcol
> je nwiersz
> inc dl
> jmp exec
>
> nwiersz:
> mov dl,0h
> inc dh
>
> exec:
> int 10h
>
> popa
> ret
>
> przesun endp
>
> .data
> lcol db ?
> end main



SOA#1. Program po zapełnieniu całego ekranu (nie brakuje żadnego znaku) 
zaczyna mazać po nieistniejącym wierszu poniżej ekranu, co skutkuje rychłym 
wysypaniem.


-- 
Azarien