n10实验程序.pptVIP

again:lodsb cmp al, 90 jc next1 inc di Next1:cmp al, 60 jnc next2 inc bx Next2:clc add DL, al adc dh, 0 loop again mov ax, DX mov cl, Stulen div cl XOR DX, DX MOV DL, AL ;DL store Ave ;show 90 LEA SI, buf_Up90 MOV ax, di CALL HBCD MOV AL, BCD100 mov [si+4],AL MOV AL, BCD10 mov [si+5],al MOV AL, BCD1 mov [si+6],al mov byte ptr [si+7],$ ShowStr buf_Up90 ShowStr newline ;show 60 LEA SI, buf_Low60 MOV ax, bx CALL HBCD MOV AL, BCD100 mov [si+4],AL MOV AL, BCD10 mov [si+5],al MOV AL, BCD1 mov [si+6],al mov byte ptr [si+7],$ ShowStr buf_Low60 ShowStr