trojkat

;;;Kompilacja programu typu EXE ;;;;;
;tasm szab4.asm
;;;Linkowanie programu do postaci EXE
;tlink szab4.obj
;;;Uruchamianie programu
;szab18.exe

stosik SEGMENT STACK ;deklaracja segmentu stosu
	DB 328 DUP(?)
stosik ENDS

assume cs:kod, ds:dane ;linia najbardziej ruchoma w programie

dane segment ;deklaracka segmentu danych
	napis db 'Program typu exe $'
	gw db '*$'
	nl db 13,10,'$'
	zm dw ?
	zm2 dw 1
	k db 40
	w db 13
dane ends

kod segment ;deklaracja kodu programu
start:



	mov ax, seg dane ;zapis adresu seg danych w rejestrze segmentowym
	mov ds, ax

	mov ax, 3 ;czysci ekran
	int 10h ;czysci ekran

	mov ah, 02h
    mov dl, k 		; kolumna
    mov dh, w		; wiersz
    mov bh, 0h		; numer strony pamieci ekranu
    int 10h
	sub k,1 		; kolumna
	das
    add w,1		; wiersz
	mov cx, 10

skok:
	mov zm, cx
	mov cx, zm2

skok2:

	mov dx, offset gw
	mov ah, 9h
	int 21h
	loop skok2

	mov ah, 02h
	mov ah, 02h
    mov dl, k 		; kolumna
    mov dh, w		; wiersz
    mov bh, 0h		; numer strony pamieci ekranu
    int 10h

    sub k,1 		; kolumna
	das
    add w,1		; wiersz


    mov bh, 0h		; numer strony pamieci ekranu
    int 10h
	mov cx, zm
	add zm2,2
	loop skok

;;; wyjscie programu do systemu DOS ;;;;;
   mov ah, 4ch
   int 21h
kod ends
end start