实验四

实验四子程序设计程序如下：STACK SEGMENT PARA STACK 'STACK'DB 100 DUP(?)STACK ENDSDATA SEGMENTORG 34FEHNULL DB 0AH,0DHORG 3500HBUF D B 80H DUP(?)CR EQU 0DHLF EQU 0AHMENU1 DB 'Please input number 1~5.' ,CR,LFDB '1.Iuput an string.Then convert the small letter to big letter.',CR,LFDB '2.Find the charater whose ASCII code is bigger.' ,CR,LFDB '3.Sort the character by ASCII code by decreasing order.' ,CR,LFDB '4.Display the ticking time.',CR,LFDB '5.End the program.',CR,LF,'$'MESG1 DB CR,LF,'Input a string.',CR,LF,'$'MESG2 DB CR,LF,'Input the time.(XX YY ZZ) Press any key to stop.',CR,LF,'$'MESG3 DB CR,LF,'Press any key to do again or press ESC to return to mainmenu.',CR,LF,'$'MESSAGE1 DB 'You choose 'NUM DB 0MESSAGE2 DB CR,LF, 'Press any key to continue or press ESC to return main menu.',CR,LF,'$'TEN DB 16MERROR1 DB 'Error!Please input 1~5.',CR,LF,'$'MERROR2 DB 'The input time is wrong!',CR,LF,'$'DATA ENDSCODE SEGMENTASSUME CS:CODE, DS:DATA, SS:STACKNEXTL PROC NEARMOV AH,2MOV DL,0AHINT 21HMOV DL,0DHINT 21HRETNEXTL ENDPL1 PROC NEARMOV AH,09HMOV DX,OFFSET MESG1INT 21HMOV AH,01L1R1: INT 21HMOV [SI],ALINC SICMP AL,0DHJNE L1R1MOV BL,36MOV [SI],BLLIR2: DEC SIMOV BL,[SI]CMP BL,61HJB L1R3CMP BL,7AHJA L1R3SUB BL,20HMOV [SI],BLL1R3: CMP SI,3500HJNZ LIR2MOV DX,34FEHMOV AH,9INT 21HCALL DAGAINJMP L1L1 ENDPL2 PROC NEARMOV AH,09HMOV DX,OFFSET MESG1INT 21HMOV BL,0MOV AH,1L2R1: INT 21HCMP BL,ALJA L2R2MOV BL,ALL2R2: CMP AL,0DHJNZ L2R1CALL NEXTLMOV DL,BLINT 21HCALL DAGAINJMP L2L2 ENDPL3 PROC NEARMOV AH,09HMOV DX,OFFSET MESG1INT 21HMOV SI,3500HMOV BX,0MOV AH,0FFHMOV [SI-1],AHMOV AH,01L3R1: INT 21HMOV [SI+BX],ALCMP AL,0DHJZ L3R4INC BXMOV CX,BXL3R2: MOV DL,[SI+BX-2]CMP [SI+BX-1],DLJBE L3R3XCHG [SI+BX-1],DLMOV [SI+BX-2],DLDEC BXJMP L3R2L3R3: MOV BX,CXJMP L3R1L3R4: MOV [SI-1],ALMOV AL,24HMOV [SI+BX],ALMOV DX,34FEHMOV AH,9INT 21HCALL DAGAINJMP L3L3 ENDPL4 PROC NEARMOV AH,09HMOV DX,OFFSET MESG2INT 21HMOV SI,3500HMOV AH,01MOV [SI],ALCMP AL,0DHJZ L4R2INC SIJMP L4R1L4R2: CALL NEXTLMOV AL,24HMOV SI,3500H MOV [SI+8],ALMOV BX,[SI]CALL ATBMOV CH,BLMOV BX,[SI+3]CALL ATBMOV CL,BLMOV BX,[SI+6]CALL ATBMOV DH,BLCALL CHECKMOV AH,3INT 1AHL4R3: MOV AH,2INT 1AHCMP DH,BLJZ L4R3MOV AL,DHMOV BL,DHCALL BTAMOV [SI+6],AXCMP DH,0JNZ L4R4MOV AL,CLCALL BTAMOV [SI+3],AXCMP CL,0JNZ L4R4MOV AL,CHCALL BTAMOV [SI],AXL4R4: MOV AH,9MOV DX,34FFHINT 21HMOV AH,06HMOV DL,0FFHINT 21HCMP AL,0JNZ L4R5JMP L4R3L4R5: CALL DAGAINJMP L4L4 ENDPCHECK PROC NEARCMP DH,59HJA ERROR2CMP CL,59HJA ERROR2CMP CH,23HJA ERROR2MOV AH,3AHMOV [SI+2],AHMOV [SI+5],AHRETERROR2: MOV AH,9MOV DX,OFFSET MERROR2INT 21HCALL DAGAINJMP L4CHECK ENDPATB PROC NEARSUB BX,3030HMOV AL,BLMUL TENADD AL,BHMOV BL,ALRETATB ENDPBTA PROC NEARMOV AH,0DIV TENADD AX,3030HRETBTA ENDPERROR1 PROC NEARMOV AH,9MOV DX,OFFSET MERROR1INT 21HRETERROR1 ENDPCONTINUE PROC NEARMOV NUM,ALMOV AH,9MOV DX,OFFSET MESSAGE1INT 21HMOV AH,8INT 21HCMP AL,27JZ MENURETCONTINUE ENDPDAGAIN PROC NEARMOV AH,9MOV DX,OFFSET MESG3INT 21HMOV AH,8INT 21HCMP AL,27JZ MENURETDAGAIN ENDPSTART: MOV AX,DATAMOV DS,AXMOV ES,AXLEA SI,BUFCALL MENUMENU PROC NEARMOV AH,09HMOV DX,OFFSET MENU1INT 21HINPUT: MOV AH,8INT 21HCMP AL,31HJE P1CMP AL,32HJE P2CMP AL,33HJE P3CMP AL,34HJE P4CMP AL,35HJZ EXITCALL ERROR1JMP INPUTP1: CALL CONTINUECALL L1P2: CALL CONTINUECALL L2P3: CALL CONTINUECALL L3P4: CALL CONTINUECALL L4MENU ENDPEXIT: CALL CONTINUEMOV AX,4C00HINT 21HCODE ENDSEND START。