Форум программистов [Powered by Invision Power Board]

Код


.DATA segment
   
    pkey db "press any key...$" 
    message1 db "Enter string: $" 
    crlf     db       0Dh,0Ah,'$'  
    buffer   db 121
    rezult db 121
    Klaida db "Error! $"
ends

.STACK segment
    dw   128  dup(0)
ends

.CODE
start:
; set segment registers:
mov ax, @data
mov ds, ax
mov es, ax
;------------------------------------------------------------------------------------
mov       dx,offset message1
mov       ah,9                             ;pe4ataem na ekrane stroku
int       21h           
;--------------------------------------------------------------------------------------------
mov       dx,offset buffer
mov       ah,0Ah                   ;schityvaem stroku s klaviatury v buffer
int       21h               
;---------------------------------------------------------------------------------
mov si, offset buffer        ;uznajom dlinny stroki (etot kusok ja skopiroval z drugogo isxodnika, i    
mov bl, [si+1]                ;nesovsem ponimaju kak eto rabotaet, mozet ktonibut smozet objasnit'?
mov ah, 0
;----------------------------------------------------------------------------------------
mov       dx,offset crlf
mov       ah,9            ;Perevod kursora na druguju strocku
int       21h
;-----------------------------------------------------------------------------------------  
        
tikrink:  
mov al, buffer+2      ;zapisujem v registr al ASCII kod 1 bukvy  
cmp al, 'a'         ;Jesli kod v reg. al mesne od koda bukvy 'a' vozmozno eto bolsaja bukva
jb didzioji         ;perexod na drugoj kusok koda
cmp al, 'z'         ;jesli ASCII kod bolse koda bukvy 'z' to eto ne bukva
ja err              ;perexodim na kod kotoryj otpeciatajet stroku ob osybke
and al, 11011111b   ;izmeniajem malenkuju bukvu na bolshuyu
mov [rezult+1], al  ;zapisujem jejo v rezultat

jg tikrink          ;pereprygujem na nacialo cikla
;---------------------------------------------------------------------------------------- 
didzioji:
        cmp al, 'A'        ;proveriaem bukvy na pravilnost i izmeniajem ix na malenkije
        jb err
        cmp al, 'Z'
        or al, 00100000b
        mov [rezult+2], al  ; zapisujem rezultat

        jg tikrink
        ends didzioji 
;---------------------------------------------------------------------------------------    
err:
    lea dx, klaida
    mov ah,9
    int 21h
    ends err
;--------------------------------------------------------------------------------------
    lea dx, pkey
    mov ah, 9
    int 21h        ; output string at ds:dx
    
    ; wait for any key....    
    mov ah, 1
    int 21h
    
    mov ax, 4c00h ; exit to operating system.
    int 21h  
    ends err
;---------------------------------------------------------------------------------------
 
    ; wait for any key....    
    mov ah, 1
    int 21h
    
    mov ax, 4c00h ; exit to operating system.
    int 21h    
ends

end start ; set entry point and stop the assembler.

Код


mov al, buffer+2

Код

mov si, offset buffer        ;uznajom dlinny stroki (etot kusok ja skopiroval z drugogo isxodnika, i    
mov bl, [si+1]                ;nesovsem ponimaju kak eto rabotaet, mozet ktonibut smozet objasnit'?
mov ah, 0

Код


    .MODEL small
    .DATA

pkey          db "press any key...$"
message1      db "Enter string: $"
crlf          db 0Dh,0Ah,'$'
;--- bufer dlya func 0Ah dolzhen bit' takim:
strbuf        db 120                    ;max len
              db 0                      ;out len
              db 120 dup (0)            ;stroka
;---
msg_result    db "      string: "
result        db 120 dup (0)

    .STACK
              dw 128 dup(0)

    .CODE

start:
; set segment registers:
    mov       ax, @data
    mov       ds, ax
    mov       es, ax
;------------------------------------------------------------------------------------
    mov       dx, offset message1
    mov       ah, 9                     ;pe4ataem na ekrane stroku
    int       21h           
;--------------------------------------------------------------------------------------------
    mov       dx, offset strbuf
    mov       ah, 0Ah                   ;schityvaem stroku s klaviatury v buffer
    int       21h               
;---------------------------------------------------------------------------------
    mov       si, offset strbuf
    xor       ax, ax
    xor       bx, bx
    mov       bl, [si+1]                ;dlina stroki(sm. structuru bufera)
    add       si, 2                     ;dvigaem ukazatel' na samu stroku
    add       bx, si                    ;stroka zakan4ivaetsya 0Dh - vi4islyaem ego
    mov       [bx], al                  ;posiciju i pishem tuda 0.
;----------------------------------------------------------------------------------------
    mov       dx, offset crlf
    mov       ah, 9                     ;Perevod kursora na druguju strocku
    int       21h
;-----------------------------------------------------------------------------------------  
    cld                                 ;sbrasivaem flag napravleniya (dlya lodsb/stosb)
    mov       di, offset result
nextsym:
    lodsb                               ;al=ds:[si], si=si+1
    or        al, al
    je        stop
    cmp       al, 'A'
    jb        skip
    cmp       al, 'Z'
    jb        downcase
    cmp       al, 'a'
    jb        skip
    cmp       al, 'z'
    ja        skip
upcase:
    sub       al, 20h                   ;upcase
skip:
    stosb                               ;es:[di]=al, di=di+1
    jmp       nextsym
downcase:
    add       al, 20h                   ;downcase
    stosb                               ;es:[di]=al, di=di+1
    jmp       nextsym
stop:
    mov       al, '$'                   ;pishem v konec stoki $ dlya vivoda func-ej 9
    stosb
;--------------------------------------------------------------------------------------
    mov       dx, offset msg_result
    mov       ah, 9
    int       21h
;--------------------------------------------------------------------------------------
    mov       dx, offset crlf
    mov       ah, 9                     ;Perevod kursora na druguju strocku
    int       21h
;----------------------------------------------------------------------------------------
    lea       dx, pkey
    mov       ah, 9
    int       21h
    ; wait for any key....    
    mov       ah, 8
    int       21h
    
    mov       ax, 4c00h ; exit to operating system.
    int       21h
;---------------------------------------------------------------------------------------
    END       start ; set entry point and stop the assembler.