ćw1_asembler

; IN: n
; OUT: kwadrat z '*' (petla na skokach war)
.286
.model small
.stack 100h
.data
  podajn db 'n=$'
  n      dw ?
.code
start:	mov ax,seg @data
	mov ds,ax

	mov dx,offset podajn
	mov ah,9
	int 21h
	call wczytaj
	mov n,ax

	mov ah,2
	mov dl,10
	int 21h

	mov ax,n
	push ax
	call kwadrat
	add sp,2

koniec:	mov ax,4c00h
	int 21h

kwadrat proc
	mov bp,sp
	mov cx,[bp+2]
	mov ah,2
	mov si,1
@@petz:	cmp si,cx
	ja @@kon
	mov di,1
@@petw:	cmp di,cx
	ja @@dal
	cmp si,1 ;gorny bok
	je @@gwia ;gorny bok
	cmp si,cx ;dolny bok
	je @@gwia ;dolny bok
	cmp di,1 ;lewy bok
	je @@gwia ;lewy bok
	cmp di,cx ;prawy bok


	je @@gwia ;prawy bok
	cmp di,si ;przekatna lewo gora prawo dol
	je @@gwia ;przekatna lewo gora prawo dol
	mov bx,si
	add bx,di
	dec bx
	cmp bx,cx
	je @@gwia
	mov dl,' '
	jmp @@hop
@@gwia:	mov dl,'*'
@@hop:	int 21h
	inc di
	jmp @@petw
@@dal:	mov dl,10
	int 21h
	inc si
	jmp @@petz
@@kon:	ret
kwadrat endp

wczytaj proc
	mov ax,0
	mov cx,0ah
@@pet:	xchg ax,bx
	mov ah,01h
	int 21h
	xchg ax,bx
	cmp bl,'0'
	jb @@kon
	cmp bl,'9'
	ja @@kon
	mul cx
	and bx,0fh
	add ax,bx
	jmp @@pet
@@kon:	ret
wczytaj endp

end start