; D4 contains your string length
    MOVE.L D4,D3
    AND.W #$FFFE,D3
    ADDQ #2,D3 ; round up to the nearest 2

    Rjsr L_Demande ; string is in A0/A1
    LEA 2(A0,D3.W),A1
    MOVE.L A1,HiChaine(A5)
    MOVE.L A0,A1 ; put A1 back
    MOVE.W D4,(A0)+ ; put length of string at start of memory
.stringstuff
    MOVE.B (A2)+,(A0)+
    BNE .stringstuff ; copy until null terminator