【正文】 ORG 0800H MOV DPTR,1000H MOV R0,30H MOV R7,llH LOOP: MOVX A,@DPTR MOV @R0,A INC R0 INC DPTR DJNZ R7，LOOP RET29． 編寫一個軟件延時1s、和1 min的子程序。設(shè)fosc=6 MHz，則1個機(jī)器周期=2 us。45解 (1) l s=2 us5105 5105=500000=2502000=250200l0所以:要編寫三重循環(huán)。ORG 1000HTIME: MOV R7,10T3: MOV R6,200T2: MOV R5,250Tl: DJNZ R5,T1DJNZ R6,T2DJNZ R7,T3RET(2) l min=60 s，調(diào)用上面1 s子程序60次。ORG 0030 HMOV R0,60LOOP: LCALL TIMEDJNZ R0,LOOPRET30. 請編制串行通信的數(shù)據(jù)發(fā)送程序．發(fā)送片內(nèi)RAM 50H}5FH的16B數(shù)據(jù)，串行接口設(shè)定為方式2，采用偶校驗(yàn)方式。設(shè)晶振頻率為6 MHz 48解 查詢方式發(fā)送程序如下:MOV SCON,80H 。設(shè)定為方式2發(fā)送MOV PCON，80H 。波特率固定，選用fOSC/32(高達(dá)187500 Bd)MOV R0，50H 。給待發(fā)送數(shù)據(jù)塊地址指針R0置初值MOV R7,16 。數(shù)據(jù)塊長度計數(shù)器R7置初值LOOP: MOV A,@R0 。取一字節(jié)數(shù)據(jù)→AMOV C，PMOV TB8,C 。P隨A變，P借助位累加器C傳給TB8MOV SBUF，A 。啟動發(fā)送JNB TI，$ 。查詢發(fā)送標(biāo)志，等待一字節(jié)數(shù)據(jù)發(fā)送完CLR TI 。TI標(biāo)志位清0INC R0 。待發(fā)送數(shù)據(jù)塊地址指針加1DJNZ R7，LOOP 。數(shù)據(jù)塊長度減1，未發(fā)送完則返回繼續(xù)發(fā)送下一字節(jié)RET31. 請編制串行通信數(shù)據(jù)接收程序，將接收的16 B數(shù)據(jù)送入片內(nèi)RAM 58H5FH單元中,串行接口設(shè)定為工作方式3, 波特率為1200，fosc=6 MHZ. 49解 2SMOD 2SMOD fOSC波特率(Bd)= ———Tl (溢出率) = ————— —————— 32 32 12(256x) 2SMOD fOSC 6106初值x=256 ——————— =256 ———————— =≈243=F3H 3212波特率 32121200查詢接收程序如下: MOV TMOD,20H 。設(shè)定Tl為模式2定時 MOV THl,0F3H 。置8位計數(shù)初值，同時送入高8位 MOV TL1,0F3H SETB TR1 。啟動Tl MOV SCON,0D0H 。設(shè)定串行接口為方式3，并允許接收 MOV R0,50H 。給數(shù)據(jù)塊地址指針R0置初值 MOV R7,16 。給數(shù)據(jù)塊長度計數(shù)器R7置初值CONT: JBC RI,PRI 。查詢等待接收，若RI=1則結(jié)束等待，并清0RI SJMP CONT 。若一字節(jié)尚未收完，則繼續(xù)等待PRI: MOV A,SBUF 。一字節(jié)收完，從串行接口中讀取數(shù)據(jù) JNB P,PNP 。對該字節(jié)進(jìn)行查錯處理，若P=RB8無錯，否則有錯 JNB RB8, PER 。若P=l,RB8=0，有錯，轉(zhuǎn)出錯處理 AJMP RIGHT 。若P=l,RB8=1，無錯，轉(zhuǎn)保存數(shù)據(jù)PNP: JB RB8, PER 。若P=0,RB8=1，有錯，轉(zhuǎn)出錯處理RIGHT: MOV @R0,A 。若P=0,RB8=0，無錯，保存接收的數(shù)據(jù) INC R0 。數(shù)據(jù)塊地址指針加1 DJNZ R7，CONT 。數(shù)據(jù)塊字節(jié)數(shù)減1，16B未接收完則繼續(xù) CLR Fl 。正確接收完16B數(shù)據(jù)，清0出錯標(biāo)志位Fl SJMP $ 。正常結(jié)束，停止運(yùn)行程序PER: SETB Fl 。因P≠RB8，校驗(yàn)為錯，置位出錯標(biāo)志Fl SJMP $ 。一旦發(fā)現(xiàn)有錯則立即停止執(zhí)行程序32． 在8051片內(nèi)RAM 20H3FH單元中有32 B數(shù)據(jù)，若采用方式I進(jìn)行串行通信, 波特率為1 200、fosc=12 MHz，用查詢和中斷兩種方式編寫發(fā)送接收程序 50解 Tl工作于方式2作為波特率發(fā)生器，取SMOD=0，Tl的計數(shù)初值計算如下: 2SMOD fOSC波特率(Bd)= ———— —————— 32 12(256x) 1 12106 所以 1200= —— —————— 32 12（256x）故 x=230= E6H(1) 查詢方式程序① 發(fā)送程序ORG 0000 HAJMP STARTORG 0030HSTART: MOV TMOD, 20 H 。定時器Tl工作于模式2MOV TH1,0E6H 。置定時器Tl計數(shù)初值MOV TL1,0E6HSETB TR1 。啟動TlMOV SCON,40H 。串行接口工作于方式1，不允許接收MOV R0,20H 。R0指向發(fā)送緩沖區(qū)首址MOV R7,32 。R7為發(fā)送數(shù)據(jù)塊長度LOOP: MOV SBUF,@R0 。發(fā)送數(shù)據(jù)JNB TI,$ 。一幀末發(fā)完，繼續(xù)查詢CLR TI 。一幀發(fā)完清TIINC R0DJNZ R7,LOOP 。數(shù)據(jù)塊未發(fā)完轉(zhuǎn)LOOP繼續(xù)發(fā)送SJMP $ 。發(fā)送完，結(jié)束② 接收程序ORG 0000HAJMP STARTORG 0030HSTART: MOV TMOD ,20H。定時器Tl工作于模式2MOV THl,0E6HMOV TL1,0E6H 。設(shè)置Tl計數(shù)初值SETB TR1 。啟動TlMOV SCON,50H 。設(shè)定串行方式1并允許接收MOV R0,20H 。R0為接收緩沖區(qū)首址MOV R7,32 。R7為接收數(shù)據(jù)塊長度LOOP: JNB RI,$ 。一幀收完?末收完等待CLR RI 。收完清RIMOV @R0,SBUF 。將數(shù)據(jù)讀入接收數(shù)據(jù)緩沖區(qū)INC R0 。修改地址指針SJMP $(2) 中斷方式程序中斷方式的初始化部分同查詢方式，以下僅寫不同部分。① 中斷發(fā)送程序: ；SETB EA 。開中斷SETB ES 。允許串行接口中斷MOV SBUF,@R0 。發(fā)送LOOP：SJMP $ 。等待中斷AGA： DJNZ R7,LOOP 。數(shù)據(jù)塊未發(fā)完繼續(xù)CLR EA 。發(fā)送完關(guān)中斷SJMP $ 。結(jié)束ORG 0023H 。中斷服務(wù)IOIP： CLR Tl 。清TIPOP DPHPOP DPL 。彈出原斷點(diǎn)MOV DPTR,AGA 。修改中斷返回點(diǎn)為AGAPUSH DPLPUSH DPH 。新返回點(diǎn)AGA壓入堆棧INC R0MOV SBUF,@R0 。發(fā)送下一個RETI 。返回到AGA②中斷接收程序: ；SETB EA 。開中斷SETB ES 。允許串行接口中斷LOOP：SJMP $ 。等待中斷AGA： DJNZ R7,LOOP 。數(shù)據(jù)塊未發(fā)完繼續(xù)CLR EA 。發(fā)送完關(guān)中斷SJMP $ 。結(jié)束ORG 0023H 。中斷服務(wù)IOIP： CLR RI 。清RIPOP DPH 。彈出原斷點(diǎn)POP DPL MOV DPTR,AGA 。修改中斷返回點(diǎn)為AGAPUSH DPLPUSH DPH 。新返回點(diǎn)AGA壓入堆棧INC R0RETI 。返回到AGA33. 。 51解 方法一: 以PC作為基址寄存器。MOV A，0F0H 。偏移量送AMOVC A，@A+PC 。(20F0H)→A方法二: 以DPTR作為基址寄存器。MOV DPTR，20F0HMOV A，00HMOVC A，@A+DPTR34． 請用兩種方法實(shí)現(xiàn)累加器A與寄存器R3的內(nèi)容交換 52解 方法一: 利用交換指令。XCH A,R3方法二: 利用堆棧交換指令。PUSH APUSH R3POP APOP R335. 編程將片內(nèi)20H單元開始的30個數(shù)傳送到片外RAM 3000H開始的單元中。 54解 將片內(nèi)數(shù)據(jù)傳送到片外RAM可用MOVX @DPTR，A或MOVX @Ri，A指令MOV R7, 30 。傳送字節(jié)數(shù)→R7MOV R0,20H 。R0指向片內(nèi)20H單元MOV DPTR,3000H 。DPTR指向片外3000H單元LOOP: MOV A,@R0 。取數(shù)MOVX @DPTR,A 。將數(shù)據(jù)轉(zhuǎn)存入片外RAMINC R0 。R0指向片內(nèi)下一單元INC DPTR 。DPTR指向片外下一單元DJNZ R7,LOOP 。數(shù)據(jù)傳送完否?36. 在2000H——2004H單元中，存有5個壓縮BCD碼，編程將它們轉(zhuǎn)換成ASCII碼，存人