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, rejestr ax, zerowany przy okazji początku pętli

    mov intI,dl             ;przekazanie wylosowanej liczby do zmiennej
    mov dx,0

looop:

    mov ax,0
    inc intI
    mov al,intI
    mov si,ax
    mov dl,losuj[si]        ;załadowanie ddo rejestru dl losowej liczby z zakresu ( 0 - 24 )
    mov chosenNumber,dl
    mov dx,0
    mov ax,0

    mov al,160
    mul chosenNumber
    mov bx,ax

    cld                     ;inkrementacja SI/DI
    push ds
    push ds
    pop es
    mov di,0000             ;tablica
    mov ax,0b800h           ;lewy gorny ekranu konsolki
    mov ds,ax
    mov si,bx               ;wybrany wiersz
    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          ; /|( 0 - 3 )-KOLOR|\/|( 4 - 7 )-BACKG|\/| ( 8 )-MIGANIE|\
    inc si
    inc si

    loop petla                                ; TUTAJ LOOP

    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 do przechowywania linjiki
chosenNumber db 0
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

dane ends

stosik segment

        dw 100h dup(0)
szczyt  label word

stosik ends
end start