实验五、输入输出及中断功能和子程序调用

1、 SHANGHAI UNIVERSITYIBM汇编语言程序设计实验报告学 院计算机工程与科学学院学号姓名指导老师江苏苏日期2016.10实验五、输入输出及中断功能和子程序调用目的： 1. 全面掌握输入和输出的中断功能调用（键盘和显示器） 2. 掌握子程序的定义和调用 3. 学会编制良好风格的汇编语言程序 要求： 1)在实验四的基础上，在屏幕上开设二个窗口（如左右或上下）2)定义输入缓冲区（最多输入50个字符）3)在第一个窗口输入（要求有输入提示）4)后台程序完成实验四的工作5)结果显示在第二个窗口（要求有输出提示）6)所有程序必须以子程序方式体现（除了初始化和程序结尾）7)必须在程序中做好子程

2、序的功能说明以及参数说明8)注意调试结果，并做好记录代码：DATAS SEGMENT maxlen db 50 count db ? ;计数器 res db 51 dup(?) letter db 50 dup(?) digit db 50 dup(?) num_letter db 0 num_digit db 0 string1 db "The num of letter is $" string2 db "Ths num of digit is $" string3 db ": $" string4 db "Please

3、 input a string and end with 'Enter' $" string8 db "After sorted the string is : $" string5 db "Please input a letter to find how many times it shows: $" string6 db " shows $" string7 db " times.$" copy_res db 51 dup(?) const_1 db 2 const_2 db ? f

4、ind_target db 2 dup(?) find_result db 0H ;查找结果 input_cursor_row db ? input_cursor_column db ? output_cursor_row db ? output_cursor_column db ?DATAS ENDSSTACKS SEGMENT ;此处输入堆栈段代码STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此处输入代码段代码 main:call INITcall INPU

5、T call CLASSIFY call COPYSTRING call BUBBLESORT call FIND mov ah,1 int 21h jmp mainmov ah,4chint 21hINPUT proc near ;input a string and save it in res,the num of letter in countlea dx,string4mov ah,9Hint 21Hcall IN_ENDL lea dx,maxlen mov ah,0AH int 21H call IN_ENDL retINPUT endp CLASSIFY proc near ;

6、将储存在res中的字符串分类统计(res首地址为0002H)init: lea bx,res sub bx,2H lea si,letter lea di,digitcompare1: cmp resbx,'a' jb compare2 cmp resbx,'z' ja compare3 inc num_letter mov dl,resbx mov si,dlinc si jmp move_to_nextcompare2: cmp resbx,'Z' ja move_to_next cmp resbx,'A' jb compar

7、e3 mov al,num_letter inc al mov num_letter,al mov dl,resbx mov si,dl inc si jmp move_to_nextcompare3: cmp resbx,'9' ja move_to_next cmp resbx,'0' jb move_to_next inc num_digit mov dl,resbx mov di,dl inc di jmp move_to_nextmove_to_next: inc bx cmp bl,count jb compare1 jmp exit exit:ca

8、ll OUT_ENDL lea dx,string1 mov ah,9 int 21H mov ax,0H mov al,num_letter call HEXTO10 lea dx,string3 mov ah,9 int 21H mov dl,'$' mov si,dl lea dx,letter MOV AH,9 INT 21H call OUT_ENDL lea dx,string2 mov ah,9 int 21H mov ax,0H mov al,num_digit call HEXTO10 lea dx,string3 mov ah,9 int 21H mov d

9、l,'$' mov di,dl lea dx,digit MOV AH,9 INT 21H call OUT_ENDL retCLASSIFY endp HEXTO10 proc near ;将AX中的16进制转换为10进制(会修改bx，cx，dx的值) mov cx,0 mov bx,10disp1: mov dx,0 div bx push dx inc cx or ax,ax jne disp1 disp2: mov ah,2 pop dx add dl,30H int 21h loop disp2 retHEXTO10 endpCOPYSTRING proc near

10、;将res字符串拷贝到copy_res中，count为字符数目mov si,0mov cl,countlop:mov dl,ressimov copy_ressi,dlinc siloop lopretCOPYSTRING endpBUBBLESORT proc near ;将copy_res冒泡排序,count为字符数目mov bx,0000Hmov si,0000Hmov bl,countmov cx,bxinit: dec cxcmp cx,0Hje exitmov di,0Hcompare:mov dl,copy_resdi0001Hcmp copy_resdi,dlja exchan

11、gejmp nextexchange:mov dl,copy_resdimov dh,copy_resdi0001Hmov copy_resdi0001H,dlmov copy_resdi,dhjmp nextnext:inc dicmp di,cxjb comparejmp initexit:lea dx,string8mov ah,9int 21Hmov bl,count ;输出排序后的字符串 mov dl,'$' mov copy_resbx,dl lea dx,copy_res mov ah,9 int 21HretBUBBLESORT endpFIND proc ne

12、ar ;在copy_res中查找特定字符，将查找结果输出到find_result中call IN_ENDLlea dx,string5mov ah,9int 21Hcall IN_ENDLlea dx,const_1 ;输入字符 mov ah,0AH int 21H mov cx,0000Hmov cl,countmov bx,0000Hmov bl,countmov al,find_target0000Hsta:cmp bx,0000Hje exitdec bxmov dl,copy_resbxcmp al,dlje equaljmp staequal:mov dl,find_resulti

13、nc dlmov find_result,dljmp staexit:call OUT_ENDLmov dl,find_target0000H mov ah,2 int 21H lea dx,string6 mov ah,9 int 21H mov ax,0H mov al,find_result call HEXTO10 lea dx,string7 mov ah,9 int 21HretFIND endpIN_ENDL proc near ;输入换行mov dh,input_cursor_rowmov dl,input_cursor_columninc dhmov input_cursor

14、_row,dhcall PLACEINPUT retIN_ENDL endpOUT_ENDL proc near ;输入换行mov dh,output_cursor_rowmov dl,output_cursor_columninc dhmov output_cursor_row,dhcall PLACEOUTPUT retOUT_ENDL endpPAINT proc nearmov AL,0mov BH,30H ;back 3 front 0 mov CH,2 ;start_up mov CL,8 mov DH,10 mov DL,70mov AH,6int 10Hmov AL,0mov

15、BH,30H ;back 3 front 0 mov CH,14 ;start_up mov CL,8 ;start_left mov DH,22 ;end_down mov DL,70 ;end_rightmov AH,6int 10HretPAINT endpPLACEINPUT proc near ;place input cursor mov dh,input_cursor_row ;row mov dl,input_cursor_column ;column mov bh,0 mov ah,2 int 10h retPLACEINPUT endpPLACEOUTPUT proc near ;place output cursormov dh,output_cursor_row ;row mov dl,output_cursor_column ;column mov bh,0 mov ah,2 int 10h retPLACEOUTPUT endp INIT proc near ;to init this programcall PAINTmov input_cursor_row,2mov i