调试没有错误运行不出来
dat segment
a db 1,2,3,4,5
b db 7,5,8,4,3
c db 6 dup(0)
d db 10 dup(0)
dat ends
cod segment
assume cs:cod,ds:dat
start:
mov ax,dat
mov ds,ax
mov cx,5
mov bx,4
mov si,cx-1
clc
h1:
mov al,a[bx]
mul b[si]
aam
adc al,c[bx+1]
aaa
mov c[bx+1],al
mov c[bx],ah
dec bx
loo...

dat segment
a db 3,4,0,6,7,8,0,4
dat ends
code segment
assume cs:code,ds:dat
start:
mov ax,dat
mov  ds,ax
mov cx,8
dec cx
loop1:mov di,cx
mov bx,0
loop2:
mov al,a[bx]
cmp al,a[bx+1]
jne next
xchg al,a[bx+1]
mov a[bx],al
next:add bx,1
loop  loop2
mov cx,di
loop loop1
mov ah,2
m...