Advertisement
Guest User

Untitled

a guest
May 14th, 2018
116
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 127 dup (?) ;zarezerwowanie w pami?ci 255 bajt?w bez nadawania warto?ci
  5.     wiersz2 db 127 dup (?) ;zarezerwowanie w pami?ci 255 bajt?w bez nadawania warto?ci
  6.     liczba1 db 0
  7.     liczba2 db 0
  8.     tab db 10,13,"$"
  9. .stack 100h
  10. .code
  11. start:
  12.     mov ax, @data
  13.     mov ds, ax
  14.     xor ax, ax
  15.    
  16.     ; wczytanie wiersza z klawiatury (wykorzystanie funkcji 0Ah z przerwania 21h)
  17.     mov dx, offset wiersz
  18.     mov (wiersz), 255   ; wpisanie do adresu wskazywanego przez 'wiersz' liczby 255...
  19.     mov ah, 0Ah         ; ...oznaczaj?cej maksymaln? ilo?? wprowadzanych znak?w
  20.     int 21h
  21.     xor ah,ah
  22.      
  23.    
  24.     mov si, 2
  25.     xor cl,cl
  26.     cmp (wiersz+1),3
  27.     jne dwa
  28.     mov al,(wiersz+si)
  29.     sub al,'0'
  30.     mov bl,100
  31.     mul bl
  32.     inc si
  33.     mov cl,al
  34.    
  35.     dwa:
  36.    
  37.     mov al,(wiersz+si)
  38.     sub al,'0'
  39.     mov bl,10
  40.     mul bl
  41.     inc si
  42.     add cl,al
  43.    
  44.     jeden:
  45.     mov al,(wiersz+si)
  46.     sub al,'0'
  47.    
  48.     add cl,al
  49.     mov ch,cl
  50.     mov liczba1, cl
  51.    
  52.    
  53.      ;;;;;;;;;;;;;;;;;;;;;;;;;;;
  54.    
  55.        ; wczytanie wiersza z klawiatury (wykorzystanie funkcji 0Ah z przerwania 21h)
  56.          mov dx, offset wiersz2
  57.     mov (wiersz2), 255   ; wpisanie do adresu wskazywanego przez 'wiersz' liczby 255...
  58.        mov ah, 0Ah         ; ...oznaczaj?cej maksymaln? ilo?? wprowadzanych znak?w
  59.     int 21h
  60.    
  61.    
  62.    
  63.    
  64.    
  65.    
  66.     xor cl,cl
  67.    
  68.     xor ah,ah
  69.    
  70.      mov si, 2
  71.    
  72.      cmp (wiersz2+1),3
  73.      jne dwa2
  74.     mov al,(wiersz2+si)
  75.     sub al,'0'
  76.     mov bl,100
  77.     mul bl
  78.     inc si
  79.     mov cl,al
  80.    
  81.     dwa2:
  82.    
  83.     mov al,(wiersz2+si)
  84.     sub al,'0'
  85.     mov bl,10
  86.     mul bl
  87.     inc si
  88.     add cl,al
  89.    
  90.     jeden2:
  91.     mov al,(wiersz2+si)
  92.     sub al,'0'
  93.     add cl,al
  94.     mov liczba2, cl
  95.    
  96.    
  97.     add ch,cl
  98.    
  99.    
  100.    
  101.    
  102.       ;;;;;;;;;;;;;;;;wyswietlanko
  103.    
  104.    
  105.     xor ah,ah
  106.     mov al, ch
  107.     mov bl,100
  108.     div bl
  109.     mov cl,ah
  110.    
  111.     add al,'0'
  112.     mov dl, al
  113.    
  114.     mov ah,02h
  115.     int 21h
  116.     dwar:
  117.     xor ah,ah
  118.     mov bl,10
  119.     mov al,cl
  120.     div bl
  121.     mov cl,ah
  122.    
  123.     add al,'0'
  124.     mov dl, al
  125.     mov ah,02h
  126.     int 21h
  127.    
  128.     mov al,cl
  129.     add al,'0'
  130.     mov dl, al
  131.     mov ah,02h
  132.     int 21h
  133.    
  134.    
  135.    
  136.    
  137.    
  138.    
  139.     ;;;;;;;;;;;;;;;;wyswietlanko
  140.    
  141.     mov dx, offset tab
  142. mov ah,9
  143. int 33
  144.    
  145.    
  146.     mov ch,liczba1
  147.     mov cl,liczba2
  148.    
  149.     sub ch,cl
  150.    
  151.     xor ah,ah
  152.     mov al, ch
  153.     mov bl,100
  154.     div bl
  155.     mov cl,ah
  156.    
  157.     add al,'0'
  158.     mov dl, al
  159.    
  160.     mov ah,02h
  161.     int 21h
  162.     xor ah,ah
  163.     mov bl,10
  164.     mov al,cl
  165.     div bl
  166.     mov cl,ah
  167.    
  168.     add al,'0'
  169.     mov dl, al
  170.     mov ah,02h
  171.     int 21h
  172.    
  173.     mov al,cl
  174.     add al,'0'
  175.     mov dl, al
  176.     mov ah,02h
  177.     int 21h
  178.    
  179.    
  180.     mov ah, 4Ch
  181.     int 21h
  182. end start
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement