77a4d027abde47db90f494a46a536d aa doc Created on l1/3/19999:42:00PM 2.将程序中的存储数改为压缩BCD码 segment para 52h,14h,s6h,8h,34h 63h,38h,7oh,18h,69 S-offset block I dup(?) assume cs cseg ds data start proc ax, dat mov ds. ax offset block bx, offset max mov dl, [si] mov comp: lodsb next dl. al next mov [bx], dI print: mov bx. offset max mov dl, [bx] d. cl add dl. 30h 21h mov and dl. ofh dl. 30h 21h ah. 4ch 21h 第3页77a4d027abde47db90f494a46a536daa.doc Created on 11/3/1999 9:42:00 PM 第 3 页 2. 将程序中的存储数改为压缩 BCD 码 data segment para block db 52h,14h,56h,85h,34h db 63h,38h,70h,18h,69h count equ $-offset block max db 1 dup(?) data ends cseg segment assume cs:cseg,ds:data start proc far mov ax, data mov ds, ax mov si, offset block mov bx, offset max mov cx, count mov dl, [si] inc si dec cx mov ah, 0 mov dh, 0 comp: lodsb cmp dx, ax jg next mov dl, al next: loop comp mov [bx], dl print: mov bx, offset max mov dl, [bx] mov cl, 4 shr dl, cl add dl, 30h mov ah, 2 int 21h mov dl, [bx] and dl, 0fh add dl, 30h mov ah, 2 int 21h mov ah, 4ch int 21h ret