assembler

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

nowal MACRO
	mov ah, 9h
	mov dx, offset nl
	int 21h
	ENDM
gwiazdka MACRO
	mov ah, 9h
	mov dx,offset gw
	int 21h
	ENDM

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
	gw db '* $'
	nl db 13,10,'$'
	zm dw ?
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 cx,10
skokk:
	mov zm,cx
	mov cx,14

	mov dx, offset gw
	mov ah, 9h
skok:
	int 21h
	loop skok

	mov dx, offset nl
	mov ah, 9h
	int 21h
	mov cx ,zm
	loop skokk

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