汇编语言程序设计(5)

；------------------------------------------- CSEG SEGMENT PARA’code’ ASSUME CS:CSEG，ES:ESEG MINMAX PROC FAR

PUSH DS ；save DS for return SUB AX，AX PUSH AX

MOV AX，ESEG ；init ES MOV ES，AX

MOV CX，COUNT ；get ready for DEC CX ； count-1 compares LEA DI，UNORDLST ；address of the list MOV AX，BX ；and max. CHEMIN:

ADD DI，2 ；point to next element CMP ES:[DI]，BX ；compare element to min JAE CHKMAX ；new minimumfound? MOV BX，ES:[DI] ；yes，put it in BX JMP SHORT NEXTEL CHKMAX:

CMP ES:[DI]，AX ；compare element to max

JBE NEXTEL ；new max found? MOV AX，ES:[DI] ；yes，put it in AX NEXTEL:

LOOP CHEMIN ；check entire list? RET ；exit MINMAX ENDP

；------------------------------------------------------------------------- CSEG ENDS

END MINMAX

11、请用子程序结构编写如下程序，从键盘输入一个二位十进制的月份（01～12），然后显示出相关的英文缩写名。

答案：分析：这是一个比较简单的问题，我们可以按题目要求的几项功能，分别编写成几个程序。

INPUT 从键盘接收一个二位数，并把它转化为二进制数。

LOCATE 把输入数与英文缩写对应起来，这可在一个字符表中查找。 DISPLAY 将找到的缩写字母显示在屏幕上。显示可用DOS提供的显示功能（INT 21H的09功能）。

；----------------------------------------------------------------------------------- TITLE MONTH (EXE)

DATASG SEGMENT PARA ‘DATA’ THREE DB 3

MONIN DB 3，4 DUP(?)

ALFMON DB ‘???’， “$”

MONTAB DB ’JAN’ ，’FEB’， ‘MAR’，’APR’，’MAY’，’JUN’ DB ‘JUL’， ‘AUG’， ‘SEP’， ‘OCT’，’NOV’，’DEC’ DATASG ENDS

CODESG SEGMENT PARA ‘CODE’

ASSUME CS:CODESG，DS:DATASG， ES:DATASG MAIN PROC FAR PUSH DS SUB AX，AX PUSH AX

MOV AX，DATASG ；point to data seg. MOV DS ，AX MOV ES ，AX

CALL INPUT ；input and convert CALL LOCATE ；locate month CALL DISPLAY ；display alpha month RET

MAIN ENDP

；------------------------------------------------------------------------- ；Input and concert ASCII to vinary； INPUT PROC NEAR PUSH DX

MOV AH，0AH ；input from keybpard LEA DX，MONIN ；address of buffer INT 21H

MOV AH，MONIN+2 ；fetch numeric month MOV AL，MONIN+3

XOR AX，3030H ；clear ASCII 3`s CMP AH，00 ；month 01-09? JZ RETURN ；yes.bypass SUB AH，AH ；no，clear AH ADD AL，10 ；correct for binary RETURN: POP DX RET

INPUT ENDP

；----------------------------------------------------------------------------------- ；Locate month in table LOCATE PROC NEAR

PUSH SI ；save the registers PUSH DI PUSH DX

LEA SI，MONTAB DEC AL MOV BL, 3

MUL BL ；chars for each month ADD SI，AX

MOV CX，03 ；init`ze 3 chars move CLD

LEA DI，ALFMON

REP MOVSB ；mov 3 chars POP CX ；restore registers POP DI POP SI RET

LOCATE ENDP

；----------------------------------------------------------------------- ；Display alpha month DISPLAY PROC NEAR PUSH DX

LEA DX，ALFMON ；address of output MOV AH，09 ；display function INT 21H ；DOS call POP DX RET

DISPLAY ENDP

；---------------------------------------------------------------------------------