微机原理课程设计之字符串动画显示

1、disp macro x,y, lengths,color,flag,varmov ah,13h;fun numbermov al,1;the monitor show modelmov bh,0;page nummov bl,color;colormov cx,lengths;str lengthsmov dh,x;str linemov dl,y;str colife flagmov bp,offset varelsemov bp,varendif;set the bp valueint 10hendm;-data segmentline equ 2color equ 5fh;color_

2、board equ 3Dhline1 db 177,56 dup(177),177line2 db 177,56 dup(' '),177line3 db 177,56 dup(177),177ll equ $-line3xx equ (80-ll)/2line4 db "serial ports com1 and com2 automatic test program "l equ $-line4i equ (80-l)/2;每次右移位显示的起始列号为I j equ i+l-1;第一次左移位显示的起始列号为J lorg db j+1lorg1 db l/2

3、+20-3lorg2 db l/2+i+3count dw 0count1 dw 0data ends;-CODE SEGMENTASSUME CS:CODE,DS:CODE,es:datastart:MOV AX,CODEMOV DS,AXmov ax,0b800hMOV ES,AXcldAGAIN: MOV AX,3 INT 10Hlea dx,MENU ;主菜单 mov ah,9int 21hinput:mov ah,0int 16hcp1:cmp al,'1'jnz cp2call sub01 ;字符串左右移动 jmp AGAIN ;返回到主菜单 cp2:cmp al,

4、'2'jnz cp3call sub02 ;字符串左右移动 jmp AGAIN ;返回到主菜单 cp3:cmp al,'3'jnz cp4;call sub03 ;字符串左右移动 jmp AGAIN ;返回到主菜单 cp4:cmp al,'4'jnz cp5;call sub04 ;字符串左右移动 jmp AGAIN ;返回到主菜单 cp5:cmp al,'5'jnz cp6;call sub05 ;字符串左右移动 jmp AGAIN ;返回到主菜单 cp6:cmp al,'6' ;返回DOS jnz inputl

5、ea dx,MESGmov ah,9int 21hmov ah,1int 21hMOV AH,4CH INT 21Hsub01:;-START1:mov ax,datamov ds,axmov es,axmov ax,3int 10h;clear the window;-disp line+0,xx,ll,color,0,line1disp line+1,xx,ll,color,0,line2disp line+2,xx,ll,color,0,line3;-; init the board;左移位loopstr:inc count;每一次左移位或右移位需要打印的字符数mov cx,countd

6、ec lorgmov dl,lorg;每次循环减一，使得打印的起始列值左移一位mov bp,offset line4disp line+1,dl,cx,color,1,bp;显示右边的数 进行左移位call delay;右移位mov bp,offset line4+l;每次都先使BP指向最后一个字符M的后面一位 mov cx,countsub bp,cx;使得BP指向要打印的第一个字符disp line+1,i,cx,color,1,bp;显示右边的数 进行右移位call delay;调用延迟子程序cmp count,l;判断是否全部打印结束jne loopstrs: dec countjnz

7、 sa:inc lorgcmp lorg,j+1jnz ajmp startmov ah,01h;调用Dos功能的键盘输入int 21hmov ah,4ch;结束int 21hRETsub02:mov ax,datamov ds,axmov es,axmov ax,3int 10h;clear the window;-disp line+0,xx,ll,color,0,line1disp line+1,xx,ll,color,0,line2disp line+2,xx,ll,color,0,line3;-; init the board;左移位loopstr1:inc count1;每一次左移

8、位或右移位需要打印的字符数mov cx,count1dec lorg1mov dl,lorg1;每次循环减一，使得打印的起始列值左移一位mov bp,offset line4disp line+1,dl,cx,color,1,bp;显示右边的数 进行左移位call delay;右移位mov bp,offset line4+l;每次都先使BP指向最后一个字符M的后面一位 mov cx,count1;inc lorg1;mov dh,lorg1sub bp,cx;使得BP指向要打印的第一个字符disp line+1,lorg2,cx,color,1,bp;显示右边的数 进行右移位call dela

9、y;调用延迟子程序cmp count1,l/2;判断是否全部打印结束jne loopstr1s1: dec count1jnz s1a1:inc lorg1cmp lorg1,l/2+20-3jnz a1a2:inc lorg2cmp lorg2,l/2+i+3jnz a2jmp startmov ah,01h;调用Dos功能的键盘输入int 21hmov ah,4ch;结束int 21hret;-;延迟子程序DELAY procpush cxpush dxmov ah,86hd1:mov cx,0ffffh;千分秒，延迟时间loop $dec dxjnz d1mov dx,800int 15

10、hpop dxpop cxRETMENU DB 5 DUP(0AH)DB 31 DUP(' '),'MAIN MENU',0DH,0AHDB 25 DUP(' '),201,21 DUP(205),187,0DH,0AHDB 25 DUP(' '),186,' 1.Origine ',186,0DH,0AH DB 25 DUP(' '),186,' 2.middle1 ',186,0DH,0AH DB 25 DUP(' '),186,' 3.middle2 ',186,0DH,0AH DB 25 DUP(' '),186,' 4.asymchronical ',186,0DH,0AH DB 25 DUP(' '),186,' 5.two lines ',186,0DH,0AH DB 25 DUP('