🚀 go-pugleaf

Matuzalem napisał(a):
> W wolnej chwili napisałem to co chcesz zrobić.
>
> ; =============================
> title numberblock
>
> .model small
> .stack 100h
> .386
>
> _TEXT segment
> start:
>
> 	; tryb wideo
> 	mov ah, 0
> 	mov al, 3
> 	int 10h
>
> 	; stronica
> 	mov ah, 5
> 	mov al, 0
> 	int 10h
>
> 	loop1:
>
> 		mov ah, 1
> 		int 10h
>
> 		cmp al, 1bh ; esc
> 		je short exit
>
> 		call WriteChar
> 		call Scroll
>
> 	jmp short loop1
>
> exit:
>
> 	mov ax, 4c00h
> 	int 21h
>
> WriteChar proc
>
> 	mov ah, 1
> 	mov cx, 0607h
> 	int 10h
>
> 	mov ah, 10h
> 	int 16h
>
> 	; wypisujemy tylko cyfry od 0 do 9
> 	cmp al, '0'
> 	jb short loop1
> 	cmp al, '9'
> 	ja short loop1
>
> 	mov ah, 9
> 	; al jest już wypełnione
> 	xor bh, bh
> 	mov bl, 0000111b ; (000) - czarne tło, (0111) - białe litery
> 	mov cx, 1
> 	int 10h
>
> 	ret
> WriteChar endp
>
> ; -----------------------
> Scroll proc
>
> 	; pobranie wskaźnika
> 	mov ah, 3
> 	xor bh, bh
> 	int 10h
>
> 	; ustawienie wskaźnika
> 	mov ah, 2
>
> 	cmp dl, (4fh - 60) ; ilość znaków w wierszu
> 	ja short ch1
>
> 	inc dl
> 	xor bx, bx
> 	int 10h
> 	ret
>
> 	ch1:
> 	inc dh
> 	cmp dh, 18h
> 	ja short ch2
>
> 	xor dl, dl
> 	xor bx, bx
> 	int 10h
> 	ret
>
> 	ch2:
>
> 	mov dh, 18h
> 	xor dl, dl
> 	xor bx, bx
> 	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
>
> _TeXT ends
> end start
> ; =============================
>
> Tobie zostawiam optymalizacje i poprawki (poprawki w sęsie
> przejżystości i złożoności kodu, bo działa bez problemów,
> przynajmniej mnie się nie udało ich znaleść :)  )

A to troche bardziej zoptymalizowana wersja procedury 'Scrool' :)  :

; -------------------------------------------------------
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
	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
; -------------------------------------------------------

Miłej zabawy ;]

Pozdrawiam