北京理工大学汇编上机试题和代码

1、精品word北京理工高校汇编上机试题和代码修改版1. 请任意输入一个字符串，将该串倒序后在屏幕上显示。DATAS SEGMENT BUF1 DB 0FFH DB ? DB 0FFH DUP(?) BUF2 DB 0DH,0AH,0FDH DUP(?) DATAS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATASSTART: MOV AX,DATAS MOV DS,AX LEA DX,BUF1 MOV AH,0AH INT 21H MOV AX,0 MOV AL,BUF11 LEA SI,BUF11 ADD SI,AX LEA DI,BUF22 MOV CX,

2、0 MOV CL,BUF11 L: MOV AL,SI MOV DI,AL DEC SI INC DI LOOP L MOV BYTE PTR DI,'$' LEA DX,BUF2 MOV AH,09H INT 21H MOV AH,4CH INT 21HCODES ENDSEND START取巧：DATA SEGMENTDB 512 DUP('$') ;定义可输入的字符个数BUF DB '$'DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATASTART: MOV AX,DATA MOV DS,AXMOV BX

3、,OFFSET BUF ;指针指向待显示字符串尾部AGAIN:MOV AH,01 ;输入字符INT 21HCMP AL,0DH ;是回车吗JE DISP ;是,转显示DEC BX ;指针减1MOV BX,AL ;存入输入的字符JMP AGAIN ;连续输入DISP:MOV DX,BX ;定位待显示字符串首地址MOV AH,09 INT 21H ;显示MOV AH,4CH ;DOS返回INT 21HCODE ENDSEND START2.请任意输入一个字符串，统计其中空格和A的个数，并将结果显示在屏幕上。DATA SEGMENTBUF DB 0FFH DB ? DB 0FFH DUP (?)OU

4、TPUT DB 0DH,0AH,' A =000' DB 0DH,0AH,'SPACE=000','$'DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATASTART:MOV AX,DATAMOV DS,AXLEA DX,BUFMOV AH,0AHINT 21HLEA SI,BUF2MOV CX,0MOV CL,BUF1L:CMP BYTE PTRSI,'A'JNE NOTACMP OUTPUT10,'9'JE CAR1INC OUTPUT10JMP NEXTCAR1:CMP OU

5、TPUT9,'9'JE CAR2MOV OUTPUT10,'0'INC OUTPUT9JMP NEXTCAR2:MOV OUTPUT10,'0'MOV OUTPUT9,'0'INC OUTPUT8JMP NEXTNOTA:CMP BYTE PTRSI,' 'JNE NEXTCMP OUTPUT21,'9'JE CSR1INC OUTPUT21JMP NEXTCSR1:CMP OUTPUT20,'9'JE CSR2MOV OUTPUT21,'0'INC OUTPUT20

6、JMP NEXTCSR2:MOV OUTPUT21,'0'MOV OUTPUT20,'0'INC OUTPUT19JMP NEXTNEXT:INC SILOOP LLEA DX,OUTPUTMOV AH,09HINT 21HMOV AX,4C00HINT 21HCODE ENDSEND3.请任意输入一个字符串，将其中的空格全部删除，并将结果显示在屏幕上。DATA SEGMENTBUF1 DB 0FFH DB ? DB 0FFH DUP('?')BUF2 DB 0DH,0AH,0FDH DUP('?')DATA ENDSCODE S

7、EGMENT ASSUME CS:CODE,DS:DATA START: MOV AX,DATA MOV DS,AX LEA DX,BUF1 MOV AH,0AH INT 21H MOV CX,0 MOV CL,BUF11 LEA SI,BUF12 LEA DI,BUF22 L: CMP BYTE PTR SI,' ' JE M MOV AL,SI MOV DI,AL INC DI M: INC SI LOOP L MOV BYTE PTR DI,'$' LEA DX,BUF2 MOV AH,09H INT 21H MOV AX,4C00H INT 21HCOD

8、E ENDSEND4.请任意输入一个字符串，将其中A换成B，并将结果显示在屏幕上。DATA SEGMENT BUF DB 0FFH DB ? DB 0FFH DUP('?')DATA ENDSCODE SEGMENT ASSUME CS:CODE,DS:DATA START: MOV AX,DATA MOV DS,AX LEA DX,BUF MOV AH,0AH INT 21H MOV CX,0 MOV CL,BUF1 LEA SI,BUF2 L: CMP BYTE PTR SI,'A' JNE M MOV BYTE PTR SI,'B' M:

9、INC SI LOOP L MOV WORD PTR SI,0D0AH MOV BYTE PTR SI+2,'$' LEA DX,BUF2 MOV AH,09H INT 21H MOV AX,4C00H INT 21HCODE ENDSEND5.请任意输入一个字符串，将其中A换成CC，并将结果显示在屏幕上。DATA SEGMENT BUF1 DB 0FFH DB ? DB 0FFH DUP('?') BUF2 DB 0DH,0AH,0FDH DUP('?') DATA ENDSCODE SEGMENT ASSUME CS:CODE,DS:DATA

10、 START: MOV AX,DATA MOV DS,AX LEA DX,BUF1 MOV AH,0AH INT 21H MOV CX,0 MOV CL,BUF11 LEA SI,BUF12 LEA DI,BUF22 L: CMP BYTE PTR SI,'A' JNE M MOV WORD PTR DI,'CC' ADD DI,2 INC SI JMP N M: MOV AL,SI MOV DI,AL INC DI INC SI N: LOOP L MOV BYTE PTR DI,'$' LEA DX,BUF2 MOV AH,09H INT 2

11、1H MOV AX,4C00H INT 21HCODE ENDSEND6.请任意输入一个字符串，将其中大写字母换成小写字母，并将结果显示在屏幕上。DATA SEGMENT BUF1 DB 0FFH DB ? DB 0FFH DUP('?') BUF2 DB 0DH,0AH,0FDH DUP('?') DATA ENDSCODE SEGMENT ASSUME CS:CODE,DS:DATA START: MOV AX,DATA MOV DS,AX LEA DX,BUF1 MOV AH,0AH INT 21H MOV CX,0 MOV CL,BUF11 LEA SI

12、,BUF12 LEA DI,BUF22 L: MOV AL,SI MOV DI,AL CMP BYTE PTR DI,'a' JNB M OR BYTE PTR DI,00100000B M: INC DI INC SI N: LOOP L MOV BYTE PTR DI,'$' LEA DX,BUF2 MOV AH,09H INT 21H MOV AX,4C00H INT 21HCODE ENDSEND7.请任意输入一个字符串，将其中的英文字母全部删除，并将结果显示在屏幕上。DATA SEGMENT BUF1 DB 0FFH DB ? DB 0FFH DUP(

13、'?') BUF2 DB 0DH,0AH,0FDH DUP('?') DATA ENDSCODE SEGMENT ASSUME CS:CODE,DS:DATA START: MOV AX,DATA MOV DS,AX LEA DX,BUF1 MOV AH,0AH INT 21H MOV CX,0 MOV CL,BUF11 LEA SI,BUF12 LEA DI,BUF22 L: CMP BYTE PTR SI,'A' JNB M MOV AL,SI MOV DI,AL INC SI INC DI JMP NEXT M: CMP BYTE PTR

14、SI,'z' JNA N MOV AL,SI MOV DI,AL INC SI INC DI JMP NEXT N: CMP BYTE PTR SI,'a' JB H INC SI JMP NEXT H: CMP BYTE PTR SI,'Z' JA O INC SI JMP NEXT O: MOV AL,SI MOV DI,AL INC SI INC DI JMP NEXT NEXT: LOOP L MOV BYTE PTR DI,'$' LEA DX,BUF2 MOV AH,09H INT 21H MOV AX,4C00H I

15、NT 21HCODE ENDSEND8.现有一组字符串为data,name,time,file,code,path,user,exit,quit,text，请编写程序从键盘输入4个字符的字符串，假设存在将其修改为disk, 并在显示器上显示。DATAS SEGMENT BUF DB 05H DB ? DB 05H DUP('?') LIB DB 0DH,0AH,'data' DB 0DH,0AH,'name' DB 0DH,0AH,'time' DB 0DH,0AH,'file' DB 0DH,0AH,'c

16、ode' DB 0DH,0AH,'path' DB 0DH,0AH,'user' DB 0DH,0AH,'exit' DB 0DH,0AH,'quit' DB 0DH,0AH,'text','$' REPLACE DB 'disk'DATAS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,ES:DATASSTART: MOV AX,DATAS MOV DS,AX MOV ES,AX LEA DX,BUF MOV AH,0AH INT 2

17、1H LEA SI,BUF2 LEA DI,LIB2 MOV BX,DI MOV CX,10 L: CLD PUSH CX MOV CX,4 REPZ CMPSB JNZ N POP CX MOV SI,BX LEA DI,REPLACE MOV CX,4 M: MOV AL,DI MOV SI,AL INC DI INC SI LOOP M JMP EXIT N: ADD BX,6 MOV DI,BX LEA SI,BUF2 LOOP L EXIT: LEA DX,LIB MOV AH,09H INT 21H MOV AH,4CH INT 21HCODES ENDSEND START9.现有

18、一组字符串为ram,yes,red,the,get,for,and,key,not,may，请编写程序将他们按ASCII大小排序，并在显示器上显示。DATA SEGMENTLIB DB 'ram',0DH,0AH DB 'yes',0DH,0AH DB 'red',0DH,0AH DB 'the',0DH,0AH DB 'get',0DH,0AH DB 'for',0DH,0AH DB 'and',0DH,0AH DB 'key',0DH,0AH DB 'no

19、t',0DH,0AH DB 'may',0DH,0AH,'$'DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA,ES:DATASTART:MOV AX,DATAMOV DS,AXMOV DI,9A:MOV CX,DILEA SI,LIBB:MOV AL,SICMP AL,SI+5PUSH SIJA HJE OJB RO:INC SIMOV AL,SICMP AL,SI+5JA HJB RJE OH:POP SIPUSH SIMOV BX,3 M: MOV AL,BYTE PTRSI MOV AH,BYTE PTRSI

20、+5 MOV BYTE PTRSI,AH MOV BYTE PTRSI+5,AL INC SI DEC BX JNZ MR:POP SIADD SI,5LOOP BDEC DIJNZ ALEA DX,LIBMOV AH,09HINT 21HMOV AH,4CH INT 21HCODE ENDSEND START10.现有一组字符串为data,name,time,file,code,path,user,exit,quit,text，请编写程序从键盘输入4个字符的字符串，假设存在将其删除, 并在显示器上显示。DATA SEGMENTBUF DB 05H DB ? DB 05H DUP (?)LIB

21、 DB 0DH,0AH,'data','$' DB 0DH,0AH,'name','$' DB 0DH,0AH,'time','$' DB 0DH,0AH,'file','$' DB 0DH,0AH,'code','$' DB 0DH,0AH,'path','$' DB 0DH,0AH,'user','$' DB 0DH,0AH,'exit','$&

22、#39; DB 0DH,0AH,'quit','$' DB 0DH,0AH,'test','$'DATA ENDSCODE SEGMENT ASSUME CS:CODE,DS:DATA,ES:DATASTART:MOV AX,DATAMOV DS,AXMOV ES,AXLEA DX,BUFMOV AH,0AHINT 21HLEA SI,BUF2LEA DI,LIB2MOV DL,10L:PUSH SIPUSH DIMOV CX,4CLDREPZ CMPSBMOV AX,DIJE DEL POP DI POP SI ADD DI,7

23、DEC DLJNZ LJMP EXITDEL:MOV BX,AXSUB BX,6EXIT: LEA DX,LIBMOV CX,10M: PUSH DX CMP DX,BX JE NMOV AH,09HINT 21HN:POP DX ADD DX,7LOOP MMOV AH,4CHINT 21HCODE ENDSEND START11.现有一组字符串为data,name,time,file,code,path,user,exit,quit,text，请编写程序将上述字符串排序升序并插入disk使其人仍旧有序, 并在显示器上显示。DATA SEGMENTBUF DB 0FFHDB ?DB 0DH,

24、0AH,0FDH DUP('?')LIB DB 0DH,0AH,'data' DB 0DH,0AH,'name' DB 0DH,0AH,'time' DB 0DH,0AH,'file' DB 0DH,0AH,'code' DB 0DH,0AH,'path' DB 0DH,0AH,'user' DB 0DH,0AH,'exit' DB 0DH,0AH,'quit' DB 0DH,0AH,'text','$'

25、 DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA,ES:DATASTART:MOV AX,DATAMOV DS,AXMOV DI,9A:MOV CX,DILEA SI,LIB2B:MOV AL,SICMP AL,SI+6PUSH SIJA HJE OJB RO:INC SIMOV AL,SICMP AL,SI+6JA HJB RJE OH:POP SIPUSH SIMOV BX,4 M: MOV AL,BYTE PTRSI MOV AH,BYTE PTRSI+6 MOV BYTE PTRSI,AH MOV BYTE PTRSI+6,AL INC SI D

26、EC BX JNZ MR:POP SIADD SI,6LOOP BDEC DIJNZ ALEA DX,LIBMOV AH,09HINT 21HMOV AH,4CH INT 21HCODE ENDSEND START12.键盘输入一个十进制数，以十六进制的形式输出。CODES SEGMENT ASSUME CS:CODESSTART:NEXT: MOV BX,0 CALL INPUT CALL OUTPUT JMP NEXTINPUT PROC NEARSHURU: MOV AH,01H INT 21H CBW CMP AX,0DH JE RETURN CMP AX,'0' JB

27、 EXIT CMP AX,'9' JA EXIT CALL TRANSFORM JMP SHURURETURN: RETINPUT ENDPTRANSFORM PROC NEAR XCHG AX,BX SUB BX,30H MOV CX,10 MUL CX ADD AX,BX XCHG AX,BX RETTRANSFORM ENDPOUTPUT PROC NEAR MOV DH,4 MOV CL,4CONTINUE: ROL BX,CL MOV DL,BL AND DL,0FH CMP DL,9 JA ZIMU ADD DL,30H JMP SHUCHUZIMU: ADD DL

28、,37HSHUCHU: MOV AH,02H INT 21H DEC DH CMP DH,0 JNE CONTINUE MOV DL,0AH MOV AH,02H INT 21H MOV DL,0DH MOV AH,02H INT 21H RETOUTPUT ENDPEXIT: MOV AH,4CH INT 21HCODES ENDSEND START13.键盘输入一个十进制数，以二进制的形式输出。CODES SEGMENT ASSUME CS:CODESSTART:NEXT: MOV BX,0 CALL INPUT CALL OUTPUT JMP NEXTINPUT PROC NEARSHU

29、RU: MOV AH,01H INT 21H CBW CMP AX,0DH JE RETURN CMP AX,'0' JB EXIT CMP AX,'9' JA EXIT CALL TRANSFORM JMP SHURURETURN: RETINPUT ENDPTRANSFORM PROC NEAR XCHG AX,BX SUB BX,30H MOV CX,10 MUL CX ADD AX,BX XCHG AX,BX RETTRANSFORM ENDPOUTPUT PROC NEAR MOV DH,16 MOV CL,1CONTINUE: ROL BX,CL M

30、OV DL,BL AND DL,00000001H ADD DL,30HSHUCHU: MOV AH,02H INT 21H DEC DH CMP DH,0 JNE CONTINUE MOV DL,0AH MOV AH,02H INT 21H MOV DL,0DH MOV AH,02H INT 21H RETOUTPUT ENDPEXIT: MOV AH,4CH INT 21HCODES ENDS END START14.键盘输入一个二进制数，以十六进制的形式输出。CODES SEGMENT ASSUME CS:CODESSTART:NEXT: MOV BX,0 CALL INPUT CALL

31、 OUTPUT JMP NEXTINPUT PROC NEARSHURU: MOV AH,01H INT 21H CBW CMP AX,0DH JE RETURN CMP AX,'0' JB EXIT CMP AX,'1' JA EXIT CALL TRANSFORM JMP SHURURETURN: RETINPUT ENDPTRANSFORM PROC NEAR XCHG AX,BX SUB BX,30H MOV CX,2 MUL CX ADD AX,BX XCHG AX,BX RETTRANSFORM ENDPOUTPUT PROC NEAR MOV DH

32、,4 MOV CL,4CONTINUE: ROL BX,CL MOV DL,BL AND DL,0FH CMP DL,9 JA ZIMU ADD DL,30H JMP SHUCHUZIMU: ADD DL,37HSHUCHU: MOV AH,02H INT 21H DEC DH CMP DH,0 JNE CONTINUE MOV DL,0AH MOV AH,02H INT 21H MOV DL,0DH MOV AH,02H INT 21H RETOUTPUT ENDPEXIT: MOV AH,4CH INT 21HCODES ENDS END START15.键盘输入一个二进制数，以十进制的形

33、式输出。CODES SEGMENT ASSUME CS:CODESSTART:AGAIN:MOV BX,0CALL INPUTCALL OUTPUTJMP AGAININPUT PROC NEARSHURU:MOV AH,01HINT 21HCBWCMP AX,0DHJE RETURNCMP AX,'0'JB EXITCMP AX,'1'JA EXIT CALL TRANSFORMJMP SHURURETURN:RETINPUT ENDPTRANSFORM PROC NEARXCHG AX,BXSUB BX,30HMOV CX,2MUL CXADD AX,BXX

34、CHG AX,BXRETTRANSFORM ENDPOUTPUT PROC NEARMOV AX,BXMOV DX,0MOV CX,10000DIV CXMOV BX,DXADD AL,30HMOV DL,ALMOV AH,02HINT 21HMOV AX,BXMOV DX,0MOV CX,1000DIV CXMOV BX,DXADD AL,30HMOV DL,ALMOV AH,02HINT 21HMOV AX,BXMOV DX,0MOV CX,100DIV CXMOV BX,DXADD AL,30HMOV DL,ALMOV AH,02HINT 21HMOV AX,BXMOV DX,0MOV

35、CX,10DIV CXPUSH DXADD AL,30HMOV DL,ALMOV AH,02HINT 21HPOP DXADD DL,30HMOV AH,02HINT 21HMOV DL,0AHMOV AH,02HINT 21HMOV DL,0DHMOV AH,02HINT 21HRETOUTPUT ENDPEXIT: MOV AH,4CH INT 21HCODES ENDS END START16.键盘输入一个十六进制数，以十进制的形式输出。CODES SEGMENT ASSUME CS:CODESSTART:AGAIN:MOV BX,0CALL INPUTCALL OUTPUTJMP AG

36、AININPUT PROC NEARSHURU:MOV AH,01HINT 21HCBWCMP AX,0DHJE RETURNCMP AX,'0'JB EXITCMP AX,'f'JA EXIT CALL TRANSFORMJMP SHURURETURN:RETINPUT ENDPTRANSFORM PROC NEARXCHG AX,BXCMP BX,'9'JA ZIMUSUB BX,30HJMP CHENGZIMU:SUB BX,57HCHENG:MOV CX,16MUL CXADD AX,BXXCHG AX,BXRETTRANSFORM EN

37、DPOUTPUT PROC NEARMOV AX,BXMOV DX,0MOV CX,10000DIV CXMOV BX,DXADD AL,30HMOV DL,ALMOV AH,02HINT 21HMOV AX,BXMOV DX,0MOV CX,1000DIV CXMOV BX,DXADD AL,30HMOV DL,ALMOV AH,02HINT 21HMOV AX,BXMOV DX,0MOV CX,100DIV CXMOV BX,DXADD AL,30HMOV DL,ALMOV AH,02HINT 21HMOV AX,BXMOV DX,0MOV CX,10DIV CXPUSH DXADD AL

38、,30HMOV DL,ALMOV AH,02HINT 21HPOP DXADD DL,30HMOV AH,02HINT 21HMOV DL,0AHMOV AH,02HINT 21HMOV DL,0DHMOV AH,02HINT 21HRETOUTPUT ENDPEXIT: MOV AH,4CH INT 21HCODES ENDS END START17.键盘输入一个十六进制数，以二进制的形式输出。CODES SEGMENT ASSUME CS:CODESSTART:NEXT: MOV BX,0 CALL INPUT CALL OUTPUT JMP NEXTINPUT PROC NEARSHUR

39、U: MOV AH,01H INT 21H CBW CMP AX,0DH JE RETURN CMP AX,'0' JB EXIT CMP AX,'f' JA EXIT CALL TRANSFORM JMP SHURURETURN: RETINPUT ENDPTRANSFORM PROC NEAR XCHG AX,BX CMP BX,'9' JA TO1 SUB BX,30H JMP TO2 TO1: SUB BX,57H TO2: MOV CX,16 MUL CX ADD AX,BX XCHG AX,BX RETTRANSFORM ENDPOU

40、TPUT PROC NEAR MOV DH,16 MOV CL,1CONTINUE: ROL BX,CL MOV DL,BL AND DL,00000001H ADD DL,30H JMP SHUCHUSHUCHU: MOV AH,02H INT 21H DEC DH CMP DH,0 JNE CONTINUE MOV DL,0AH MOV AH,02H INT 21H MOV DL,0DH MOV AH,02H INT 21H RETOUTPUT ENDPEXIT: MOV AH,4CH INT 21HCODES ENDS END START18.将一组有符号数中的负数求和，并统计负数的个数

41、，并在屏幕上以十进制的形式显示结果。DATA SEGMENTBUF DB 38H,4AH,0C5H,83H,9CH,0B4H,7FH,0C4H,05H,0F5HNUM DB 'NEGTIVE NUMBER=0',0DH,0AHCOUNT DB 'NEGTIVE COUNT=-','?',0DH,0AH,'$'ZHUANHUAN DB '?'JISUAN DW 0DATA ENDSCODE SEGMENTASSUME DS:DATA,CS:CODE,ES:DATASTART:MOV AX,DATAMOV DS,AXL

42、EA SI,BUFMOV CX,10PANDUAN:XOR BH,BHMOV BL,SICMP BL,0JG POSITIVEADD NUM15,1NEG BLADD JISUAN,BXPOSITIVE:INC SILOOP PANDUANLEA SI,ZHUANHUANSHUCHU:MOV AX,JISUANMOV BL,10DIV BLMOV SI,AHXOR AH,AHMOV JISUAN,AXCMP AL,0JE EXITINC SIJMP SHUCHUEXIT:MOV SI+1,ALLEA DI,COUNT15LEA SI,ZHUANHUAN3MOV CX,4AGAIN:MOV BL

43、,SIADD BL,30HMOV DI,BLINC DIDEC SILOOP AGAINLEA DX,NUMMOV AH,09HINT 21HMOV AX,4C00HINT 21HCODE ENDSEND START19.键盘输入两组数743216、527864，按BCD码求和，并将结果显示在屏幕上。DATA SEGMENTBUF DB 0FFH DB ? DB 0FFH DUP(?)STROUT DB 0DH,0AH,7 DUP('0'),'$'DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATASTART:MOV AX,DA

44、TAMOV DS,AXLEA DX,BUFMOV AH,0AHINT 21HLEA SI,BUF2MOV CX,6AGAIN:SUB BYTE PTRSI,30HSUB BYTE PTRSI+7,30HINC SILOOP AGAINLEA SI,BUF7LEA DI,BUF14LEA BX,STROUT8MOV CX,6CLCAGAIN1:MOV AL,SIADC AL,DICLCCMP AL,10JAE CARRYADD BX,ALJMP NEXTCARRY:SUB AL,10ADD BX,ALSTCNEXT:DEC SIDEC DIDEC BXLOOP AGAIN1 ADC BYTE P

45、TRBX,0LEA DX,STROUTMOV AH,09HINT 21HMOV AH,4CHINT 21HCODE ENDSEND START提示版：DATA SEGMENTBUF1 DB 0FFH DB ? DB 0FFH DUP(?)BUF2 DB 0FFH DB ? DB 0FFH DUP(?)TISHI1 DB 'PLEASE INPUT FIRST NUMBER:',0DH,0AH,'$'TISHI2 DB 0DH,0AH,'PLEASE INPUT SECOND NUMBER:',0DH,0AH,'$'STROUT D

46、B 0DH,0AH,7 DUP('0'),'$'DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATASTART:MOV AX,DATAMOV DS,AXLEA DX,TISHI1MOV AH,09HINT 21HCALL INPUT1LEA DX,TISHI2MOV AH,09HINT 21HCALL INPUT2LEA SI,BUF12LEA DI,BUF22MOV CX,6AGAIN:SUB BYTE PTRSI,30HSUB BYTE PTRDI,30HINC SIINC DILOOP AGAINLEA SI,BUF17L

47、EA DI,BUF27LEA BX,STROUT8MOV CX,6CLCAGAIN1:MOV AL,SIADC AL,DICLCCMP AL,10JAE CARRYADD BX,ALJMP NEXTCARRY:SUB AL,10ADD BX,ALSTCNEXT:DEC SIDEC DIDEC BXLOOP AGAIN1 ADC BYTE PTRBX,0LEA DX,STROUTMOV AH,09HINT 21HMOV AH,4CHINT 21HINPUT1: LEA DX,BUF1MOV AH,0AHINT 21HRETINPUT2:LEA DX,BUF2MOV AH,0AHINT 21HRETCODE ENDSEND START19_1键盘输入十个数，分别统计0到9，10到99，100以上的数的个数，并显示结果。DATAS SEGMENT BUF DB 0FFH DB ? DB 0FFH DUP(?) OUT1 DB 0AH,0DH,'00-09= 0' OUT2 DB 0AH,0DH,'10-99= 0' OUT3