assume ss:pile,ds:donnees,cs:code

pile segment stack use16
        db 1024 dup(?)
pile ends


donnees segment use16
        tab DB 5,8,'A','Z'
        tab1 dw 8,1100b,4C01h,0F0Ah
        var db 'a'
donnees ends

code segment use16

main:
        mov ax,donnees
        mov ds,ax

        mov al,2
        add al,'Z'

        mov bx,2
        mov tab[bx],'y'
        lea si,tab1

        mov ax,11F8h
        mov word ptr[si],0B345h

        mov ax,4C00h
        int 21h
code ends
end main