lab3_pmd

dosseg             ; Tells the assembler to use the DOS segment addressing mode
.model small
.stack 100h
.data
    MESAJ_1 DB 'Introdu caracterul: $'
    MESAJ_2 DB 0DH, 0AH, 'Caracterul dupa transfomare este: $'
    CARACTER DB ?, '$'
.code

convert_to_uppercase proc
MOV AX, @DATA
    MOV DS, AX

    LEA DX, MESAJ_1
    MOV AH, 9
    INT 21H

    MOV AH, 1
    INT 21H

    MOV BL, AL

    LEA DX, MESAJ_2
    MOV AH, 9
    INT 21H

    SUB BL, 20H

    MOV AH, 2
    MOV DL, BL
    INT 21H

    MOV AH, 4CH
    INT 21H
endp

convert_to_lowercase proc
MOV AX, @DATA
    MOV DS, AX

    LEA DX, MESAJ_1
    MOV AH, 9
    INT 21H

    MOV AH, 1
    INT 21H

    MOV BL, AL

    LEA DX, MESAJ_2
    MOV AH, 9
    INT 21H

    ADD BL, 20H

    MOV AH, 2
    MOV DL, BL
    INT 21H

    MOV AH, 4CH
    INT 21H
endp

main proc
    CALL convert_to_uppercase
    ;CALL convert_to_lowercase
    ; IESIREA DIN PROGRAM ca sa nu dureze o eternitate..
    MOV AH, 4CH
    INT 21H
main endp
end main