🚀 go-pugleaf

Johnny wrote:
> 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

40 kolumn? O to Ci chodziło?

> 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

Będziemy powtarzali pętlę 1034 razy?

> odczyt:
> mov ah,8h
> int 21h

Ciekawe czy wartość CX przeżyje to wywołanie...

> 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

I przesuwamy do nieistniejącego wiersza ekranu...

> exec:
> int 10h
> 
> popa
> ret
> 
> przesun endp
> 
> .data
> lcol db ?
> end main
> 
>