Developing.ru

Код: Выделить всё

len_par_addr  EQU        80H

DATA          SEGMENT
  str_par       DW        80 DUP (?)
  num_par     DB         0
DATA          ENDS

                ASSUME     CS:CODE,DS :D ATA,ES :D ATA,SS:NOTHING

begin:
  mov       ax,DATA           
  mov       ES,AX             

  mov       di,OFFSET str_par 
  mov       si,len_par_addr   
  mov       cl,[si]          

  cmp       cl,0
  je         @900             

  mov       ch,0                                  
  inc         si
  cld                          
  rep movsb     
                                
  mov        DS,AX             

@900:
  mov      al,num_par
  mov      ah,4ch
  int      21h

Код: Выделить всё

data segment
n equ 10
stroka db "acvfgrndup"
data ends
code    segment 
    assume cs:code, ds:data, es:data, ss:nothing

start:
    mov ax,data
    mov ds,ax
    xor ax,ax

    mov cx,n
    lea bx,stroka
@m1:    mov al,[bx]
    cmp al,61h
    jb @next
    
    cmp al,71h
    ja @next
    
    and al,11011111b
    mov [bx],al
@next:    
    inc bx
    dec cx
    jnx @m1

@exit:
    mov ax,4c00h
    int 21h
code ends
end start

Код: Выделить всё

.model small
.stack 100h
.data
.code

.startup
	xor cx,cx	
	mov cl, es:[80h]
	jcxz exit
	mov si, 81h
up:
	mov al,es:[si]	; получить символ
	cmp al,'a'		; ниже "a"?
	jb  next_up
	cmp al,'z'		; более "z"?
	ja  next_up
	and BYTE PTR es:[si],11011111b	; преобразовать в верхний
next_up:
	inc si ; next char
	loop up
exit:
	mov ax, 4c00h
	int 21h
end

Код: Выделить всё

cseg segment
assume cs:cseg
start:

;код

cseg ends
end start