屏幕中央以字符顯示閃動(dòng)（1HZ）霓虹燈，而后按W由兩邊向中央進(jìn)行填充，按 后按相反的次序消失。按Q退出程序。 ;*設(shè)置光標(biāo)位置的宏定義*MA macro op1,op2 push ax ;保存數(shù)據(jù) push bx mov ah,02h mov bh,0 mov dh,op1 ;光標(biāo)橫坐標(biāo) mov dl,op2 ;光標(biāo)縱坐標(biāo) int 10h pop bx pop axendmdata segment data endscode segmentassume ds:data,cs:code;*延時(shí)子程序*waiting proc push ax ;保存數(shù)據(jù) push cx push dx mov ah,2dh xor cx,cx xor dx,dx int 21h here: mov ah,2ch ;取時(shí)間 int 21h cmp dl,50 ;延時(shí)0.5秒 jb here pop dx pop cx pop ax retwaiting endpstart: mov ax,data mov ds,ax xor ax,ax ;數(shù)據(jù)初始化 xor bx,bx xor cx,cx xor dx,dx mov ah,06h ;屏幕初始化 mov bh,4ah ;卷入行屬性 mov cx,0 ;左上角行列坐標(biāo)（0，0） mov dx,5050h ;右下角行列坐標(biāo)（80，80） int 10h mov ah,02h ;置光標(biāo)位置 mov bh,0 ;BH=頁數(shù) mov dh,100 ;DH/DL=行/列 mov dl,0 int 10h;*顯示字符* light: mov ch,40 MA 10,ch ;置光標(biāo)位置 mov dl, mov ah,02h ;顯示輸出 int 21h MA 100,0 call waiting ;延時(shí);*字符消失* dark: MA 10,ch ;置光標(biāo)位置 mov dl, mov ah,02h ;顯示輸出字符 并覆蓋字符 int 21h MA 100,0 call waitingchoice_1: ;檢測(cè)是否有字符W/w的輸入，有就 mov ah,1h 執(zhí)行語句go，否則跳到語句light進(jìn)行 int 16h 循環(huán) cmp al,w je go cmp al,W je go jne lightgo: ;重新對(duì)CH/CL賦值 xor cx,cx mov ch,0 mov cl,79;*顯示字符并由兩邊向中間填充* OUT_IN: call waiting MA 10,ch mov dl, mov ah,02h ;左邊顯示輸出 int 21h MA 10,cl mov dl, mov ah,02h ;左邊顯示輸出 int 21h inc ch ;CH加1 dec cl ;CL減1 MA 100,0 ;移除光標(biāo) cmp ch,40 ;比較是顯示否到中間 je change ;是，跳出并執(zhí)行change語句 jmp OUT_IN ;否，則繼續(xù)change: ;重新對(duì)CH/CL賦值 xor cx,cx mov ch,39 mov cl,40choice_2: ;檢測(cè)是否有字符N/n的輸入，有就執(zhí) call waiting 行語句IN_OUT，否則跳到語句 mov ah,1h choice_2進(jìn)行循環(huán) int 21h cmp al,n je IN_out cmp al,N je IN_out jne choice_2;*消失字符并由中間向兩邊消失* IN_out: call waiting MA 10,ch mov dl, mov ah,02h ;顯示輸出 int 21h MA 10,cl mov dl, mov ah,02h ;顯示輸出 int 21h cmp ch,0 ;比較 是否顯示到兩邊 je choice_3 inc cl dec ch MA 100,0 cmp ch,0 ;是，跳出并執(zhí)行choice_3語句 jmp IN_out ;否，則繼續(xù)choice_3: ;檢測(cè)是否有字符Q/q的輸入，有就執(zhí) mov ah,01h 行語句QUIT，否則繼續(xù)等待 int 21h cmp al,Q