Проблема с загрузкой DS

includelib   import32.lib 
.386
.model flat, stdcall
    extrn MessageBoxA:proc
    extrn ExitProcess:proc
 
.data
    mb_title db 'Laboratornaya rabota #1', 0
    str db 0011010b
    lng  = ($-str)*8-1  ; длина строки
    res db lng dup(?)
 
.const
    MB_OK equ 0
 
.code 
    Main:
               ;попытка загрузки через регистр ax
        mov eax, 0040h
        mov ds, ax
 
        mov cx, lng ; cx - длина строки
        mov ebx, offset str
        mov edx, offset res
 
        call my_func
 
        call    MessageBoxA, 0, offset res, offset mb_title, MB_OK
        call    ExitProcess
 
        my_func proc
            mov eax, ebx
            push cx
            doit:
                btc [eax], cx
                cmp cx, 0
                je exit
            loop doit
            exit:
                        ;устанавливаю значение для res по адресу
                        ;но из-за неправильно установленного ds в содержимом мусор
                mov ds:[edx], eax
                pop cx
                ret
        my_func endp
 
    end Main