🚀 go-pugleaf

Po pierwsze to palnąłem z odpowiedzią o 28 kolumnach. Oczywiście Bernard
ma rację chodzi o 40 kolumn czyli... 28h ;-)

Po drugie: Matuzalem, Matuzalem, Matuzalem

Twój program działa dokładnie w taki sam sposób jak mój (przynajmniej u
mnie) czyli gubi znak w przedostatniej kolumnie ostatniego wiersza.
Poniżej zamieszczam Twoją procedurę z małymi zmianami, tj. ustawienie
"małego" trybu video no i pętla do odczytu znaków z wywołaniem Twojej
procedury. W Twojej procedurze zmieniłem jedynie wiersz

cmp dl, (4fh - 60) ; ilość znaków w wierszu

na

cmp dl,26h

Doceniam Twoją pomoc. Próbuję samemu dojść przyczyny takiego zachowania.
Ale po kilku dniach takich poszukiwań i po wykonaniu wielu prób warto
zapytać innych, prawda?

-- 
Johnny

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


odczyt:
mov ah,8h
int 21h

cmp al,1bh		; czy ESC
je exit

mov ah,0ah		; zapis znaku
xor bh,bh
mov cx,1h
int 10h

call Scroll

loop odczyt

exit:
mov ax,4C00h		; zakończenie procedury
int 21h
main endp


;---------------------------------------------
; Scroll
;---------------------------------------------
Scroll proc

	; pobranie wskaźnika
	mov ah, 3
	xor bx, bx
	int 10h

	; ustawienie wskaźnika
	mov ah, 2

	;cmp dl, (4fh - 60) ; ilość znaków w wierszu
	cmp dl,26h
	ja short ch1

	inc dl
	int 10h
	ret

	ch1:
	inc dh
	xor dl, dl

	cmp dh, 18h
	ja short ch2

	int 10h
	ret

	ch2:

	mov dh, 18h
	int 10h

	; przewinięcie okna
	mov ah, 6
	mov al, 1
	xor cx, cx
	mov dh, 18h
	mov dl, 4fh
	mov bh, 7
	int 10h

	ret
Scroll endp

end main