Advertisement
Guest User

Untitled

a guest
Apr 9th, 2018
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. .model tiny
  2. .386
  3. .data
  4.     tekst   db "Podaj liczbe: $"
  5. .stack 100h
  6. .code
  7. start:
  8.     mov ax, @data
  9.     mov ds, ax
  10.    
  11.     ; wy?wietlenie tekstu ?Podaj liczbe: ? na ekranie
  12.     mov dx, offset tekst
  13.     mov ah, 09h
  14.     int 21h
  15.        
  16.     ; wczytanie liczby
  17.     mov ah, 01h
  18.     int 21h         ; wczytany kod znaku (ASCI) znajduje si? w AL
  19.    
  20.     xor ah, ah      ; wyzerowanie rejestru AHr
  21.     sub al, '0'     ; konwersja znaku na liczb? (odj?cie 48 czyli kodu ASCII cyfry '0')
  22.     mov bl, 10       ; u?ycie rejestru BL jako tymczasowego do przechowania warto?ci 4
  23.     mul bl
  24.     mov cl,al
  25.    
  26.     mov ah, 01h
  27.     int 21h         ; wczytany kod znaku (ASCI) znajduje si? w AL
  28.    
  29.     xor ah, ah      ; wyzerowanie rejestru AHr
  30.     sub al, '0'     ; konwersja znaku na liczb? (odj?cie 48 czyli kodu ASCII cyfry '0')
  31.     add cl,al
  32.    
  33.    
  34.    mov bl,4
  35.    
  36.    
  37.    xor al,al
  38.    mov al,cl
  39.    
  40.    
  41.    
  42.    
  43.     div bl          ; podzielenie rejestru AX przez warto?? rejestru BL (czyli 3)
  44.                    
  45.    
  46.    
  47.    
  48.     add ah,48
  49.     mov dl,ah
  50.     mov ah,2
  51.     int 21h
  52.  
  53.  
  54.    
  55.  
  56.     ; zako?czenie programu
  57.         mov ah, 4Ch
  58.         int 21h
  59. end start
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement