中国DOS联盟

版主您好!
对您的编程技术我很佩服!
能把您这个汇编程序改成TC写法吗!
我先在这谢谢呢!
----------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------

添加环境变量子程序”

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;
----------------------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------------------