Advertisement
Guest User

Untitled

a guest
May 7th, 2018
112
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. .model tiny
  2. .386
  3. .data
  4.     wiersz db 255 dup (?) ;zarezerwowanie w pami?ci 255 bajt?w bez nadawania warto?ci
  5.     wiersz2 db 255 dup (?) ;zarezerwowanie w pami?ci 255 bajt?w bez nadawania warto?ci
  6. .stack 100h
  7. .code
  8. start:
  9.     mov ax, @data
  10.     mov ds, ax
  11.     xor ax, ax
  12.    
  13.     ; wczytanie wiersza z klawiatury (wykorzystanie funkcji 0Ah z przerwania 21h)
  14.     mov dx, offset wiersz
  15.     mov (wiersz), 255   ; wpisanie do adresu wskazywanego przez 'wiersz' liczby 255...
  16.     mov ah, 0Ah         ; ...oznaczaj?cej maksymaln? ilo?? wprowadzanych znak?w
  17.     int 21h
  18.     xor ah,ah
  19.    
  20.     mov si,2
  21.     cmp (wiersz+1),3
  22.     jne dwa
  23.     sub (wiersz+si),'0'
  24.     mov bl,100
  25.     mov al,(wiersz+si)
  26.     mul bl
  27.     inc si
  28.     mov cl,al
  29.    
  30.     dwa:
  31.     cmp (wiersz+1),2
  32.     jne jeden
  33.     sub (wiersz+si),'0'
  34.     mov bl,10
  35.     mov al,(wiersz+si)
  36.     mul bl
  37.     inc si
  38.    
  39.     jeden:
  40.     sub (wiersz+si),'0'
  41.    
  42.     add cl,al
  43.     mov al,(wiersz+si)
  44.     add cl,al
  45.     mov ch,cl
  46.    
  47.     ;;;;;;;;;;;;;;;;;;;;;;;;;;;
  48.    
  49.     ; wczytanie wiersza z klawiatury (wykorzystanie funkcji 0Ah z przerwania 21h)
  50.     mov dx, offset wiersz2
  51.     mov (wiersz2), 255   ; wpisanie do adresu wskazywanego przez 'wiersz' liczby 255...
  52.     mov ah, 0Ah         ; ...oznaczaj?cej maksymaln? ilo?? wprowadzanych znak?w
  53.     int 21h
  54.    
  55.    
  56.    
  57.    
  58.    
  59.    
  60.    
  61.     xor ah,ah
  62.    
  63.     mov si,2
  64.     cmp (wiersz2+1),3
  65.     jne dwa2
  66.     sub (wiersz2+si),'0'
  67.     mov bl,100
  68.     mov al,(wiersz2+si)
  69.     mul bl
  70.     inc si
  71.     mov cl,al
  72.    
  73.     dwa2:
  74.     cmp (wiersz2+1),2
  75.     jne jeden2
  76.     sub (wiersz2+si),'0'
  77.     mov bl,10
  78.     mov al,(wiersz2+si)
  79.     mul bl
  80.     inc si
  81.    
  82.     jeden2:
  83.     sub (wiersz2+si),'0'
  84.    
  85.     add cl,al
  86.     mov al,(wiersz2+si)
  87.     add cl,al
  88.    
  89.     add cl,ch
  90.    
  91.     ;;;;;;;;;;;;;;;;wyswietlanko
  92.    
  93.    
  94.     xor ah,ah
  95.     mov al, ch
  96.     mov bl,100
  97.     div bl
  98.     mov cl,ah
  99.    
  100.    
  101.     add al,'0'
  102.     mov dl, al
  103.     mov ah,02h
  104.     int 21h
  105.    
  106.     xor ah,ah
  107.     mov bl,10
  108.     mov al,cl
  109.     div bl
  110.     mov cl,ah
  111.    
  112.     add al,'0'
  113.     mov dl, al
  114.     mov ah,02h
  115.     int 21h
  116.    
  117.     mov al,cl
  118.     add al,'0'
  119.     mov dl, al
  120.     mov ah,02h
  121.     int 21h
  122.    
  123.    
  124.    
  125.    
  126.    
  127.    
  128.     mov ah, 4Ch
  129.     int 21h
  130. end start
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement