汇编语言小程序例子

精选10个汇编语言程序案例集摘要：一、汇编语言简介二、案例1：简单算术运算三、案例2：字符串处理四、案例3：逻辑与关系运算五、案例4：循环与条件语句六、案例5：函数调用与参数传递七、案例6：数组与指针操作八、案例7：内存管理九、案例8：输入输出操作十、案例9：操作系统调用十一、案例10：网络编程十二、总结与拓展正文：一、汇编语言简介汇编语言是一种低级编程语言，它与计算机硬件的操作紧密相关。

汇编语言通过对计算机指令进行汇编，实现对计算机资源的控制。

下面将介绍10个汇编语言程序案例。

二、案例1：简单算术运算案例1是一个实现加减乘除算术运算的汇编程序。

通过编写相应的汇编指令，实现对两个整数的加减乘除操作。

三、案例2：字符串处理案例2是一个处理字符串的汇编程序。

通过汇编指令实现字符串的输入、输出、查找、替换等功能。

四、案例3：逻辑与关系运算案例3是一个处理逻辑与关系运算的汇编程序。

通过汇编指令实现逻辑与、逻辑或、逻辑非以及关系运算。

五、案例4：循环与条件语句案例4是一个处理循环与条件语句的汇编程序。

通过汇编指令实现for、while、if-else等循环与条件控制结构。

六、案例5：函数调用与参数传递案例5是一个处理函数调用与参数传递的汇编程序。

通过汇编指令实现函数调用，以及将参数传递给函数。

七、案例6：数组与指针操作案例6是一个处理数组与指针操作的汇编程序。

通过汇编指令实现数组的创建、访问、排序等操作，以及指针的运算与控制。

八、案例7：内存管理案例7是一个处理内存管理的汇编程序。

通过汇编指令实现内存的分配、释放、拷贝等操作。

九、案例8：输入输出操作案例8是一个处理输入输出操作的汇编程序。

通过汇编指令实现键盘输入、显示输出等功能。

十、案例9：操作系统调用案例9是一个处理操作系统调用的汇编程序。

通过汇编指令实现操作系统提供的功能，如文件操作、进程管理等。

十一、案例10：网络编程案例10是一个处理网络编程的汇编程序。

Linux下简单C语⾔⼩程序的反汇编分析韩洋原创作品转载请注明出处《Linux内核分析》MOOC课程写在开始，本⽂为因为参加MOOC相关课程⽽写的作业，如有疏漏，还请指出。

选了⼀门Linux内核分析课程，因为阅读内核代码中或多或少要涉及到At&T汇编代码的阅读，所以这⾥写下⼀个对⼀个简单C命令⾏程序的反汇编分析过程，⼀⽅⾯完成作业，另⼀⽅⾯当作练⼿。

下⾯开始：1、编写我们的C语⾔⼩程序这⾥我们使⽤简单的例⼦，代码如下：1 #include <stdio.h>23int exG(int x)4 {5return x + 5;6 }78int exF(int x)9 {10return exG(x);11 }1213int main(void)14 {15return exF(10) + 2;16 }使⽤vim等编辑器写⼊上述代码，保存到main.c，然后使⽤下⾯命令⽣成汇编源⽂件：x86系统：$gcc -S -o main.s main.cx64系统：$gcc -m32 -S -o main.s main.c因为我们这⾥以32位平台为例⼦，所以在x64机器上要加上-m32来使GCC⽣成32位的汇编源⽂件。

2、处理源⽂件执⾏完上述命令后，当前⽬录下就会有⼀个main.s的⽂件，使⽤vim打开，不需要的链接信息[以"."开头的⾏]，得到如下汇编代码：1 exG:2 pushl %ebp3 movl %esp, %ebp4 movl 8(%ebp), %eax5 addl $5, %eax6 popl %ebp7 ret8 exF:9 pushl %ebp10 movl %esp, %ebp11 pushl 8(%ebp)12 call exG13 addl $4, %esp14 leave15 ret16 main:17 pushl %ebp18 movl %esp, %ebp19 pushl $1020 call exF21 addl $4, %esp22 addl $2, %eax23 leave24 ret可以看到这个⽂件⾥是GCC帮我们⽣成的汇编代码，这⾥需要说明下AT&T格式和intel格式，这两种格式GCC是都可以⽣成的，如果要⽣成intel格式的汇编代码，只需要加上 -masm=intel选项即可，但是Linux下默认是使⽤AT&T格式来书写汇编代码，Linux Kernel代码中也是AT&T格式，我们要慢慢习惯使⽤AT&T格式书写汇编代码。

汇编编程实例.txt你妈生你的时候是不是把人给扔了把胎盘养大？别把虾米不当海鲜。

别把虾米不当海鲜。

案例1判断闰年程序data segment ;定义数据段infon db 0dh,0ah,'Please input a year: $'Y db 0dh,0ah,'This is a leap year! $'N db 0dh,0ah,'This is not a leap year! $'w dw 0buf db 8db ?db 8 dup(?)data endsstack segment stackdb 200 dup(0)stack endscode segmentassume ds:data,ss:stack,cs:codestart:mov ax,datamov ds,axlea dx,infon ;在屏幕上显示提示信息mov ah,9int 21hlea dx,buf ;从键盘输入年份字符串mov ah,10int 21hmov cl, [buf+1]lea di,buf+2call datacatecall ifyearsjc a1lea dx,nmov ah,9int 21hjmp exita1: lea dx,ymov ah,9int 21hexit: mov ah,4chint 21hdatacate proc near；push cx; dec cxlea si,buf+2tt1: inc siloop tt1;lea si,cx[di]pop cxmov dh,30hmov bl,10mov ax,1l1: push axsub byte ptr [si],dhmul byte ptr [si]add w,axpop axmul bldec siloop l1retdatacate endpifyears proc nearpush bxpush cxpush dxmov ax,wmov cx,axmov dx,0mov bx,4div bxcmp dx,0jnz lab1mov ax,cxmov bx,100div bxcmp dx,0jnz lab2mov ax,cxmov bx,400div bxcmp dx,0jz lab2lab1: clcjmp lab3lab2: stclab3: pop dxpop cxpop bxretifyears endpcode endsend start案例2产生随机数并运算的程序DATA SEGMENTCC DB '+'ww db '-'GG DB '='II DB 0DH,0AH,'$'AA DB 5 DUP(?)www dw 0ghh db '0',0dh,0ah,'$'bnm dw 0DATA ENDSSTACK SEGMENTDB 200 DUP(0)STACK ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA,SS:STACKSTART: MOV AX,DATAMOV DS,AXMOV CX,20CALL RAND ;产生一随机数CALL MCAT ;将随机数转换为16进制表示的ASCII码字符 MOV AX,BXPUSH AXCMP www,0 ;WWW=0?JE A1 ;执行'+'CMP www,1 ;www=1?JE A2 ;执行'-'A1: MOV DL,CC ;显示'+'MOV AH,2INT 21HCALL RAND ;产生另一随机数add bx,0fhCALL MCAT ;将随机数转换为16进制表示的ASCII码字符 MOV DL,GG ;显示'='MOV AH,2INT 21HPOP AXADD AX,BXcmp ax,0jne yjw1lea dx,ghhmov ah,9int 21hjmp qq1yjw1: JMP B1A2: MOV DL,WW ;显示'-'MOV AH,2INT 21Hmov cx,65535mai1: loop mai1CALL RAND1CALL MCATMOV DL,GGMOV AH,2INT 21HPOP AXSbb AX,BXcmp ax,0jne yjw2lea dx,ghhmov ah,9int 21hjmp qq1yjw2: JMP B1B1: MOV BX,AXCALL MCATlea DX,IIMOV AH,9INT 21HQQ1: MOV AH,4CHINT 21HMCAT PROC ;将随机数转换为16进制表示的ASCII码字符子程序 PUSH AXpush bxPUSH CXPUSH DXCMP BX,9JA S1PUSH AXPUSH BXPUSH CXPUSH DXmov ax,bxmov bl,5div blcmp ah,3jae vb1mov www,1jmp vn1vb1:mov www,0vn1:pop dxpop cxpop bxpop axADD BL,30HMOV AA,BLMOV AA+1,'$'LEA DX,AAMOV AH,9INT 21HJMP s3s1:MOV CL,4MOV AL,0PUSH BXSHL BX,CLCMP BH,9JBE V1SUB BH,9ADD BH,40HJMP MM1V1:ADD BH,30HMM1:MOV AA,BHPOP BXAND BL,0FHPUSH AXPUSH BXPUSH CXPUSH DXmov ax,bxmov bl,5div blcmp ah,3jae vb2mov www,1jmp vn2vb2:mov www,0vn2:pop dxpop cxpop bxpop axCMP BL,9JBE TT1SUB BL,9ADD BL,40HJMP RR1TT1: ADD BL,30HRR1: MOV AA+1,BLMOV AA+2,'$'LEA DX,AAMOV AH,9INT 21Hs3:POP DXPOP CXPOP BXPOP AXRETMCAT ENDPRAND PROCPUSH CXPUSH DXPUSH AXSTIMOV AH,0 ;读时钟计数器值 INT 1AHMOV AX,DX ;清高6位AND AH,3MOV DL,101 ;除101，产生0~100余数 DIV DLMOV BL,AH ;余数存BX，作随机数POP AXPOP DXPOP CXRETRAND ENDPRAND1 PROCPUSH CXPUSH DXPUSH AXSTIMOV AH,0INT 1AHMOV ax,cxAND AH,3MOV DL,101DIV DLMOV BL,AHPOP AXPOP DXPOP CXRETRAND1 ENDPCODE ENDSEND START案例3计算平台长度程序data segmentobf db '***** welcome you !*****',0dh,0ahdb ' input data:','$'a0 db ?a1 db ?b0 db ?b1 db ?a db ?b db ?data endsstack segment stackdb 200 dup(0)stack endscode segmentassume cs:code, ds:data,ss:stack main:mov ax, datamov ds, axmov ah, 9lea dx, [obf]int 21hinc dxmov dl, 13mov ah, 2int 21hmov dl,10int 21hmov ah,1int 21hcmp al, 13jz lab1mov [a0], almov [a], almov [a1], 1x1: mov ah, 1int 21hcmp al, 13jz lab1mov [b], almov bl, [b]cmp bl, [a]jnz x2add [a1], 1jmp x1x2: mov [b0], blmov [b1], 1x3: mov ah, 1int 21hmov [a], alcmp bl,[a]jnz x4add [b1],1jmp x3x4: mov cl, [b1]cmp cl, [a1]jb y1mov cl, [b0]mov [a0], clmov cl, [b1]mov [a1],cly1: cmp al, 13jz lab1mov [b0], al mov [b1], 1mov [b], almov bl, [b]jmp x3lab1: mov ah, 2mov dl,13int 21hmov dl,10int 21hcmp [a1],10 jb z1mov ah,0mov al, [a1] mov bl, 10div bladd ax, 3030h mov bx, axmov ah, 2mov dl, blint 21hmov dl, bhint 21hjmp z2z1: add [a1], 30h mov dl, [a1]int 21hsub [a1],30hz2: mov ah,2mov dl, 13int 21hmov dl, 10int 21hmov cx, 0mov cl, [a1]mov ah, 2m: mov dl,[a0]int 21hloop mmov ah, 4chint 21hcode endsend main案例4加减乘除四则运算B_P EQU BYTE PTRW_P EQU WORD PTRD_P EQU DWORD PTR CODE SEGMENT ASSUME CS:CODE,DS:CODE ORG 100H;主程序开始NEWSTAR:JMP STAREVENNUM1 DW 0,0NUM2 DW 0,0NUM3 DW 0,0JGV4 DW 0,0YSF LABEL WORDYSF1 DB 0YSF2 DB 0JUV DB 0UV DB 0;使DS:SI指向第一有效字符OVERS LABEL NEARCLDPUSH AXOVERS1:LODSBCMP AL,' 'JZ OVERS1CMP AL,9JZ OVERS1DEC SICMP AL,13POP AXRET;输出一个制表符TAB LABEL NEARMOV AL,9JMP SHORT DISP ;输出一个回车换行符CRLF LABEL NEARMOV AL,13CALL DISP;显示一个字符DISP LABEL NEAR PUSH AXPUSH DXMOV AH,2 MOV DL,AL INT 21HPOP DXPOP AXRET;检查是否为运算符ISYSF LABEL NEAR CLDLODSBCALL ISJJ JZ ISYSF1 CALL ISII JZ ISYSF1 DEC SI ISYSF1:RET;检查是否是加减运算ISJJ LABEL NEAR CMP AL,'+' JZ ISYSF1 CMP AL,'-' RET;检查是否为乘除运算ISII LABEL NEAR CMP AL,'*' JZ ISYSF1 CMP AL,'/' JZ ISYSF1 CMP AL,'\' RET;数据输出;CX=10 十进制;CX=16 十六进制DOUT LABEL NEAR PUSH AXPUSH BXPUSH DXPUSH BPDOUT1:INC BPPUSH AXMOV AX,DXXOR DX,DXDIV CXMOV BX,AXPOP AXDIV CXPUSH DXMOV DX,BXOR BX,AXJNZ DOUT1DOUT2:POP AXADD AL,'0'CMP AL,'9'JBE DOUT3ADD AL,'A'-'9'-1 DOUT3:CALL DISPDEC BPJNZ DOUT2POP BPPOP DXPOP BXPOP AXRET;输入数据在DX:AX中返回;CX=0 数据为10进制;CX#0 数据为16进制DATE LABEL NEARPUSH BXPUSH BPPUSH DIXOR AX,AXXOR DX,DXDATE1:MOV DI,AXLODSBCMP AL,'0'JB DATE7CMP AL,'9'DATE2:AND AX,0FHSHL DI,1RCL DX,1MOV BX,DIMOV BP,DXSHL DI,1RCL DX,1SHL DI,1RCL DX,1JCXZ DATE3SHL DI,1RCL DX,1Jmp short DATE4DATE3:ADD DI,BXADC DX,BPDATE4:ADD AX,DIADC DX,0JMP DATE1DATE5:ADD AL,9JMP DATE2DATE6:JCXZ DATE7CMP AL,'A'JB DATE7CMP AL,'F'JBE DATE5CMP AL,'a'JB DATE7CMP AL,'f'JBE DATE5DATE7:MOV AX,DIDEC SIOR DI,DXPOP DIPOP BPPOP BXRET;数据1与数据2根据YSF1进行加减运算MOV AX,NUM2MOV DX,NUM2+2CMP YSF1,'+'JZ JSJJ1SUB NUM1,AXSBB NUM1+2,DXJMP SHORT JSJJ2JSJJ1:ADD NUM1,AXADC NUM1+2,DXJSJJ2:RET;数据1与数据2根据YSF1进行乘除运算JSII1 LABEL NEARMOV BX,OFFSET NUM1JMP SHORT JSII2_1;数据2与数据3根据YSF2进行乘除运算JSII2 LABEL NEARMOV BX,OFFSET NUM2JSII2_1:DB 66HMOV AX,[BX]DB 66HMOV CX,[BX+4]CMP YSF2,'*'JNZ JSII2_2DB 66HIMUL CXJMP SHORT JSII2_3JSII2_2:DB 66HCWDDB 66HIDIV CXCMP YSF2,'/'JZ JSII2_3DB 66HXCHG DX,AXJSII2_3:DB 66HMOV [BX],AXRET;显示结果MOV AX,JGV4 MOV DX,JGV4+2 MOV CX,10CMP UV,10JZ XUJG0MOV CX,16 XUJG0:TEST DX,8000H JZ XUJG1CMP UV,10JZ XUJG2CALL DOUT XUJG2:NOT AXNOT DXADD AX,1ADC DX,0PUSH AXCMP UV,10JZ XUJG3MOV AL,' 'CALL DISPMOV AL,'('CALL DISP XUJG3:MOV AL,'-'CALL DISPPOP AXCMP UV,10JZ XUJG1CALL DOUTMOV AL,')'CALL DISPRETXUJG1:CALL DOUTRET;计算结果放入DX:AX中JSJG LABEL NEARCALL JSJJMOV AX,NUM1 MOV DX,NUM1+2 RET;从DS:SI处取一个数据LOADATE LABEL NEARLODSBCMP AL,'('JZ LOADATE1DEC SIPUSH CXXOR CX,CXCMP UV,10JZ LOADATE0INC CX ;取16进制数LOADATE0:CALL DATE ;取数据放入DX:AX中POP CXRETLOADATE1:PUSH NUM1 ;保存数据1数据2及运算符 PUSH NUM1+2PUSH NUM2PUSH NUM2+2PUSH YSFINC JUVMOV JGV4,0 ;结果值清零MOV JGV4+2,0;进行四则运算SZYS LABEL NEARCALL ISYSF ;首字符是运算符？JZ SZYS2CALL LOADATE ;不是，取数并保存MOV NUM1,AXMOV NUM1+2,DXSZYS1:XOR AX,AX ;数据2清零MOV NUM2,AXMOV NUM2+2,AXCALL ISYSF ;下个是运算符？JZ SZYS3JNZ SZYS6SZYS2:PUSH AXMOV AX,JGV4 ;将结果作为数据1MOV NUM1,AXMOV AX,JGV4+2MOV NUM1+2,AXPOP AXSZYS3:MOV YSF1,ALMOV YSF2,ALCALL ISJJ ;是加减运算转JZ SZYS4CALL LOADATE ;取数据2MOV NUM2,AXMOV NUM2+2,DXCALL JSII1 ;数据1与数据2根据YSF1进行乘除运算 JMP SZYS1 ; 结果保存在数据1中SZYS4:CALL LOADATE ;取数据2并保存MOV NUM2,AXMOV NUM2+2,DXSZYS4_1:CALL ISYSFJNZ SZYS6CALL ISJJ ;运算符2是加减运算？JNZ SZYS5 ;不是转PUSH AXCALL JSJJ ;数据1与数据2根据YSF1进行加减运算 POP AX ; 结果保存在数据1中MOV YSF1,AL ;保存新的运算符JMP SZYS4SZYS5:MOV YSF2,AL ;保存运算符2CALL LOADATE ;取数据3MOV NUM3,AXMOV NUM3+2,DXCALL JSII2 ;数据2与数据3根据YSF2进行乘除运算 JMP SZYS4_1 ; 结果保存在数据2中SZYS6:MOV CL,ALCMP AL,13JNZ SZYS9SZYS7:CALL JSJGCMP JUV,0JZ SZYS8DEC JUVPOP YSFPOP NUM2+2POP NUM2POP NUM1RETSZYS8:CMP CL,')'JZ SZYS10MOV JGV4,AX MOV JGV4+2,DX JNZ SZYS12 SZYS9:CMP AL,')'JNZ SZYS11INC SIJMP SZYS7 SZYS10:MOV NUM1,AX MOV NUM1+2,DX JMP SZYS1 SZYS11:STCRETSZYS12:CLCRET;数制处理UVIL LABEL NEARPUSH SIUVIL1:LODSBCMP AL,' 'JZ UVIL2CMP AL,9JZ UVIL2CMP AL,13JZ UVIL4JNZ UVIL1 UVIL2:MOV BX,SICALL OVERSJZ UVIL3LODSWCALL OVERSPOP SIJNZ SZYS11JNZ SZYS11PUSH SIMOV UV,10UVIL3:MOV AL,13MOV [BX-1],AL UVIL4:POP SICLCRET;预置结果YVJG LABEL NEARMOV AH,52HINT 21HMOV AX,ES:[BX-2] MOV DS,AXMOV AX,DS:[0CH] MOV CS:JGV4,AX MOV AX,DS:[0EH] MOV CS:JGV4+2,AX PUSH CSPOP DSPUSH CSPOP ESRET;保存结果BCJG LABEL NEARMOV AH,52HINT 21HMOV AX,ES:[BX-2] MOV DS,AXMOV AX,CS:JGV4 MOV DS:[0CH],AX MOV AX,CS:JGV4+2 MOV DS:[0EH],AX PUSH CSPOP DSPUSH CSPOP ESRETSTAR:MOV SI,81HCLDJNZ STAR1STAR0:MOV DX,OFFSET MESS1JMP STAR4STAR1:CALL YVJGCALL UVILJB STAR0MOV SAVESP,SPCALL SZYSMOV SP,SAVESPMOV DX,OFFSET MESS2JB STAR4CALL CRLFCALL XUJGCALL BCJGMOV DX,OFFSET MESS3STAR4:MOV AH,9INT 21HINT 20HSAVESP DW 0MESS1 DB 13,10,' Syntax:',13,10DB ' JS <Expression> [10]',13,10,'$'MESS2 DB 'Error in expression !$'MESS3 DB 13,10,'$'CODE ENDSEND NEWSTAR案例5数字方阵程序data segmentbuf1 db '1 2 38 9 47 6 5'buf2 db '1 2 3 412 13 14 511 16 15 610 9 8 7'buf3 db '1 2 3 4 516 17 18 19 615 24 25 20 714 23 22 21 813 12 11 10 9' dbuf db 14 dup(?)i1 db 0dh,0ah,'this is a fangzhen programme'db 0dh,0ah,'input q to exit'db 0dh,0ah,'Please input a number(3--5):','$'i2 db 0dh,0ah,'input error,please reinput!','$'n db ?b db 1data endsstack segmentdb 100 dup(?)stack endscode segmentassume ds:data,cs:code,ss:stack main:mov ax,datamov ds,axcall clearlop: lea dx,i1mov ah,9int 21hmov ah,1int 21hcmp al,'q'jz quitlea si,buf1mov n,7mov cl,3call clearcmp al,'3'jz slea si,buf2mov n,10mov cl,4cmp al,'4'jz slea si,buf3mov cl,5mov n,13cmp al,'5'jz slea dx,i2mov ah,9int 21hcall clearjmp lops:mov bl,nlea di,dbufl: mov al,[si]mov [di],alinc siinc didec bljne lmov [di],byte ptr '$' mov ah,2mov dh,bmov dl,0int 10hlea dx,dbufmov ah,9int 21hinc bloop sjmp lopquit: mov ah,4chint 21h;***清屏***clear proc nearpush axpush bxpush cxpush dxmov ah,6mov al,0mov ch,0mov cl,0mov dh,24mov dl,79mov bh,7int 10hpop dxpop cxpop bxpop axretclear endpcode endsend main案例6数据加密程序p macro buflea dx,bufmov ah,9int 21hendmdata segmentpp db 0dh,0ah,' welcome you to run this programme!$' qq db 0dh,0ah,' when you input number,press enter.$' qw db 0dh,0ah,'6eh,52h,94h,52h,$'qa db 0dh,0ah,' $'info1 db 0dh,0ah,0dh,' input number:$'info2 db 0dh,0ah,' output number:$'bufa db 20db ?db 20 dup(0)bufb db 20 dup(0)buf1 db 20db ?db 20 dup(0)buf2 db 20 dup(0)buf3 db 20db ?db 20 dup(0)buf4 db 20 dup(0)data endsstack segmentdb 100 dup(0)stack endscode segmentassume ds:data,cs:codes: mov ax,datamov ds,axmov ah,0mov al,3int 10hmov ah,0bhmov bh,0mov bl,3int 10hp ppp qqlea si,qwmov di,5mov dx,0405hmov ah,15int 10hlp: mov ah,2inc dlint 10hmov bl,[si]mov cx,1mov ah,9int 10hinc sijnz lpp qap qap qap info1lea dx,bufamov ah,10int 21hlea si,bufa+1mov ch,0mov cl,[si]lea di,bufbn: mov bx,offset bufamov al,0xlat bufamov [di],alinc diloop nmov byte ptr [di],'$' p info2p bufbp info1lea dx,buf1mov ah,10int 21hlea si,buf1+1mov ch,0mov cl,[si]lea di,buf2n1: mov bx,offset buf1 mov al,2xlat buf1mov [di],alinc diloop n1mov byte ptr [di],'$' p info2p buf2p info1lea dx,buf3mov ah,10int 21hlea si,buf3+1mov ch,0mov cl,[si]lea di,buf4n2: mov bx,offset buf3mov al,3xlat buf3mov [di],alinc diloop n2mov byte ptr [di],'$'p info2p buf4mov ah,4chint 21hcode endsend s案例7代码转换程序（1）public info1,info2,bufa,bufb,buf,main,info0,info3extrn change1:far,change2:far,change3:far,change4:fardata segmentinfo0 db 0ah,0dh,'this is the change of letter to leter:$'info1 db 0ah,0dh,'please input string:$'info2 db 0ah,0dh,'output string:$'bufa db 81db ?db 80 dup (?)bufb db 80 dup (?)info3 db 0ah,0dh,'this is the change of digital to digital:',0ah,0dh,'$'buf db 0dh,0ah,'the number is:0100101010001111b',0ah,0dh,'the result is:$' data endsstack segment stackdb 200 dup (?)stack endscode segmentmain proc farassume ds:data,cs:code,ss:stackmov ax,datamov ds,axdisp macro mlea dx,mmov ah,9int 21hendmcall change1call change2disp info3disp bufcall change3call change4retmain endpcode endsend（2）extrn info1:byte,info2:byte,bufa:byte,bufb:byte,info0:byte public change1code segmentassume cs:codelowtohigh proc nearcmp al,'a'jb stopcmp al,'z'ja stopsub al,20hstop :retlowtohigh endpchange1 proc farlea dx,info0mov ah,9int 21hlea dx,info1mov ah,9int 21hlea dx,bufamov ah,10int 21hlea si,bufa+1lea di,bufbmov ch,0mov cl,[si]add si,1next:mov al,[si]call lowtohighmov [di],alinc siinc diloop nextmov byte ptr [di],'$'lea dx,info2mov ah,9int 21hlea dx,bufbmov ah,9int 21hretchange1 endpcode endsend（3）extrn info1:byte,info2:byte,bufa:byte,bufb:byte public change2code segmentassume cs:codehightolow proc nearcmp al,'A'jb stopcmp al,'Z'ja stopadd al,20hstop:rethightolow endpchange2 proc farlea dx,info1mov ah,9int 21hlea dx,bufamov ah,10int 21hlea si,bufa+1lea di,bufbmov ch,0mov cl,[si]inc sinext:mov al,[si]call hightolowmov [di],alinc siinc diloop nextmov byte ptr [di] ,'$' lea dx,info2mov ah,9int 21hlea dx,bufbmov ah,9int 21hretchange2 endpcode endsend（4）extrn buf:byte,info3:byte public change3code segmentchange3 proc farassume cs:codesub ax,axmov ch,4mov cl,4mov bx,4a8fhrotate: rol bx,clmov al,bland al,0fhadd al,30hcmp al,3ahjl printitadd al,7hprintit: mov dl,almov ah,2int 21hdec chmov dl,'H'mov ah,2int 21hretchange3 endpcode endsend（5）public change4data segmentbuf db 0ah,0dh,'please input the four hexnumber:$' data endscode segmentassume cs:code,ds:datachange4 proc farmov ax,datamov ds,axlea dx,bufmov ah,9int 21hmov bx,0mov ch,4input: mov cl,4sal bx,clmov ah,1int 21hcmp al,39hja afand al,0fhjmp binaryaf: and al,0fhadd al,9binary: or bl,aldec chcmp ch,0jne inputmov dl,'H'mov ah,2int 21hmov dl,0ahmov ah,2int 21hmov ah,02int 21hmov cx,16disp: mov dl,0rol bx,1rcl dl,1or dl,30hmov ah,02hint 21hloop dispmov dl,'B'mov ah,2int 21hretchange4 endpcode endsend（6）public change5data segmentbinary dw 7fffh,50hn=($-binary)/2buf db 7 dup(0)info1 db 0ah,0dh,'this is the change from hexnumber to decimal:$' info2 db 0ah,0dh,'the number is:7fffh,50h$',0ah,0dhinfo3 db 0ah,0dh,'the result is:$'data endsstack segment stackdb 200 dup(0)stack endscode segmentassume cs:code,ds:data,ss:stackf2to10 proc nearpush bxpush dxpush sipush cxdisp macro mlea dx,mmov ah,9int 21hendmlea si,bufor ax,axjns plusneg axmov [si],byte ptr '-' inc siplus: mov bx,10mov cx,0lop1: mov dx,0div bxpush dxinc cxor ax,axjne lop1lop2: pop axcmp al,10jb l1add al,7l1: add al,30hmov [si],alinc sidec cxjne lop2mov [si],byte ptr 'D' inc simov [si],byte ptr '$' disp info3disp bufpop cxpop sipop dxpop bxretf2to10 endpchange5 proc farstart: mov ax,datamov ds,axdisp info1disp info2mov cx,nlea di,binarylopa: mov ax,[di]call f2to10add di,2loop loparetchange5 endpcode endsend案例8键盘录入数据的转换与显示（1）PUBLIC ASC_TO_BIN , BIN_TO_ASCIIDATA SEGMENT COMMONINPUT_MESSAGE DB 0AH , 'PLEASE INPUT A NUMBER(LESS THAN 5 FIGURES):$'IN_ASC_BUF DB 6 ;十进制数的输入缓冲区，共可接收6个字符DB ? ;保留，用于10号调用时DOS填入实际输入字符个数DB 6 DUP(?) ;一个符号位，四位数字ASCII 码，加上一个回车符，;共计6字符BIN_BUF1 DW ? ;将第一个数转换为二进制后，放于此处OUTPUT_MESSAGE DB 0AH , 'THE SUM IS:' , '$'OUT_ASC_SUM DB 6 DUP(?) , '$' ;将二个数的和转换为ASCII码后，放于此处，;以供9号调用显示DATA ENDSCSEG SEGMENTASSUME CS:CSEG , DS:DATAASC_TO_BIN PROC FAR;ASCII码转换为二进制数;入口：十进制数的ASCII码在IN_ASC_BUF内;出口：转换后的二进制数在AX内;算法：先将其转换成十进制数字，再用累加和乘10加X的方法变成二进制数，如将;358转换为二进制数，可先将累加和赋0，再计算(((0*10+3)*10+5)*10+8)，结果为二;进制数，再由符号位决定是否需要求补。

精选10个汇编语言程序案例集
1. 汇编语言编写的计算器程序，这个程序可以接受用户输入的两个数字，然后执行加减乘除等运算，并将结果输出到屏幕上。

2. 文件复制程序，这个程序可以使用汇编语言编写，实现将一个文件的内容复制到另一个文件中的功能。

3. 简单的操作系统内核，使用汇编语言编写一个简单的操作系统内核，可以包括基本的文件管理和进程调度功能。

4. 汇编语言写的游戏，例如经典的贪吃蛇游戏或者俄罗斯方块游戏，这些游戏可以使用汇编语言编写。

5. 串口通信程序，使用汇编语言编写一个可以通过串口进行通信的程序，可以实现数据的发送和接收。

6. 硬件驱动程序，编写一个简单的汇编语言程序，可以控制硬件设备，例如控制LED灯的亮灭。

7. 汇编语言编写的加密解密算法，实现一个简单的加密解密算
法，例如凯撒密码或者简单的异或运算。

8. 简单的图形界面程序，使用汇编语言编写一个简单的图形界面程序，可以实现基本的窗口和按钮等功能。

9. 汇编语言编写的网络通信程序，实现一个简单的网络通信程序，可以进行基本的数据传输和接收。

10. 汇编语言编写的嵌入式系统程序，例如可以编写一个控制LED灯的嵌入式系统程序，可以通过按键控制LED的亮灭。

20个简单汇编语言程序以下是20个简单的汇编语言程序示例：1. 计算两个数的和：MOV AX, 5。

ADD AX, 3。

这段代码将 5 存储在 AX 寄存器中，然后将 3 加到 AX 中，最终 AX 中的值为 8。

2. 比较两个数的大小：MOV AX, 5。

CMP AX, 3。

这段代码将 5 存储在 AX 寄存器中，然后将 AX 中的值与 3 进行比较。

3. 循环打印数字：MOV CX, 10。

MOV AX, 1。

LOOP_START:MOV DL, AL.ADD DL, 48。

MOV AH, 2。

INT 21h.INC AL.LOOP LOOP_START.这段代码使用循环打印数字 1 到 10。

4. 计算阶乘：MOV CX, 5。

MOV AX, 1。

LOOP_START:MUL CX.LOOP LOOP_START.这段代码计算 5 的阶乘，并将结果存储在 AX 寄存器中。

5. 判断奇偶数：MOV AX, 7。

AND AX, 1。

这段代码将 7 存储在 AX 寄存器中，然后将 AX 中的值与 1进行与运算，结果为 1，表示奇数。

6. 字符串反转：MOV SI, OFFSET str.MOV DI, OFFSET str.MOV CX, LENGTHOF str.DEC CX.REVERSE_LOOP:MOV AL, [SI]MOV DL, [DI+CX]MOV [DI+CX], AL.MOV [SI], DL.INC SI.LOOP REVERSE_LOOP.这段代码将字符串 `str` 反转。

7. 计算斐波那契数列：MOV CX, 10。

MOV AX, 0。

MOV BX, 1。

FIB_LOOP:ADD AX, BX.XCHG AX, BX.LOOP FIB_LOOP.这段代码计算斐波那契数列的前 10 个数。

8. 判断一个数是否为质数：MOV AX, 17。

MOV BX, 2。

CHECK_PRIME:XOR DX, DX.DIV BX.CMP DX, 0。

VB小程序代码实例VB小程序是一种基于Visual Basic语言开发的应用程序，它可以在Windows 操作系统上运行。

本文将为您提供一个VB小程序代码实例，帮助您了解如何编写和运行一个简单的VB小程序。

代码实例如下：```vbImports SystemPublic Class HelloWorldPublic Shared Sub Main()Console.WriteLine("Hello, World!")Console.ReadLine()End SubEnd Class```上述代码是一个经典的“Hello, World!”程序，它会在控制台输出一条问候语，并等待用户按下回车键。

下面是代码解释：- `Imports System`：这个语句告诉编译器我们将使用System命名空间中的类和方法。

- `Public Class HelloWorld`：这是一个公共类的声明，类名为HelloWorld。

- `Public Shared Sub Main()`：这是程序的入口点，它是一个公共静态方法，程序从这里开始执行。

- `Console.WriteLine("Hello, World!")`：这行代码会在控制台输出一条问候语。

- `Console.ReadLine()`：这行代码会等待用户按下回车键，以便程序暂停执行。

您可以将上述代码复制到一个文本编辑器中，并将文件保存为`.vb`扩展名。

然后，使用VB编译器将其编译为可执行文件，并在Windows操作系统上运行。

这个简单的VB小程序只是一个入门示例，您可以根据自己的需求和兴趣编写更复杂的VB小程序。

VB语言具有丰富的特性和功能，可以用于开发各种类型的应用程序，包括图形用户界面（GUI）应用程序、数据库应用程序、Web应用程序等。

希望这个VB小程序代码实例能够帮助您入门VB编程，并为您今后的学习和开发提供一些参考。

盛年不重来，一日难再晨。

及时宜自勉，岁月不待人。

1.编写统计AX中1、0个数的源程序。

1的个数存入CH,0的个数存入CL。

CODE SEGMENTASSUME CS:CODESTART: MOV CX, 0MOV DX,17AA1: SUB DX, 1JZ AA3SHL AX, 1JNC AA2INC CHJMP AA1AA2: INC CLJMP AA1AA3: MOV AH,4CHINT 21HCODE ENDSEND START2.编写比较两个字符串STRING1和STRING2所含字符是否完全相同的源程序，若相同则显示“MATCH”，若不相同则显示“NO MATCH”。

程序：DATA SEGMENTR1 DB 'MATCH',0AH,0DHR2 DB 'NO MATCH',0AH,0DH STRING1 DB 'XXXXX'N1 EQU $-STRING1STRING2 DB 'YYYYY'N2 EQU $-STRING2DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATA START: MOV AX,DATAMOV DS,AXMOV AX,N1CMP AX,N2JNZ AA1ADD AX,1LEA SI,STRING1LEA DI,STRING2AA2: MOV BL,[SI]MOV BH,[DI]INC SIINC DISUB AX,1JZ AA3CMP BL,BH JZ AA2JMP AA1AA3: LEA BX,R1 MOV CX,7 AA4: MOV DL,[BX] INC BXMOV AH,2INT 21HLOOP AA4JMP EAA1: LEA BX,R2 MOV CX,10 AA5: MOV DL,[BX] INC BXMOV AH,2INT 21HLOOP AA5INT 21HCODE ENDSEND START3.从键盘读入一个四位的十六进制数，CRT显示等值的二进制数.由于每个十六进制数位对应4个二进制，所以每读入一个十六进制位后，即可将其对应的4个二进制位依次输出。