Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Progr segment
- assume cs:Progr, ds:dane, ss:stos
- start: mov ax,dane
- mov ds,ax
- mov ax,stos
- mov ss,ax
- mov sp,offset szczyt
- mov ah,2ch
- int 21h
- xor dh,dh
- mov bx,dx
- poczatek: mov dl,random[bx]
- push bx
- mov ax,160d
- mul dl ;mnozenie wylosowanej lini aby belka byla na calej dlugosci
- mov bx,ax
- cld
- push ds
- push ds
- pop es
- mov ax,0b800h
- mov ds,ax ;
- mov si,bx ; zaslania linijke
- mov di,offset bufor ;
- mov cx,80 ;
- rep movsw ;
- pop ds
- mov ax,0b800h
- mov es,ax
- mov di,bx
- mov ah,01000000b ;kolor
- mov cx,80
- rep stosw
- mov cx,16d ;
- xor dx,dx ; odliczanie sekundy
- mov ah,86h ;
- int 15h ;
- mov si,offset bufor ;
- mov di,bx ;
- mov cx,80 ; Odslania linijke
- rep movsw ;
- mov ah,1
- int 16h
- pop bx
- jnz koniec
- inc bx
- jmp poczatek
- koniec: mov ah,4ch
- mov al,0
- int 21h
- Progr ends
- dane segment
- bufor dw 80 dup(0)
- random db 8,7,3,20,12,0,9,22,23,21,15,3,15,12,19,4,23,17,20,15,4,15,9,1,20,21,2,5,11,5,7,12,20,4,12,17,10,24,3,24,8,17,15,10,15,20,5,17,4,1,15,10,0,12,11,12,10,21,22,4,8,12,22,1,8,7,12,17,15,18,0,1,9,2,1,14,2,16,18,8,12,22,16,8,21,0,15,18,17,22,8,1,8,12,0,15,3,10,3,4,13,23,21,12,2,13,14,15,8,12,13,23,8,11,17,24,23,20,2,20,24,4,24,1,19,22,12,9,14,10,11,20,13,12,11,20,10,23,2,8,2,19,1,22,24,11,9,4,22,9,10,4,17,5,17,18,15,5,21,24,18,9,2,20,8,4,12,23,22,3,7,8,16,15,23,14,0,6,22,20,18,6,11,3,14,21,17,11,6,1,0,11,7,17,24,7,24,20,1,0,2,7,15,7,4,9,24,23,18,16,11,14,5,3,1,4,8,10,22,23,22,24,10,21,22,24,22,8,7,4,18,6,14,8,15,19,21,10,6,10,23,14,0,1,6,13,14,2,20,3,12,13,16,9,10,1
- dane ends
- stos segment
- dw 100h dup(0)
- szczyt Label word
- stos ends
- end start
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement