DATEN SEGMENT

diff   equ 32       ; Differenz bzw. Abstand zwischen Groß und Kleinbuchstaben in
strg   db "ABCDEFGHIJ"  ; der ASCII-Tabelle

leng   equ $ - strg

       db "$"

DATEN ENDS

CODE SEGMENT

ASSUME CS:CODE,DS:DATEN

begin:      mov ax, DATEN
        mov ds, ax
        lea bx, strg

        mov cx, leng

print_v:    lea dx, strg        ; Unveränderten String auf dem Bildschirm
        mov ah, 09h     ; ausgeben
        int 21h

convert:    add [bx], byte ptr diff ; Umwandeln des Strings
        inc bx
        loop convert

print_n:    lea dx, strg        ; Veränderten String auf dem Bildschirm
        mov ah, 09h     ; ausgeben
        int 21h

exitprog:   mov ah, 4Ch     ; Programm beenden
        int 21h
CODE ENDS
     END begin