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

    mov ax,0
    mov dx,0
    int 1ah                 ;pobranie czasu do rejestrów cx:dx, nalezy tez wyczyscic rejestr ax(
    mov intI,dl
    mov ax,0
    mov dx,0
; nieskonczona petla
looop:
    mov ax,0
    inc intI
    mov al,intI
    mov si,ax
    mov dl,losuj[si]
    mov chosenNumber,dl
    mov dx,0
    mov ax,0

    mov ah,00
    mov al,160
    mul chosenNumber
    mov bx,ax

    cld
    push ds
    push ds
    pop es
    mov di,0000
    mov ax,0b800h
    mov ds,ax
    mov si,bx
    mov cx,80
    rep movsw

    pop ds
    mov ax,0b800h
    mov es,ax

    mov si,bx
    mov cx,80
petla:
    mov byte ptr es:[si],32
    mov byte ptr es:[si+1],11000000b ;bright;red, green, blue ;white - 0111
    inc si
    inc si
    inc intX
    loop petla

    mov cx,7
    mov dx,0a120h
    mov ah,86h
    mov al,0
    int 15h

    mov si,offset tablica160
    mov di,bx
    mov cx,80
    rep movsw

    mov ah,1h
    int 16h
    jnz koniec
    jmp looop
; koniec nieskonczonej petli
koniec:
    mov ah,4Ch
    mov al,0h
    int 21h


Progr ends


dane segment

tablica160 db 160 dup(0)        ;tablica 160 elementowa wypelniona przy starcie programu zerami
chosenNumber db 0
intX db 1
intI db 0
losuj db 12, 1, 21, 5, 9, 1, 6, 8, 24, 23, 13, 12, 15, 3, 18, 3, 18, 20, 14, 16, 5, 15, 16, 9, 11, 16, 11, 18, 19, 20, 3, 23, 23, 13, 1, 8, 23, 8, 11, 15, 3, 3, 19, 10, 0, 20, 22, 5, 2, 4, 16, 21, 4, 5, 24, 3, 22, 11, 9, 8, 1, 10, 15, 0, 4, 3, 20, 10, 22, 13, 11, 11, 12, 19, 17, 6, 13, 16, 14, 21, 5, 21, 16, 7, 20, 7, 11, 3, 21, 13, 17, 20, 13, 16, 20, 4, 24, 22, 8, 19, 2, 7, 6, 20, 3, 12, 9, 4, 22, 4, 23, 15, 11, 3, 2, 11, 9, 19, 9, 3, 8, 19, 1, 18, 14, 6, 21, 7, 9, 2, 2, 7, 14, 0, 8, 18, 21, 12, 23, 3, 18, 18, 22, 9, 24, 14, 14, 8, 12, 1, 18, 8, 20, 21, 14, 18, 15, 19, 22, 4, 6, 22, 6, 3, 7, 4, 19, 24, 21, 11, 23, 17, 0, 3, 7, 18, 11, 23, 15, 14, 24, 3, 16, 6, 16, 5, 21, 2, 23, 21, 0, 11, 7, 6, 10, 9, 14, 19, 2, 2, 0, 1, 20, 16, 16, 6, 14, 9, 24, 6, 2, 3, 17, 9, 10, 2, 11, 1, 13, 0, 24, 17, 16, 8, 12, 19, 17, 3, 2, 9, 15, 20, 5, 4, 17, 0, 16, 16, 8, 23, 0, 14, 6, 19, 21, 21, 9, 0, 10, 1, 4, 13, 17, 4, 12, 3
;256 liczb, liczby od 0 do 24 bo jest 25 wierszy, liczby pochodza z generatora
dane ends

stosik segment

        dw 100h dup(0)
szczyt  label word

stosik ends
end start