[其它]實(shí)驗(yàn)室匯編源程序

1、;= 軟件實(shí)驗(yàn)四 數(shù)據(jù)區(qū)傳送子程序 = org 07b0h mov r2,00h mov r3,#00h mov r4,#10h mov r5,#00h mov r6,#00h mov r7,#08hse22: mov dpl,r3 mov dph,r2 ;建立源程序首址 movx a,dptr ;取數(shù) mov dpl,r5 mov dph,r4 ;目的地首址 movx dptr,a ;傳送 cjne r3,#0ffh,lo42 inc r2lo42: inc r3 ;源地址加1 cjne r5,#0ffh,lo43 inc r4lo43: inc r5 ;目地址加1 cjne r7,#00h

2、,lo44 cjne r6,#00h,lo45 ;字節(jié)數(shù)減1 sjmp $ noplo44: dec r7 sjmp se22lo45: dec r7 dec r6 sjmp se22 ;未完繼續(xù) end;= 軟件實(shí)驗(yàn)一 清零程序 = org 0640hse01: mov r0,#00h mov dptr,#2000h ;(2000h)送dptrloo1: movx dptr,a ;0送(dptr) inc dptr ;dptr+1 inc r0 ;字節(jié)數(shù)加1 cjne r0,#00h,loo1 ;不到ff個(gè)字節(jié)再清 sjmp $ end;= 軟件實(shí)驗(yàn)二 拆字程序 = org 0660hse0

3、2: mov dptr,#2000h movx a,dptr mov b,a ;(2000)ab swap a ;交換 anl a,#0fh ;屏敝高位 inc dptr movx dptr,a ;送2001h inc dptr mov a,b anl a,#0fh ;(2000)內(nèi)容屏敝高位 movx dptr,a ;送2002h sjmp $ end;= 軟件實(shí)驗(yàn)三 拼字程序 = org 0680hse03: mov dptr,#2000h movx a,dptr anl a,#0fh ;(2000h)內(nèi)容屏敝高位 swap a ;交換 mov b,a ;保存 inc dptr movx

4、a,dptr ;(2001h)內(nèi)容送a anl a,#0fh ;屏敝高位 orl a,b ;或 inc dptr movx dptr,a ;送2002h sjmp $ end;= 軟件實(shí)驗(yàn)五 數(shù)據(jù)排序?qū)嶒?yàn) = org 09b0hque: mov r3,#50hque1: mov a,r3 ;指針?biāo)蛂0 mov r0,a mov r7,#0ah ;長度送r7 clr 00h ;標(biāo)志位為0 mov a,r0ql2: inc r0 mov r2,a clr c mov 22h,r0 cjne a,22h,ql3 ;相等嗎? setb cql3: mov a,r2 jc ql1 ;大于交換位置 set

5、b 00h xch a,r0 dec r0 xch a,r0 inc r0 ;大于交換位置ql1: mov a,r0 djnz r7,ql2 jb 00h,que1 ;一次循環(huán)中有交換繼續(xù) sjmp $ ;無交換退出 end;= 軟件實(shí)驗(yàn)六 查找相同數(shù)個(gè)數(shù) = org 0aa0hl5800: mov r0,#10h ;查找16個(gè)字節(jié) mov r1,#00h mov dptr,#2000hl5811: movx a,dptr cjne a,#00h,l5816 ;取出內(nèi)容與00h相等嗎? inc r1 ;取出個(gè)數(shù)加1l5816: inc dptr djnz r0,l5811 ;未完繼續(xù) mov

6、dptr,#2100h mov a,r1 movx dptr,a ;相同數(shù)個(gè)數(shù)送2100hl581e: sjmp l581e end;= 軟件實(shí)驗(yàn)七 無符號(hào)雙字節(jié)快速乘法子程序 = org 0970hqkul: mov a,r3 mov b,r7 mul ab ;r3*r7 xch a,r7 ;r7=(r3*r7)低字節(jié) mov r5,b ;r5=(r3*r7)高字節(jié) mov b,r2 mul ab ;r2*r7 add a,r5 mov r4,a clr a addc a,b mov r5,a ;r5=(r2*r7)高字節(jié) mov a,r6 mov b,r3 mul ab ;r3*r6 ad

7、d a,r4 xch a,r6 xch a,b addc a,r5 mov r5,a mov psw.5,c ;存cy mov a,r2 mul ab ;r2*r6 add a,r5 mov r5,a clr a mov acc.0,c mov c,psw.5 ;加上次加法的進(jìn)位 addc a,b mov r4,a sjmp $ end;= 軟件實(shí)驗(yàn)九 脈沖計(jì)數(shù)（定時(shí)計(jì)數(shù)器實(shí)驗(yàn)）= org 06e0hse15: mov sp,#53h mov tmod,#05h mov th0,#00h mov tl0,#00h ;定時(shí)計(jì)數(shù)器初始化 setb tr0 ;開計(jì)數(shù)器lo29: mov r2,th0

8、 mov r3,tl0 ;取出th0.tl0內(nèi)容 lcall zoy0 ;二轉(zhuǎn)十進(jìn)制 mov r0,#79h mov a,r6 lcall ptds mov a,r5 lcall ptds mov a,r4 lcall ptds ;送顯示緩沖區(qū) lcall ssee ;顯示 sjmp lo29 ;循環(huán)計(jì)數(shù).顯示zoy0: clr a mov r4,a mov r5,a mov r6,a ;0送r4 r5 r6 mov r7,#10hlo30: clr c ;r2 r3左移.移出的 mov a,r3 ;最高位送cy rlc a mov r3,a mov a,r2 rlc a mov r2,a m

9、ov a,r6 addc a,r6 ;(r4 r5 r6)*2+cy送r4 r5 r6 da a ;十進(jìn)制調(diào)整 mov r6,a mov a,r5 addc a,r5 da a mov r5,a mov a,r4 addc a,r4 da a mov r4,a djnz r7,lo30 ;循環(huán)16次 ret;-ptds: mov r1,a ;拆送顯示緩沖區(qū) acall ptds1 mov a,r1 swap aptds1: anl a,#0fh mov r0,a inc r0 ret;-ssee: setb rs1 ;換工作區(qū) mov r5,#05hsse2: mov 30h,#20h mov

10、 31h,#7eh mov r7,#06hsse1: mov r1,#0ddh mov a,30h movx r1,a ;字位送入 mov r0,31h mov a,r0 mov dptr,#ddff movc a,a+dptr ;取字形代碼 mov r1,#0dch movx r1,a ;字形送入 mov a,30h ;右移 rr a mov 30h,a dec 31h mov a,#0ffh movx r1,a ;關(guān)顯示 djnz r7,sse1 ;6位顯示完了嗎? djnz r5,sse2 ;5次顯示完了嗎? clr rs1 ret;-ddff: db 0c0h,0f9h,0a4h,0b

11、0h,99h,92h,82h,0f8h,80h,90h db 88h,83h,0c6h,0a1h,86h,8eh,0ffh,0ch,89h,0deh;- end;= 硬件實(shí)驗(yàn)二十一 8032串行口實(shí)驗(yàn)（二）實(shí)驗(yàn)儀發(fā)送，pc機(jī)接收=; (1) 若在聯(lián)機(jī)狀態(tài)，請(qǐng)先裝載此程序代碼至實(shí)驗(yàn)系統(tǒng); (2) 裝載完畢后，退出調(diào)試軟件，并將實(shí)驗(yàn)系統(tǒng)的通信選擇開關(guān)撥至最左邊(8251)并按復(fù)位; (3) 從0000h地址開始運(yùn)行程序，在實(shí)驗(yàn)系統(tǒng)鍵盤上輸入：0000，exec; (4) 運(yùn)行“pc接收程序.exe”，選擇相關(guān)串行口，使用默認(rèn)2400波特率，按“打開端口”按鈕; (5) 在實(shí)驗(yàn)系統(tǒng)上按 0-f 相應(yīng)

12、字符，“pc接收程序”即作相關(guān)字符顯示 org 00b0hjg832: mov sp,#60h mov 7eh,#08h mov 7dh,#00h mov 7ch,#03h mov 7bh,#02h mov 7ah,#14h mov 79h,#01h mov pcon,#80h;new add mov scon,#50h mov tmod,#20h mov tl1,#0f3h;#0fdh mov th1,#0f3h;#0fdh setb tr1 clr et1 clr esjzx0: call xle jb acc.5,jzx0 jb acc.4,jzx0 mov sbuf,a nopjzx1

13、: jbc ti,jzx0 sjmp jzx1 sjmp jzx0;-xle: acall dis acall key mov r4,a mov r1,#48h mov a,r1 mov r2,a inc r1 mov a,r1 mov r3,a mov a,r4 xrl a,r3 mov r3,04h mov r4,02h jz x10 mov r2,#88h mov r4,#88hx10: dec r4 mov a,r4 xrl a,#82h jz x11 mov a,r4 xrl a,#0eh jz x11 mov a,r4 jz x12 mov r4,#20h dec r2 sjmp

14、x13x12: mov r4,#0fhx11: mov r2,04h nop nop mov r4,03hx13: mov r1,#48h mov a,r2 mov r1,a inc r1 mov a,r3 mov r1,a mov a,r4 jb acc.5,x113 jb acc.4,x113 mov dptr,#ls3 movc a,a+dptrx113: ret;-ls3: db 07h,04h,08h,05h,09h,06h,0ah db 0bh,01h,00h,02h,0fh,03h,0eh db 0ch,0dhdis: push dph push dpl setb rs1 mov

15、 r0,#7eh mov r2,#20h mov r3,#00h mov dptr,#ls0ls2: mov a,r0 movc a,a+dptr mov r1,#0dch movx r1,a mov a,r2 inc r1 movx r1,als1: djnz r3,ls1 clr c rrc a mov r2,a dec r0 jnz ls2 movx r0,a dec r0 cpl a movx r0,a clr rs1 pop dpl pop dph retls0: db 0c0h,0c6h,0a4h,0b0h,99h,92h db 82h,0f8h,80h,90h,88h,83h,0

16、c6h db 0a1h,86h,8eh,0ffh,0ch,89h,7fh,8chkey: setb rs1 mov r2,#0feh mov r3,#08h mov r0,#00hlp1: mov r1,#0ddh mov a,r2 movx r1,a rl a mov r2,a inc r1 movx a,r1 cpl a anl a,#0fh jnz lp0 inc r0 djnz r3,lp1xp33: mov a,#20hxp3: mov r2,a clr a mov r1,#0ddh movx r1,a mov a,r2 clr rs1 ret;-lp0: cpl a jb acc.

17、0,xp0 mov a,#00h sjmp lppxp0: jb acc.1,xp1 mov a,#08h sjmp lppxp1: jb acc.2,xp2 mov a,#10h sjmp lppxp2: jb acc.3,xp33 mov a,#18hlpp: add a,r0 sjmp xp3;-ledp: mov 50h,#7eh mov a,#10h mov r0,#79hleds:mov r0,a inc r0 cjne r0,#7eh,leds inc a mov r0,a ret;- end;= d/a（調(diào)零程序） =;-d/a 0v輸出（調(diào)基準(zhǔn)電壓）-;在進(jìn)行d/a輸出方波、

18、小直流電機(jī)實(shí)驗(yàn)之前，必須先運(yùn)行本調(diào)零程序!;裝載并連續(xù)運(yùn)行本程序，調(diào)節(jié)基準(zhǔn)電壓控制電位器w2，使d/a輸出端“aout”輸出電壓為0v org 0617h mov sp,#53h mov 7eh,#00h mov 7dh,#08h mov 7ch,#03h mov 7bh,#02h ;顯示緩沖區(qū)初值lo22: mov a,#80h call lo21 sjmp lo22;-ptds: mov r1,a ;拆送顯示緩沖區(qū) acall ptds1 mov a,r1 swap aptds1: anl a,#0fh mov r0,a inc r0 ret;-dis: push dph push dpl

19、 setb rs1 mov r0,#7eh mov r2,#20h mov r3,#00h mov dptr,#ls0ls2: mov a,r0 movc a,a+dptr mov r1,#0dch movx r1,a mov a,r2 inc r1 movx r1,als1: djnz r3,ls1 clr c rrc a mov r2,a dec r0 jnz ls2 movx r0,a dec r0 cpl a movx r0,a clr rs1 pop dpl pop dph ret;-lo21: mov dptr,#0ffe0h movx dptr,a ;送0832轉(zhuǎn)換 mov r0

20、,#79h lcall ptds mov r2,#00hl023: lcall dis ;顯示 djnz r2,l023 ret;-ls0: db 0c0h,0f9h,0a4h,0b0h,99h,92h db 82h,0f8h,80h,90h,88h,83h,0c6h db 0a1h,86h,8eh,0ffh,0ch,89h,7fh,0bfh;- end;=硬件實(shí)驗(yàn)一p1口亮燈實(shí)驗(yàn)= org 0790h;-se18: mov p1,#0ffh ;送p1口lo34: mov a,#0feh ;l1發(fā)光二極管點(diǎn)亮lo33: mov p1,a lcall se19 ;延時(shí) rl a ;左移位 sjm

21、p lo33 ;循環(huán);-se19: mov r6,#0a0hlo36: mov r7,#0ffhlo35: djnz r7,lo35 djnz r6,lo36 ;延時(shí) ret;- end;= 硬件實(shí)驗(yàn)二 p1口轉(zhuǎn)彎燈實(shí)驗(yàn) = org 0c30hpx00: mov p1,#0ffh ;初始化px03: mov a,p1 mov b,a anl a,#03h cjne a,#01h,px01 ;滿足只是p1.0為高條件嗎? jb 00h,px04 ;閃爍標(biāo)志位 clr p1.4 clr p1.5 ;開右燈 setb p1.6 setb p1.7 ;關(guān)左燈 mov r2,#20h lcall del

22、y ;延時(shí) setb 00h ;置標(biāo)志位 ljmp px03 ;繼續(xù)查狀態(tài)px04: setb p1.4 setb p1.5 setb p1.6 ;關(guān)燈 setb p1.7 mov r2,#20h lcall dely ;延時(shí) clr 00h ;清標(biāo)志位 ajmp px03 ;繼續(xù)查狀態(tài)px01: cjne a,#02h,px02 ;滿足只是p1.1為高條件嗎? jb 01h,px05 ;判標(biāo)志位 setb p1.4 setb p1.5 ;開左燈 clr p1.6 clr p1.7 ;關(guān)右燈 mov r2,#20h ;延時(shí) lcall dely setb 01h ;置標(biāo)志位 ljmp px03

23、 ;繼續(xù)查狀態(tài)px05: setb p1.4 setb p1.5 setb p1.6 ;關(guān)燈 setb p1.7 mov r2,#20h lcall dely ;延時(shí) clr 01h ;清標(biāo)志位 ljmp px03 ;繼續(xù)查狀態(tài)px02: setb p1.4 setb p1.5 setb p1.6 ;關(guān)燈 setb p1.7 ljmp px03 ;繼續(xù);-dely: push 02hdel2: push 02hdel3: push 02h ;延時(shí)del4: djnz r2,del4 pop 02h djnz r2,del3 pop 02h djnz r2,del2 pop 02h djnz r

24、2,dely ret;- end;= 硬件實(shí)驗(yàn)三 p3.3口輸入，p1口輸出 = org 0810hj100: mov a,#00hj101: jb p3.3,j101 mov r2,#20h lcall dely jb p3.3,j101 ;p3.3電平為低嗎?j102: jnb p3.3,j102 mov r2,#20h lcall dely jnb p3.3,j102 ;p3.3電平高嗎? inc a ;加1 push acc cpl a ;取反 mov p1,a ;驅(qū)動(dòng)發(fā)光二極管 pop acc ajmp j101 ;循環(huán);-dely: push 02hdel2: push 02hde

25、l3: push 02h ;延時(shí)del4: djnz r2,del4 pop 02h djnz r2,del3 pop 02h djnz r2,del2 pop 02h djnz r2,dely ret;- end;= 硬件實(shí)驗(yàn)四 工業(yè)順序控制 = org 0190hpo10: mov p1,#7fh orl p3,#00hpo11: jnb p3.4,po11 ;開工嗎? orl ie,#84h orl ip,#01h mov psw,#00h ;初始化 mov sp,#53hpo12: mov p1,#7eh ;第一道工序 acall po1b mov p1,#7dh ;第二道工序 aca

26、ll po1b mov p1,#7bh ;第三道工序 acall po1b mov p1,#77h ;第四道工序 acall po1b mov p1,#6fh ;第五道工序 acall po1b mov p1,#5fh ;第六道工序 acall po1b mov p1,#0fh ;第七道工序 acall po1b sjmp po12po16: mov b,r2 ;保護(hù)現(xiàn)場(chǎng)po17: mov p1,#7fh ;關(guān)輸出 mov 20h,#0a0h ;振蕩次數(shù)po18: setb p1.7 ;振蕩 acall po1a ;延時(shí) clr p1.7 ;停振 acall po1a ;延時(shí) djnz 20h

27、,po18 ;不為0轉(zhuǎn) clr p1.7 acall po1a ;停振 jnb p3.3,po17 ;故障消除嗎? mov r2,b ;恢復(fù)現(xiàn)場(chǎng) retipo19: mov r2,#10h acall dely ;延時(shí)1 retpo1a: mov r2,#06h acall dely ;延時(shí)2 retpo1b: mov r2,#30h acall dely ;延時(shí)3 ret;- org 0213hdely: push 02hdel2: push 02hdel3: push 02h ;延時(shí)del4: djnz r2,del4 pop 02h djnz r2,del3 pop 02h djnz r

28、2,del2 pop 02h djnz r2,dely ret;- end;= 硬件實(shí)驗(yàn)五 8255 a.b.c口輸出方波 = org 0580hse09: mov dptr,#0ffdbh mov a,#80h movx dptr,a ;8255初始化 mov a,#55h ;一位隔一位高電平lo15: mov dptr,#0ffd8h movx dptr,a inc dptr movx dptr,a inc dptr movx dptr,a ;a.b.c口送入 mov r2,#40h ;延時(shí) call dely cpl a ;取反 sjmp lo15 ;循環(huán);-dely: push 02h

29、del2: push 02hdel3: push 02h ;延時(shí)del4: djnz r2,del4 pop 02h djnz r2,del3 pop 02h djnz r2,del2 pop 02h djnz r2,dely ret;- end;= 硬件實(shí)驗(yàn)六 8255 pa口控制pb口 = org 0770hse17: mov dptr,#0ffdbh mov a,#90h movx dptr,a ;8255初始化lo32: mov dptr,#0ffd8h movx a,dptr ;pa口狀態(tài)取出 inc dptr movx dptr,a ;送pb口 sjmp lo32 end;= 硬件

30、實(shí)驗(yàn)七 8255控制交通燈 = org 0bb0hjod0: mov sp,#60h mov dptr,#0ffdbh mov a,#88h movx dptr,a ;8255初始化 mov dptr,#0ffd8h mov a,#0b6h movx dptr,a inc dptr mov a,#0dh movx dptr,a ;點(diǎn)亮4個(gè)紅燈 mov r2,#25h ;延時(shí) lcall delyjod3: mov dptr,#0ffd8h mov a,#75h movx dptr,a inc dptr mov a,#0dh movx dptr,a ;東西綠燈亮,南北紅燈亮 mov r2,#55h lcall dely ;延時(shí) mov r7