SHARE
TWEET

Untitled

a guest Dec 16th, 2019 107 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Progr           segment
  2.                 assume  cs:Progr, ds:dane, ss:stos
  3.  
  4. start:      mov ax,dane
  5.             mov ds,ax
  6.             mov ax,stos
  7.             mov ss,ax
  8.             mov sp,offset szczyt
  9.            
  10.            
  11.             mov ah,2ch
  12.             int 21h        
  13.             xor dh,dh      
  14.             mov bx,dx
  15. poczatek:   mov dl,random[bx]
  16.             push bx
  17.             mov ax,160d      
  18.             mul dl            ;mnozenie wylosowanej lini aby belka byla na calej dlugosci
  19.             mov bx,ax
  20.            
  21.             cld
  22.             push ds
  23.             push ds
  24.             pop es              
  25.             mov ax,0b800h      
  26.             mov ds,ax           ;
  27.             mov si,bx           ; zaslania linijke  
  28.             mov di,offset bufor ;
  29.             mov cx,80   ;      
  30.             rep movsw  ;        
  31.  
  32.             pop ds
  33.             mov ax,0b800h
  34.             mov es,ax
  35.             mov di,bx
  36.             mov ah,01000000b        ;kolor
  37.             mov cx,80
  38.             rep stosw
  39.  
  40.             mov cx,16d  ;
  41.             xor dx,dx   ; odliczanie sekundy      
  42.             mov ah,86h  ;        
  43.             int 15h     ;      
  44.            
  45.  
  46.             mov si,offset bufor ;
  47.             mov di,bx ;
  48.             mov cx,80 ;         Odslania linijke
  49.             rep movsw ;          
  50.            
  51.             mov ah,1            
  52.             int 16h
  53.             pop bx
  54.             jnz koniec
  55.             inc bx
  56.             jmp poczatek
  57.            
  58.  
  59. koniec:     mov ah,4ch
  60.             mov al,0
  61.             int 21h
  62. Progr           ends
  63.  
  64. dane            segment
  65.                 bufor dw 80 dup(0)
  66.                 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
  67. dane            ends
  68.  
  69. stos          segment
  70.                 dw    100h dup(0)
  71. szczyt          Label word
  72. stos          ends
  73.  
  74. end start
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top