8086汇编练习

STACK SEGMENT 'STACK'DW 4096 DUP('C')TOP LABEL WORDSTACK ENDSDATA SEGMENTTRANSFORM DB '1.TRANSFORM', 0DH,0AH,'$'MAX DB '2.MAX',0DH,0AH,'$'SORT DB '3.SORT',0DH,0AH,'$'TIME DB '4.TIME',0DH,0AH,'$'EXIT DB '5.EXIT',0DH,0AH,'$'WAITING DB 'PLEASE INPUT NUM 1-5 TO SELECT SERVICE:',0DH,0AH,'$'TIP DB 'PLEASE INPUT A STRING',0DH,0AH,'$'TIPNUM DB 'PLEASE INPUT A GROUP OF DECIMAL',0DH,0AH,'$'ANYKEY DB 'PRESS ANY KEY TO CONTINUE',0DH,0AH,'$'MAXIMUM DB 'THE MAXIMUM IS:$ 'INPUT_TIME DB 'PLEASE INPUT CURRENT TIME LIKE HH:MM:SS',0DH,0AH,'$'QUESTION DB 'DO YOU WANT TO SET TIME(Y/N)',0DH,0AH,'$'INPUT_ERROR DB'ERROR OR INVALID INPUT',0DH,0AH,'$'SUCCESS DB 'SET TIME SUCCEED',0DH,0AH,'$'STRING DW TRANSFORM,MAX,SORT,TIME,EXIT,WAITINGSERVICE DW TRANS,FIND_MAX,SORTING,SET_TIME,EXIT_TOSYSBUFFER1 DB 512 DUP('C') ;INPUT BUFFERBUFFER2 DB 512 DUP('C') ;PROCESS WORKSPACEBUFFER3 DB 512 DUP('C') ;OUTPUT BUFFERDATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA,ES:DATA,SS:STACKSTART:MOV AX,DATAMOV DS,AXMOV ES,AXLEA AX,TOPMOV SP,AXCALL SCREEN_INITMAIN_AGAIN:CALL CLEAR_SCREENCALL DISPLAY_MENUCALL GET_CHARCALL ORDER_PARSEJMP MAIN_AGAINMOV AH,4CHINT 21HORDER_PARSE PROC NEAR ;RETURN AL=-1 IF ERROR ELSE INVOKE SERVICEPUSH AXPUSH BXAND AL,0FHCMP AL,1JB ERROR_OVERCMP AL,5JA ERROR_OVERLEA BX,SERVICEDEC ALSHL AL ,1XOR AH,AHADD BX,AXCALL CLEAR_SCREENCALL word ptr [BX]POP BXPOP AXJMP OVER_ORDERERROR_OVER :MOV AL,0FFHOVER_ORDER:RETORDER_PARSE ENDPDISPLAY_MENU PROC NEAR ;display menu including five itemsPUSH DXPUSH CXPUSH SIMOV DH,0BHMOV DL,14HMOV CX,06HLEA SI,STRINGNEXT_DIS:MOV BH,0CALL CURSOR_SETPUSH DXMOV DX,[SI]ADD SI,02HCALL STRING_DISPLAYPOP DXINC DHLOOP NEXT_DISPOP SIPOP CXPOP DXRETDISPLAY_MENU ENDPSCREEN_INIT PROC NEAR ;set screen mode 80*25 characterPUSH AXMOV AH,0MOV AL,02HINT 10HPOP AXRETSCREEN_INIT ENDPCURSOR_SET PROC NEAR ;set cursor BH PAGE,DH ROW,DL COLUMNPUSH AXMOV AH,02HINT 10HPOP AXRETCURSOR_SET ENDPSTRING_DISPLAY PROC NEAR ;display string DX ADDRESSPUSH AXMOV AH,09HINT 21HPOP AXRETSTRING_DISPLAY ENDPCLEAR_SCREEN PROC NEAR ;clear screenPUSH AXMOV AX,3INT 10HPOP AXRETCLEAR_SCREEN ENDPGET_CHAR_DIR PROCPUSH DXMOV AH,06HMOV DL,0FFHINT 21HPOP DXRETGET_CHAR_DIR ENDPGET_CHAR_N PROC NEAR;AL<=INPUT CHAR,NO DISPLAYMOV AH,07HINT 21HRETGET_CHAR_N ENDPGET_CHAR PROC NEAR ;AL<=IMPUT CHARPUSH DXMOV AH,01HINT 21HPUSH AXMOV DL,0DHMOV AH,02HINT 21HMOV DL,0AHINT 21HPOP AXPOP DXRETGET_CHAR ENDPGET_STRING PROC NEAR ;DS:DX<=STRINGPUSH AXPUSH DXPUSH BXPUSH SILEA DX,BUFFER1MOV BUFFER1,0FFHMOV AH,0AHINT 21HMOV BL,BUFFER1+1XOR BH,BHLEA SI,BUFFER1[BX+2]CALL STR_ENDPOP SIPOP BXPOP DXPOP AXRETGET_STRING ENDPTRANS PROC ;PUSH AXPUSH DXPUSH CXPUSH SIPUSH DILEA DX,TIPCALL STRING_DISPLAYAGAIN_TRANS:CALL GET_STRINGLEA SI,BUFFER1+2LEA DI,BUFFER2MOV CL,BUFFER1+1XOR CH,CHJCXZ OVER_TRANSNEXT_TRANS:MOV AL, BYTE PTR [SI]CMP AL,'a'JB NOPROCESSCMP AL,'z'JA NOPROCESSAND AL,0DFHNOPROCESS:MOV BYTE PTR [DI],ALINC SIINC DILOOP NEXT_TRANSOVER_TRANS:MOV SI,DICALL STR_ENDLEA DX,BUFFER1+2CALL STRING_DISPLAYLEA DX,BUFFER2CALL STRING_DISPLAYLEA DX,ANYKEYCALL STRING_DISPLAYCALL GET_CHAR_NCMP AL,1BHJZ EXIT_TRANSJMP AGAIN_TRANSEXIT_TRANS:POP DIPOP SIPOP CXPOP DXPOP AXRETTRANS ENDPSTR_END PROC ;INSERT END FLAG SI=ADDRESSPUSH SIMOV BYTE PTR [SI],0DHINC SIMOV BYTE PTR [SI],0AHINC SIMOV BYTE PTR [SI],'$'POP SIRETSTR_END ENDPFIND_MAX PROC;FIND MAXIMUM AMOUNT A STRINGPUSH AXPUSH DXPUSH CXPUSH SILEA DX,TIPCALL STRING_DISPLAYMAX_AGAIN:CALL GET_STRINGLEA SI,BUFFER1+2MOV CL,BUFFER1+1XOR CH,CHMOV AL,[SI]JCXZ FIND_MAX_OVERFIND_MAX_NEXT:INC SICMP AL,[SI]JA MAX_NOPROCESSMOV AL,[SI]MAX_NOPROCESS:LOOP FIND_MAX_NEXTFIND_MAX_OVER:LEA DX,BUFFER1+2CALL STRING_DISPLAYLEA DX,MAXIMUMCALL STRING_DISPLAYMOV DL,ALCALL CHAR_DISPLAYMOV DL,0DHCALL CHAR_DISPLAYMOV DL,0AHCALL CHAR_DISPLAYLEA DX,ANYKEYCALL STRING_DISPLAYCALL GET_CHAR_NCMP AL,1BHJNZ MAX_AGAINPOP SIPOP CXPOP DXPOP AXRETFIND_MAX ENDPCHAR_DISPLAY PROC;DISPLAY A CHARACTER DLPUSH AXMOV AH,02HINT 21HPOP AXRETCHAR_DISPLAY ENDPDEC2HEX PROC ;10 TO 16 BUFFER1->BUFFER2,CNT->BUF2,NUM->BUF2+1PUSH AXPUSH BXPUSH CXPUSH DXPUSH SIPUSH DILEA SI,BUFFER1+2LEA DI,BUFFER2+1XOR CH,CHMOV CL,BUFFER1+1MOV AL,0MOV BL,0AHMOV BYTE PTR BUFFER2,0JCXZ DH_OVERDEC_NEXT:MOV BH,BYTE PTR [SI]CMP BH,' 'JZ NEXT_NUMCMP BH,'0'JB ERROR_OVERFLOWCMP BH,'9'JA ERROR_OVERFLOWCMP BH,':'JZ NEXT_NUMAND BH,0FHMUL BLJC ERROR_OVERFLOWADD AL,BHJC ERROR_OVERFLOWJMP NEXT_PRONEXT_NUM:MOV [DI],ALINC DIINC BYTE PTR BUFFER2XOR AX,AXNEXT_PRO:INC SILOOP DEC_NEXTMOV [DI],ALINC BYTE PTR BUFFER2JMP DH_OVERERROR_OVERFLOW:MOV BUFFER2,0DH_OVER:POP DIPOP SIPOP DXPOP CXPOP BXPOP AXRETDEC2HEX ENDPHEX2DEC PROC ;INPUT:BUFFER2,NUM,BUFFER2+1,START;; OUTPUT:BUFFER3,STRING,STACK :OR ,3OR2PUSH AXPUSH BXPUSH CXPUSH DXPUSH SIPUSH DIMOV BP,SPADD BP,0EHLEA DI,BUFFER3LEA SI,BUFFER2+1MOV CL,BUFFER2XOR CH,CHMOV BL,0AHJCXZ HEX_OVERHEX2DEC_OUTTER:MOV AH,0MOV AL,[SI]PUSH CXPUSH DIMOV DL,[BP+1]XOR DH,DHADD DI,DXDEC DIMOV CL,[BP+1]HEX2DEC_INNER:DIV BLOR AH,30HMOV BYTE PTR [DI],AHDEC DIXOR AH,AHLOOP HEX2DEC_INNERINC SIPOP DIPOP CXADD DI,DXMOV AH,[BP]MOV BYTE PTR [DI],AHINC DILOOP HEX2DEC_OUTTERHEX_OVER:MOV SI,DICALL STR_ENDPOP DIPOP SIPOP DXPOP CXPOP BXPOP AXRET 2HEX2DEC ENDPSTR_NUM_ADJUST PROC;INPUT:BUFFER3， REMOVE INVALID ZEROPUSH AXPUSH BXPUSH SIPUSH DILEA SI,BUFFER3LEA DI,BUFFER3XOR AL,ALL1:MOV BL,[SI]CMP BL,0DHJZ ADJUST_OVERCMP BL,' 'JZ CHAR_NEXTCMP BL,'0'JZ CHECK_FLAGMOV AL,01HJMP TRANSFERCHECK_FLAG:CMP AL,0JZ ADJUST_NEXTTRANSFER:MOV [DI],BLINC DIJMP ADJUST_NEXTCHAR_NEXT:MOV BYTE PTR [DI],' 'INC DIXOR AL,ALADJUST_NEXT:INC SIJMP L1ADJUST_OVER:MOV SI,DICALL STR_ENDPOP DIPOP SIPOP BXPOP AXRETSTR_NUM_ADJUST ENDPSORTING PROC ;SORTPUSH AXPUSH CXPUSH DXPUSH DISORT_AGAIN:LEA DX,TIPNUMCALL STRING_DISPLAYCALL GET_STRINGCALL DEC2HEXXOR CH,CHMOV CL,BUFFER2JCXZ SORT_ERRORDEC CXJCXZ SORT_COMPLETESORT_OUTTER:LEA DI,BUFFER2+1PUSH CXSORT_INNER:MOV AL,[DI]CMP AL,[DI+1]JBE SORT_NOPROCESSXCHG AL,[DI+1]MOV [DI],ALSORT_NOPROCESS:INC DILOOP SORT_INNERPOP CXLOOP SORT_OUTTERSORT_COMPLETE:MOV AH,03HMOV AL,' 'PUSH AXCALL HEX2DECCALL STR_NUM_ADJUSTLEA DX,BUFFER1+2CALL STRING_DISPLAYLEA DX,BUFFER3CALL STRING_DISPLAYSORT_TIP:LEA DX,ANYKEYCALL STRING_DISPLAYCALL GET_CHAR_NCMP AL,1BHJNZ SORT_AGAINJZ SORT_OVERSORT_ERROR:LEA DX,INPUT_ERRORCALL STRING_DISPLAYJMP SORT_TIPSORT_OVER:POP DIPOP DXPOP CXPOP AXRETSORTING ENDPSET_TIME PROC;TIME SET SERVICEPUSH AXPUSH CXPUSH DXSETTIME_AGAIN:CALL CLEAR_SCREENLEA DX,QUESTIONCALL STRING_DISPLAYREFRESH:MOV AH,2CHINT 21HMOV BUFFER2,3MOV BUFFER2+1,CHMOV BUFFER2+2,CLMOV BUFFER2+3,DHMOV AH,02HMOV AL,':'PUSH AXCALL HEX2DECMOV AH,02HMOV BH,0MOV DH,0MOV DL,60INT 10HMOV BUFFER3+8,' 'LEA DX,BUFFER3CALL STRING_DISPLAYCALL GET_CHAR_DIRJZ REFRESHCMP AL,'Y'JNZ NOSETLEA DX,INPUT_TIMECALL STRING_DISPLAYCALL GET_STRINGCALL DEC2HEXMOV AH,2DHMOV CH,BUFFER2+1MOV CL,BUFFER2+2MOV DH,BUFFER2+3MOV DL,0INT 21HCMP AL,0HJZ SET_TIME_SUCCLEA DX,INPUT_ERRORCALL STRING_DISPLAYJMP NOSETSET_TIME_SUCC:LEA DX,SUCCESSCALL STRING_DISPLAYNOSET:LEA DX,ANYKEYCALL STRING_DISPLAYCALL GET_CHAR_NCMP AL,1BHJNZ SETTIME_AGAINPOP DXPOP CXPOP AXRETSET_TIME ENDPEXIT_TOSYS PROCMOV AH,4CHINT 21HRETEXIT_TOSYS ENDPCODE ENDSEND START