系統(tǒng)執(zhí)行軟件源程序代碼

1、Evaluation Warning: The document was created with Spire.Doc for .NET.附錄一 系統(tǒng)執(zhí)行軟件源程序代碼系統(tǒng)多機通信從機源程序代碼 TXCJ.ASM *TXCJ.ASM* *Lu Bo* *20007.55.266*- ORGG 00000HH SJMMP MMAINN ORGG 00023HH ；串行口口中斷入入口 SJMMP SSJCSS-主程程序- MAIIN: SLAAVE EQUU 122 DK EQQU PP1.00 MOVV SCCON,#0BB0H MOVV TMMOD,#200H MOVV TLL1,#0FDDH

2、 MOVV THH1,#0FDDH MOVV IEE,#990H SETTB TTR1 LCAALL WDCCJ SETTB RRS1 CLRR RSS0 LCAALL BCDDZH LCAALL DISSPLAAY CLRR RSS1 CLLR RRS0 SJMMP MMAINN-串行行口中斷斷服務(wù)子子程序- SJCSS: CLRR RII PUSSH AA PUSSH PPSW MOVV A,SBUUF XRLL A,#SLLAVEE JZ SJCCS0 SJCSS1: SETTB SSM2 POPP PSSW POPP A RETTI SJCSS0: CLRR SMM2 MOVV SBB

3、UF,#SLLAVEE JNBB TII,$ CLRR TII JNBB RII,$ CLRR RII MOVV A,SBUUF XRLL A,#111H JZ SJCCS2 SJMMP SSJCSS1 SJCSS2: MOVV A,25HH ADDD A,#1 MOVV SBBUF,A JNBB TII,$ CLRR TII MOVV 222H,#00HH SJMMP SSJCSS1-118B220溫度度采集子子程序- WDCJJ: MOVV SPP,#660H LCCALLL GEET_TTEMPP MOOV AA,211H MOOV CC,000H RRRC AA MOOV CC,011

4、H RRRC AA MOOV CC,022H RRRC AA MOOV CC,033H RRRC AA MOOV 221H,A MOOV 225H,A LCCALLL BCCDZHH LCCALLL DIISPLLAY AJJMP MAIIN-188B200溫度采采集時序序子程序序- GET_TEMMP: CLLR EEA LCCALLL INNT MOOV AA,#00CCHH LCCALLL WRRITEE MOOV AA,#444H LCCALLL WRRITEE LCCALLL INNT MOOV AA,#00CCHH LCCALLL WRRITEE MOOV AA,#00BEHH L

5、CCALLL WRRITEE LCCALLL REEAD MOOV 221H,A LCCALLL REEAD MOOV 220H,A SEETB EA REET-118B220初始始化子程程序- INT: CLLR EEA L0: CLLR DDK MOOV RR2,#2000 L1: CLLR DDK DJJNZ R2,L1 SEETB DK MOOV RR2,#30 L4: DJJNZ R2,L4 CLLR CC ORRL CC,DKK JCC L00 MOOV RR6,#80 L5: ORRL CC,DKK JCC L33 DJJNZ R6,L5 SJJMP L0 L3: MOOV RR

6、2,#2000 L2: DJJNZ R2,L2 REET -18BB20寫寫命令子子程序- WRITTE: CLLR EEA MOOV RR3,#8 WR1: SEETB DK MOOV RR4,#8 RRRC AA CLLR DDK WR2: DJJNZ R4,WR22 MOOV DDK,CC MOOV RR4,#20 WR3: DJJNZ R4,WR33 DJJNZ R3,WR11 SEETB DK REET-118B220讀數(shù)數(shù)據(jù)子程程序 READD: CLLR EEA MOOV RR6,#8 RE1: CLLR DDK MOOV RR4,#4 NOOP SEETB DK RE2: DJ

7、JNZ R4,RE22 MOOV CC,DKK RRRC AA MOOV RR5,#30 RE3: DJJNZ R5,RE33 DJJNZ R6,RE11 SEETB DK REET-八為十十六轉(zhuǎn)十十進制子子程序- BCDZZH: INNC 221H MOOV AA,211H MOOV 330H,#122 JNNB AACC.7,BBCD00 MOOV 330H,#111 CPPL AA ADDD AA,#11 BCD00: MOOV RR1,#00HH MOOV RR2,#00HH CLLR CC BCD11: SUUBB A,#64HH JCC BCCD2 INNC RR1 SJJMP B

8、CDD1 BCD22: ADDD AA,#664H BCD33: SUUBB A,#0AHH JCC BCCD4 INNC RR2 SJJMP BCDD3 BCD44: ADDD AA,#00AH MOOV 331H,R1 MOOV 332H,R2 MOOV 333H,A REET-四位數(shù)數(shù)碼子程程序- DISPPLAYY: MOOV RR3,#4 MOOV RR0,#30HH MOOV 33AH,#0ff7H DISPP0: MOOV AA,RR0 MOOV DDPTRR,#TTAB MOOVC A,A+DDPTRR MOOV DDPTRR,#00D000H MOOVX DPPTR,A MO

9、OV DDPTRR,#00E000H MOOV AA,3AAH MOOVX DPPTR,A RRR A MOOV 33AH,A ACCALLL DYY1mss INNC RR0 DJJNZ R3,DISSP0 REET -0.2mss延時子子程序- DY11ms: MOOV RR4,#50 LOOOP: NOOP NOOP DJJNZ R4,LOOOP REET-10mms延時時子程序序- DY110mss: MOOV RR4,#10 LOOOP0: MOOV RR5,#2500 LOOOP1: NOOP NOOP DJJNZ R5,LOOOP DJJNZ R4,LOOOP0 REET-十十進

10、制碼碼表- TABB: DB 3fhh,066h,55bh,4fhh,666h ;0,1,22,3 DB 6dhh,7ddh,007h,7fhh,6ffh ;4,5,66,7 DB 0588H,0040HH,000H ;88,9,C,-,黑屏屏 ENDD二、系統(tǒng)多多機通信信主機源源程序代代碼 TXXZJ.ASMM- *TXXCJ.ASMM* *Luu Boo* *20007.5.226*-ORG 000000H SJMMP MMAINN-主主程序- MAAIN: MOVV SPP,#770H MOVV SCCON,#988H MOVV TMMOD,#200H MOVV TLL1,#0FDDH

11、MOVV THH1,#0FDDH MOVV PCCON,#000H MOVV R66,#110 MOVV R77,#33 MOVV 555H,#00HH SETTB TTR1 LCAALL BCDDZH LCAALL DISSPLAAY MAIIN000: LCAALL PCJJCX LCAALL SJCCS MOVV SCCON,#500H lcaall serriall_seend MOVV SCCON,#988H LCAALL PCJJCX LCAALL SJCCS111 LCAALL PCJJCX SJMMP MMAINN00-通信信子程序序- SJCCS: MOVV A,R6 MOV

12、V SBBUF,A LCAALL BCDDZH LCAALL DISSPLAAY JNBB TII,$ CLRR TII LCAALL BCDDZH LCAALL DISSPLAAY JNBB RII,$ CLRR RII MOVV A,SBUUF XRLL A,R6 JZ SJCCS0 SJCCS000: LCAALL BCDDZH LCAALL DISSPLAAY SETTB TTB8 SJMMP SSJCSS SJCSS0: CLRR TBB8 MOVV 300H,RR6 MOVV A,#111H MOVV SBBUF,A LCAALL BCDDZH LCAALL DISSPLAAY J

13、NBB TII,$ CLRR TII JNBB RII,$ CLRR RII MOVV A,SBUUF MOVV 444H,AA LCAALL SFJJSJ SETTB TTB8 DJNNZ 555H,SJCCS RETT SJCCS111: MOVV 555H,#00HH INCC R66 DJNNZ RR7,SSJCSS MOVV R66,#110 MOVV R77,#33 RETT SFJSSJ: CJNNE RR6,#11,SFJJSJ33 MOVV 622H,444H MOVV 588H,444H SJMMP SSFJSSJ0 SFJSSJ3: JC SFJJSJ11 MOVV 63

14、3H,444H MOVV 588H,444H SJMMP SSFJSSJ0 SFJSSJ1: MOVV 611H,444H MOVV 588H,444H SFJSSJ0: RETT PCJCCX: MOVV SCCON,#500H JNBB RII,HHH1 LJMMP HHH2 HH11: LCAALL BCDDZH LCAALL DISSPLAAY JNBB RI,WW55 HH22: CLRR RII MOVV A,SBUUF WW11: CJNNE AA,#449,WWW2 movv 444h,61hh lcaall bbcdzzh lcaall ddispplayy MOVV 558

15、H,61HH lcaall serriall_seend LJMMP WWW5-PC機機地址判判別子程程序- WW22: CJNNE AA,#550,WWW3 movv 444h,662h lcaall bbcdzzh lcaall ddispplayy MOVV 558H,62HH lcaall serriall_seend LJMMP WWW5 WW33: CJNNE AA,#551,WWW4 movv 444h,63hh lcaall bbcdzzh lcaall ddispplayy MOVV 558H,63HH lcaall serriall_seend LJMMP WWW5 WW4

16、4: CJNNE AA,#552,WWW5 LJMMP MMAINN WW55: MOVV SCCON,#988H RETT-八八為十六六轉(zhuǎn)十進進制子程程序- BCDZZH: MOVV A,44HH MOVV 311H,#15 JNBB ACCC.77,BCCD0 MOVV 311H,#14 CPLL A ADDD A,#1 BCD00: MOVV R11,#000H MOVV R22,#000H CLRR C BCD11: SUBBB AA,#664H JC BCDD2 INCC R11 SJMMP BBCD11 BCD22: ADDD A,#644H BCD33: SUBBB AA,#00

17、AH JC BCDD4 INCC R22 SJMMP BBCD33 BCD44: ADDD A,#0AAH MOVV 322H,RR1 MOVV 333H,RR2 MOVV 344H,AA RETT-六六位數(shù)碼碼子程序序- DISPPLAYY: MOVV R33,#66 MOVV 355H,#13 MOVV R00,#330H MOVV 3AAH,#0DFFH DISPP0: MOVV A,R00 MOVV DPPTR,#TAAB MOVVC AA,AA+DPPTR MOVV DPPTR,#0DD00HH MOVVX DPTTR,AA MOVV DPPTR,#0EE00HH MOVV A,3A

18、HH MOVVX DPTTR,AA RR A MOVV 3AAH,AA ACAALL DY11ms INCC R00 DJNNZ RR3,DDISPP0 RETT-0.22ms延延時子程程序- DY11ms: MOVV R44,#550 LOOOP: NOPP NOPP DJNNZ RR4,LLOOPP RETT-10mms延時時子程序序- DY110mss: MOVV R44,#110 LOOOP0: MOVV R55,#2250 LOOOP1: NOPP NOPP DJNNZ RR5,LLOOPP DJNNZ RR4,LLOOPP0 RETT-PC機機通信子子程序- seriial_sen

19、nd: NOPP NOPP NOPP NOPP DECC 588H MOVV AA,588H movv bb,#110 ;溫度度值為116進制制方式，控控制范圍圍不超過過1000oC divv ab ;因此此可只用用兩位十十進制數(shù)數(shù)表示 movv ddptrr,#aasciii_ttab ;分出十十位在aacc中中，個位位在b中中 movvc aa,aa+dpptr ;用查表表法將數(shù)數(shù)轉(zhuǎn)換成成asccii碼碼 movv ssbuff,a ;LCCALLL BCCDZHH ;LCCALLL DIISPLLAY ;啟動動串口發(fā)發(fā)送100位的數(shù)數(shù)據(jù) jnbb ti,$ ;等待待一幀發(fā)發(fā)送結(jié)束束，未完

20、完時tii=0，結(jié)結(jié)束時tti=11 clrr ti ;清除發(fā)發(fā)送中斷斷標(biāo)志位位 movv aa,b ;取在bb中的個個位 movvc aa,aa+dpptr movv ssbuff,a ;LCCALLL BCCDZHH ;LCCALLL DIISPLLAY ;啟動串串口發(fā)送送個位的的數(shù)據(jù) jnbb ti,$ clrr ti SETTB TTB8 RETT asciii_ttab:db 30hh,311h,332h,33hh,344h,335h,36hh,377h,338h,39hh ;09ASCCII碼碼表 TAB: DB 3fhh,066h,55bh,4fhh,666h ;0,1,22,3

21、 DB 6dhh,7ddh,007h,7fhh,6ffh ;4,5,66,7 DB 77HH,7CCH,339H,0588H,0040HH,000H ;88,9,A,bb,C,c-,黑屏 ENDD三、計算機機實驗室室溫控系系統(tǒng)PCC機應(yīng)用用程序代代碼：（VVisuual Bassic）-Dim xx Ass InnteggerDim yy Ass InnteggerDim TT Ass InnteggerDim CC Ass InnteggerDim II Ass Inntegger-Privaate Subb buuttoon_nnow11_Cllickk() MSCCommm.Ouutpu

22、ut = Teext_SENND.TTextt + 1 發(fā)發(fā)送數(shù)據(jù)據(jù) T = 100 Teext_SENND.TTextt = 1 Forr I = 11 Too 2 延時時 NexxtEnd SSub-Privaate Subb buuttoon_nnow22_Cllickk() MSCCommm.Ouutpuut = Teext_SENND.TTextt + 2 發(fā)發(fā)送數(shù)據(jù)據(jù) T = 111 Teext_SENND.TTextt = 2 Forr I = 11 Too 2 延時時 NexxtEnd SSub-Privaate Subb buuttoon_nnow33_Cllickk() M

23、SCCommm.Ouutpuut = Teext_SENND.TTextt + 3 發(fā)發(fā)送數(shù)據(jù)據(jù) T = 122 Teext_SENND.TTextt = 2 Forr I = 11 Too 2 延時時 NexxtEnd SSub-Privaate Subb Buuttoon_RRECVV_C_Cliick() TTextt_REECV.Texxt = TTextt_SEEND.SettFoccus MMSCoomm.Outtputt = Texxt_SSENDD.Teext + 9End SSub-Privaate Subb Buuttoon_SSENDD_C_Cliick() TTextt

24、_SEEND.Texxt = TTextt_SEEND.SettFoccusEnd SSub-Privaate Subb Buuttoon_SSENDD_Cllickk()Dim xx Ass Sttrinng IIf TTextt_SEEND.Texxt = Thhen 發(fā)送送數(shù)據(jù)不不能為空空 x = MssgBoox(發(fā)送數(shù)數(shù)據(jù)不能能為空, 116) Exiit SSub- EEnd If IIf NNot MSCCommm.PoortOOpenn Thhen 保證證串口打打開 x = MssgBoox(請打開開串口, 99) MSCCommm.PoortOOpenn = Truue EE

25、nd If MSCCommm.Ouutpuut = Teext_SENND.TTextt 發(fā)送數(shù)數(shù)據(jù) Forr I = 11 Too 2000 延時 NNexttEnd SSubPrivaate Subb Chheckk1_CClicck()If Chheckk1.VValuue = 1 Theen xx = 1Else xx = 0 EEnd IfEnd SSub-Privaate Subb cmmdquuit_Cliick()Open C:SCCON.txtt FFor Outtputt Ass #22Printt #22, TTextt_REECV.TexxtClosee #22EndE

26、nd SSub-Privaate Subb Foorm_Loaad() 端端口設(shè)置置 MMSCoomm.CommmPoort = 11 MMSCoomm.Setttinngs = 96000,nn,8,1 MMSCoomm.InpputLLen = 00 MMSCoomm.InBBuffferSSizee = 10224 MMSCoomm.OuttBuffferrSizze = 5112 MMSCoomm.PorrtOppen = TTruee MMSCoomm.SThhressholld = 0 MMSCoomm.RThhressholld = 1 MMSCoomm.InBBuffferCC

27、ounnt = 0 MMSCoomm.OuttBuffferrCouunt = 00 TTextt_SEEND.Texxt = TTextt_REECV.Texxt = End SSub-Privaate Subb MSSCommm_OOnCoomm() SSeleect Casse MMSCoomm.CommmEvventt 檢查串串口事件件 錯誤誤處理 Casse ccomEEvenntOvverrrun Teext_SENND.TTextt = Teext_RECCV.TTextt = Teext_SENND.SSetFFocuus Exiit SSub CCasee coomEvventtRxOOverr Teext_SENND.TTextt = Teext_RECCV.TTextt = Teext_SENND.SSetFFocuus Exiit SSub Casse ccomEEvenntTxxFulll Teext_SENND.TTextt = Teext_RECCV.TTextt = Teext_SENND.SSetFFocuus Exiit SSub Casse ccomEEvReeceiive Diim sstr As Strringg b = DDatee$ a = TTimee$ Miid(DDatee$, 1, 4) & MMid(Datte$,