Lab 3 ACLA

.model small
.stack
.data
    mesaj1    db 10,13,'Introduceti un sir: ','$'
    maxlength db 50
    curlength db ?
    s1        db 50 dup(?),'$'
    s2        db 5  dup(?)


    primsir   db 10,13,'1 sir :','$'
    doisir    db 10,13,'2 sir   :','$'
.code

   mov ax,@data           ;initializarea
   mov ds,ax

    mov ah,09h
    lea dx,mesaj1               ;afisare mesaj1
    int 21h

    mov ah,0ah
    mov dx,offset maxlength
    int 21h
    mov bl,curlength              ;introducerea sirului
    mov bh,0
    mov s1[bx],'$'

    mov al,s1[bx-2]
    mov s2[0],al
    mov al,s1[bx-2]
    mov s2[1],al                  ;mutare caractere in 2 sir
    mov al,s1[bx-2]
    mov s2[2],al
    mov al,s1[0]
    mov s2[3],al
    mov s2[4],'$'

    mov ah,09h
    lea dx,primsir
    int 21h

    mov ah,09h                  ;afisarea 1 sir
    lea dx,s1
    int 21h

    mov ah,09h
    lea dx,doisir
    int 21h
                            ;afisarea 2 sir
    mov ah,09h
    lea dx,s2
    int 21h

    mov ah,4ch
    int 21h               ;finalizare
end