choinka XD

Progr           segment
                assume  cs:Progr, ds:dane, ss:stosik

start:          mov     ax,dane
                mov     ds,ax
                mov     ax,stosik
                mov     ss,ax
                mov     sp,offset szczyt


;choinka start
mov ax,0b800h
mov es,ax
mov ax,1120h
mov di,0
mov cx,2000
mov bx,25

tlo:
             mov es:[di],ax
             inc di
             inc di
loop tlo

drukowanie:
            mov ax,znak
            mov di, miejsce
            mov cx,ilerazy
            wyswietlanie:
                               mov es:[di],ax
                               inc di
                               inc di
            loop wyswietlanie
            add ilerazy,2
            add miejsce,158
            inc znak
            dec bx
jnz drukowanie

;wyjscie
mov ah,4ch
mov al,0
int 21h

Progr           ends

dane            segment

                znak dw 2441h
                ilerazy dw 1
                miejsce dw 78

dane            ends

stosik          segment
                dw    100h dup(0)
szczyt          Label word
stosik          ends

end start