🚀 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


-- 
Johnny