21,459
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
VxD1 2005-03-14
- 打赏
- 举报
n = 100
dseg segment
buf1 db n
buf2 db ?
buf db n dup ('$')
var dw 0
dseg ends
;
cseg segment
assume cs:cseg,ds:dseg
start:mov ax,dseg
mov ds,ax
mov ah,0ah
mov dx,offset buf1
int 21h
mov si,offset buf
xor ah,ah
mov al,[si]
inc si
next: add al,[si]
adc ah,0
inc si
cmp [si],0dh
jnz next
mov var,ax
mov ah,4ch
int 21h
cseg ends
end start
dseg segment
buf1 db n
buf2 db ?
buf db n dup ('$')
var dw 0
dseg ends
;
cseg segment
assume cs:cseg,ds:dseg
start:mov ax,dseg
mov ds,ax
mov ah,0ah
mov dx,offset buf1
int 21h
mov si,offset buf
xor ah,ah
mov al,[si]
inc si
next: add al,[si]
adc ah,0
inc si
cmp [si],0dh
jnz next
mov var,ax
mov ah,4ch
int 21h
cseg ends
end start
