ostapdontstop

13

Jan 7th, 2021
1,112
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;====== Программа 13. Файл z4_pr13.asm ====================
  2.  
  3. masm
  4. model tiny
  5.  
  6. .code
  7.     org     100h
  8.  
  9. begin:
  10.  
  11. main    proc    near
  12.     lea BX,titlex+1
  13.     mov CX,26
  14.  
  15.  
  16. b20:
  17.     mov AH,[Bx]
  18.     cmp AH,61h
  19.     jb b30
  20.     cmp AH,7ah
  21.     ja b30
  22.     and AH,11011111B
  23.     mov [BX],AH
  24.  
  25.    
  26.  
  27.  
  28. b30:
  29.     inc BX
  30.     loop b20
  31.     ; ret
  32.  
  33.  
  34.     lea dx, titlex
  35.     mov ah,09h
  36.     int 21h
  37.  
  38.     ret
  39.  
  40.  
  41. main endp
  42.  
  43.  
  44. titlex      db      'Change to uppercase letters$'
  45.  
  46.     end begin
RAW Paste Data