China DOS Union

Hello moderator!
I really admire your programming skills!
Can you change this assembly program of yours into TC style writing?
Let me thank you in advance!
----------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------

add environment variable subroutine”

function InsertEnvVar:Boolean; assembler;
asm mov es,
mov es,es:
mov ax,es:
dec ax
mov es,ax
mov dx,es:
shl dx,4
inc ax
mov es,ax
cld
xor di,di
xor ax,ax
mov cx,dx
@@l1: repne scasb
mov bx,di
dec cx
scasb
jnz @@l1
cmp word ptr es:,1
jnz @@no_ext
scasw
sub cx,2
repne scasb
jnz @@err
@@no_ext:
cmp cx,10
jl @@err
push ds
push es
pop ds
mov si,di
add di,10
mov cx,si
sub cx,bx
std
dec si
dec di
rep movsb
cld
pop ds
mov si,offset env
mov di,bx
mov cx,10
rep movsb
mov al,1
jmp @@e
@@err:
mov al,0
@@e:
end;
----------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------