kod segment
    org 100h
    assume cs:kod

    start:
    mov cx,3
    mov bx,3
    mov ax,6

    mov ah, 02h

        PETLA_ZEW:

        push cx
        mov cx,4
        mov dl, 'A'

            PETLA_CIAG:

                int 21h
                inc dl
                dec cx

            jnz PETLA_CIAG

        push ax
        mov cx, ax

        jcxz SKIP_GWIAZD

        mov dl, '*'

            PETLA_GWIAZD:

                int 21h
                dec cx

            jnz PETLA_GWIAZD

        sub ax, 3

        mov dl, 0ah
        int 21h
        mov dl, 0dh
        int 21h

        push bx
        mov cx, bx
        mov dl, ' '
            PETLA_SPACJE:

                int 21h
                dec bx

            jnz PETLA_SPACJE

        pop bx
        add bx, 3

        SKIP_GWIAZD:

        pop cx
        dec cx

        jnz PETLA_ZEW

    koniec:
        mov ah, 4ch
        int 21h
    kod ends
    end start