几道简单的汇编程序
;搜索数组，看是否存在CONSTDATA SEGMENTARRAYB DB 2,3,1,8,7FH,-5COUNT EQU $-ARRAYB ;数组长度CONST EQU 7FH ;判断数组中是否存在此元素ADDRES DD 0 ;若存在，存放元素的地址SCANTIME DW 0 ;若存在，存放搜索次数DATA ENDSSTACK SEGMENTDW 100H DUP(?)STACK ENDSCODE SEGMENTASSUME SS:STACK,DS:DATA,CS:CODEMAIN:MOV AX,DATAMOV DS,AXMOV ES,AX ;目的串的段基址总是存放在ESLEA DI,ARRAYB;目的串的偏移首地址存在DI/EDIMOV CX,COUNT;设置循环次数MOV AL,CONST;数组元素与AL的内容比较CLD ;设置DF标志位OR CX,CX ;设置ZF=0REPNE SCASB ;若果不相等，则继续搜索JZ SCANED ;ZF==1表示找到相等的元素JMP @F ;没找到相等的元素SCANED:DEC DI MOV WORD PTR ADDRES,DI MOV WORD PTR ADDRES+2,ES;把元素地址存入ADDRES MOV BX,OFFSET ARRAYB INC DI SUB DI,BX MOV SCANTIME,DI;计算搜索次数 MOV DX,SCANTIME ADD DX,30H MOV AH,2 INT 21H @@: MOV AH,4CH INT 21HCODE ENDS END MAIN
?
?
?
?
;将ES段中名为BLOCK的字存储区清零.DATA SEGMENTBLOCK DW 5 DUP(1)DATA ENDSSTACK SEGMENTDB 100H DUP(?)STACK ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA,SS:STACKMAIN: MOV AX,DATA MOV DS,AXMOV AX,SEG BLOCKMOV ES,AXMOV DI,0MOV CX,LENGTH BLOCKGOON: MOV BLOCK[DI],0 ADD DI,TYPE BLOCK LOOP GOON MOV AX,4C00H INT 21HCODE ENDS END MAIN
?
?
?
;求Z=|X-Y|.其中X,Y均为无符号数DATA SEGMENT X DW 5Y DW 9DATA ENDSSTACK SEGMENTDB 100 DUP(?)STACK ENDSCODE SEGMENTASSUME SS:STACK,DS:DATA,CS:CODEMAIN: MOV AX,DATA MOV DS,AX MOV AX,X SUB AX,Y JC NEXT JMP DONENEXT:NEG AXDONE:MOV DX,AX ADD DX,30H MOV AH,2 INT 21H MOV AH,4CH INT 21H CODE ENDSEND MAIN
?
?
?
;求X与Y之和并送ZDATA SEGMENT;X DW 0E98AH,80AFH,0FD32H,0F68FH;Y DW 9FD0H,70BAH,3D84H,89FEHX DW 3 ;为了显示结果，把变量值改为3和5Y DW 5Z DW 5 DUP(?)DATA ENDSSTACK SEGMENT PARA STACK 'STACK'DB 100H DUP(?)STACK ENDSCODE SEGMENTASSUME CS:CODE,SS:STACK,DS:DATAMAIN: MOV AX,DATA MOV DS,AX SUB DI,DI MOV CX,1 CLCGOON:MOV AX,X[DI] ADC AX,Y[DI] MOV Z[DI],AX ADD DI,2 LOOP GOON RCL AX,1 AND AX,1 MOV Z[DI],AX ;显示结果 MOV DL,BYTE PTR Z ADD DL,30H MOV AH,2 INT 21H MOV AH,4CH INT 21HCODE ENDS END MAIN
?
?
;输入字符串，然后显示输入的字符串DATA SEGMENTBUF DB 50 DB ? DB 50 DUP('$');总长度为52CR EQU 0DHLF EQU 0AHMESG1 DB 'PLEASE INPUT A STRING:',CR,LF,'$'DATA ENDSSTACK SEGMENTDW 100H DUP(?)STACK ENDSCODE SEGMENTASSUME SS:STACK,DS:DATA,CS:CODEMAIN: MOV AX,DATA MOV DS,AX MOV DX,OFFSET MESG1 MOV AH,9 INT 21H;提示输入 LEA DX,BUF MOV AH,10 INT 21H ;等待输入 MOV DL,LF MOV AH,2 INT 21H;输出换行 LEA DX,BUF+2 MOV AH,9 INT 21H;输出字符串 MOV AH,4CH INT 21HCODE ENDS END MAIN?
?
?
;删除输入字符串中的'A'字符，然后输出删除后的字符串。;若字符串中不存在'A'，则输出'NOT FOUND'DATA SEGMENTBUF DB 50,?,50 DUP('$')MESSAGE DB 'NOT FOUND',0AH,'$'FLAG DB 0DATA ENDS STACK SEGMENTDW 100H DUP(?)STACK ENDSCODE SEGMENTASSUME SS:STACK,DS:DATA,CS:CODEMAIN: MOV AX,DATA MOV DS,AX MOV DX,OFFSET BUF MOV AH,10 INT 21H;读入字符串 MOV DL,0AH MOV AH,2 INT 21H;输出换行符 MOV AX,DATA MOV ES,AX;段地址存入ES LEA DI,BUF;偏移首地址 MOV AL,'A';与'A'比较 MOV CX,WORD PTR BUF[1];循环次数 CLD;设置DF标志位0GOON: OR CX,CX;设置ZF=0 CMP [BUF+DI],AL JNZ NEXT;如果不同，进入下一次循环 MOV [BUF+DI],'0' INC FLAG[0]NEXT:INC DI LOOP GOON OR CX,1 CMP FLAG[0],1 JNZ MES LEA DX,MESSAGE MOV AH,9 INT 21H;没找到时输出NOT FOUND JMP DONE MES:MOV CL,[BUF+1] MOV DI,OFFSET BUF+2SIGN:OR CX,CX CLD MOV DL,[BUF+DI] CMP DL,'0';是0的话不输出 JZ NO; MOV AH,2 INT 21HNO: INC DI LOOP SIGN;输出字符串 DONE:MOV AH,4CH INT 21H CODE ENDS END MAIN??
?
?
?
;对395872843948这些0--9的数字进行冒泡排序DATA SEGMENTARRAY DB '395872843948',0DH,0AH,'$'DATA ENDSSTACK SEGMENTDB 100H DUP(?)STACK ENDSCODE SEGMENTASSUME CS:CODE,SS:STACK,DS:DATAMAIN: MOV AX,DATA MOV ES,AX MOV DS,AX MOV CX,12;要比较的次数 MOV BX,12;每次要比较的个数INIT: MOV DI,0 ;偏移首地址 MOV BX,CX GOON: MOV AL,ARRAY[DI] CMP AL,ARRAY[DI+1] JG NEXT XCHG AL,ARRAY[DI+1] MOV ARRAY[DI],AL;交换NEXT:INC DI DEC BX JNZ GOON;不相等 LOOP INIT;完成一趟排序 MOV DX,OFFSET ARRAY MOV AH,9 INT 21H;输出排好序的序列 MOV AH,4CH INT 21HCODE ENDS END MAIN
?