桂电智能仪器实验代码(lab8000平台汇编).doc

实验1
ORG ０000H
ＡJMＰ MAＩＮ
ＯRＧ 02０0H
BＵFF EQU 60H
MAIＮ:ＭＯＶ Ｒ3,#00H
　MOV Ｒ4,#0０H
　　 ACALL DIＳＰＬＡＹ
ＡCAＬL ＫEXAM
　 　 JZ MAIN
　 　　ACALL Ｄ10ms
AＣALL KEXAM
　 JZ MＡＩN
　MOＶ R2，#0ＤFH
　 ＭOV DPＴR,＃8０04H
MＯＶ Ａ，#０0H
　 　ＭOＶX @DPTR,Ａ
KＥY1：ＭOＶ　DＰTＲ，＃8００2H
　 MOV A,Ｒ2
　　　MＯVX @ＤＰTR,A
　 　 MOV ＤPTＲ,＃8001Ｈ
　 MOVX A,＠DPTR
　 　CＰL A
ＡＮL A,#0ＦH
　 JNZ KEＹ2
　ＭOＶ Ａ,R3
　　 ADD A，#０4H
　　 MOV R3,A
　 MOＶ Ａ，R2
RＲ A
　　ＭＯV R2,A
　　　JB ＡCＣ．０，KＥY1
　 ＡJMP　MＡIN
KEY2：CPL Ａ
KEY3:RRＣ Ａ
　 ＪNC　KEＹ4
　　 　IＮC R４
　 　 ＡJMP KEY３
KEY4:ACＡＬＬ　ＤISＰLAY
　　ACALL　D10mｓ
　 ACALL KEXAM
　JNZ KEY４
MOV A,R3
　ADD A,R4
　 MOV　BＵFF,A

KＥND:ＡＪＭP ＭAＩＮ
KEXＡM:MOＶ DPTＲ,#8002Ｈ
　 MOV A,＃０0Ｈ
　 　　MOＶX　@DPＴR,A
MＯV DPTＲ,#8０01H
　 　 MＯVX A,@ＤPTR
　 　 　CPL A
　　 　 ANL A,#０ＦH
　 　 ＲEＴ
DISPLAY:MOV　ＤＰＴR,＃TＡB
　 　 MOV A，60H
　 　MOVC A,@A+ＤPTＲ
　 　 MOＶ　DＰTR,#8004Ｈ
MOVＸ @DPTR,Ａ
MOV DPTR,#8002Ｈ
　 ＭOV A,#10H
　 　 　 ＭOVX @DＰＴR，A
　 RET
D10ｍs:MOV　R5，＃30H
DL:ＭOV R6，#0FFH
DL0：DJNZ Ｒ６,ＤＬ０
DJNZ Ｒ5,ＤL
　 　REＴ
TAB:DB ３FH 06Ｈ ６6H 0７H
　 DB　71Ｈ 5BH　6DH 7ＦH
　　 DＢ 7９H 4FH ７DH　6FH
DＢ　5EH 3９H　7CＨ 77H

实验2
ORG 　 ０００0H
　 　 AJMP MＡＩN
　 　OＲＧ 　 0100Ｈ
MAIN: ＡCALL KＥXAM　 　 ;检查按键
　 　　ＪZ MＡＩN 　　 　 　 ;无继续
　 ＡCALL　D10mｓ　　 ;延时去抖
　 　 　 ＡCALL KEＸＡM
　ＪZ　ＭＡIN
ＳＴART: MOV　ＤPTR,#8０02H 　;键值分析及选通道
MＯV Ａ,#0DFH
　 　 MＯＶX @DPＴR,A
　　 MOV DPTR,＃8０0１H
　 MOVX A,@DＰTR
　 　 CＰL A
　　 ＡNL Ａ，#0７H
　 　　CJNE A，＃01H，KEY１ 　　 ;INT0
　 　AＪMＰ INT０
KＥY1: CＪNE Ａ,#０2H,ＫEY2;INT1
AＪＭＰ ＩＮT1
ＫEY2: 　CJNE A,#０４H,MAＩＮ
AJＭP　AＵTO
INT0: 　　ACALL DIＳPLＡY1
　　 MＯV A,#0ＦＨ 　 　 　 　　 ;0-5Ｖ
　 MOV　 ＤPTR,#９00０H
　 　　MＯＶ　　R0,＃40Ｈ
　 MOVX　@ＤＰTR，A
　 　　 ACＡＬL D10ms
ＭＯVX A,＠DＰTR
　　 　MOV @Ｒ０,A
　 AＣＡLＬ 　CAI
　 　 　 ACＡLＬ　　DISPＬAY
ACＡＬL 　KEXＡM
　　 　JZ　 INT0
　　　 AJMP ＳTＡＲT
INT1: ACＡLL ＤISPLAY2
MOV Ａ,#0FH 　　 　　;固定值
　 　 ＭOV 　 　DPTR，#9001H
ＭOV 　　R0,#40H
　 MOＶX @DPTR，A
　 ACALL D10ｍs
　 MOVＸ A,@ＤPTＲ
　 　ＭOV 　 @R0，A
　 ＡＣALL CAI
　　　 　 ACALＬ DISＰLAＹ
　 　ACALL 　ＫEXAM
　　 JZ ＩNT１
　　　 AＪMＰ STAＲT
AUＴO: 　 ＭOＶ 50H，＃０00
　 　LOP0：ACALL D10ms
ＤJNZ ５0H,LOP0
　 　AJMP IＮT00
ＡUTＯ１： 　　MOV ５1H,#00０
　 　LOP1:ＡCALL D10ms
　 　ＤＪNZ　５１H,ＬOP１
　 　 AJMP ＩNT１1

　INＴ00:

ＡCＡＬＬ DISPLAY1
　　 　MOV A,＃0ＦH 　　 　　 ；0-5Ｖ
　 　 　　　　MOV　　DPＴR,#9000Ｈ
　 MOV 　R0，＃４0H
　 　ＭOVX @ＤPTＲ,A
　 　 AＣＡＬＬ D10mｓ
　　 　 MOVX Ａ,@ＤPＴＲ
　 　 　 ＭOV　 　＠Ｒ0，A
　 　　 ACALL CAI
　　 ACAＬL　 ＤISPLAY
　 　 AＣALL D10ms
　 ＭOV 53Ｈ,#3０
　　 PPP: ACALL　DISＰLAＹ１
　 　　 ACALL DISＰLAY
　 　　ＡCＡLL ＤIＳＰLAY１
　　 ACALL DIＳPLAY
　 　 ＡＣALL DIＳＰLAY1
　 　 AＣALL ＤISPLAＹ
DＪNZ　53Ｈ,ＰPP
　 　 　 ＡCAＬＬ　 KEXAＭ
　 　JＺ　　　 AUTO1
　 AJMＰ 　　ＳTＡＲT
IＮT11:　

　 　 AＣALL DＩSPLＡＹ2
　　 　 　ＭOＶ　 Ａ,#0FH 　;固定值
　 　　 　ＭOV DPＴＲ,＃9001H
　 　MOＶ R0,#40H
MＯVX @ＤPTR,A
　 ＡCALＬ 　D１0mｓ
　　 　　 MOVX A，@DPＴR
　 　 ＭOV @R0,A
　 AＣＡLL ＣAI
　　 　 ACＡＬL DISPLAY
　 ACALＬ D10mｓ
　 MＯV　54Ｈ,#3０
　 ＯOO: ACALL DISＰLＡY2
　 　ＡＣＡＬＬ　DISPＬAY
　 ＡCALL DISPLAY2
　　 　 ＡＣＡLL DIＳPLAY
　　　 　 　ACＡLL DIＳPLAY2
　　 　ACAＬL　ＤISPＬＡY
　 　 DJNZ ５４H,ＯOO
　　　 　　ACＡLL KＥXAＭ
　 　 　 JZ　 　AUTＯ
　 　 ＡJMP 　 ＳTART

KＥＸAM:　　ＭOＶ ＤPＴR,＃8０0４H 　 　 ；按键判断
　 　 MＯV　A,#０0H
　 　　MOＶX ＠DPTR，Ａ
　　 　 MOＶ DPTＲ,#80０2H
MOＶ A,＃００H
　　　 　MOVX @DPTＲ,A
　 　　　 MOV DPTR,#8001H
MOVＸ A,@DPＴR
CPL A
　 　 　　ＡＮL Ａ，＃0FH
　　 　　　 RET

CAI: 　MOV A,@R0　　 　 　 ;数据解决
　　 ＭOＶ B,#５1
　 　　 DIＶ ＡＢ
　 　MOＶ　40H,A
　 　 ＭOV A,B
　 CＬR　F0
　　 SUBＢ A,＃1AＨ
　 MＯV F0,C
　　 MOＶ　A，#10
ＭUL　AB
　MOV B,#５1
ＤIV AB
　 JB F0,ＬOＯP2
ＡDD Ａ，#5
LOOP２:MOV 41H，A
　MOV A,B
　 MＯV　A,B
CLＲ　F0
　SＵBB A,#1ＡH
　ＭＯV F０,C
　 　 MOＶ A，#10
　 ＭＵL　ＡB
　 　 ＭOＶ B,#51
　 DIV ＡB
　　 　 JB F0,LOＯP3
　　ADＤ A,#５
ＬOOP３：ＭOV ４2H,A
　 　 ＲＥT

DISPLAY:ＭOV ＤPTＲ，#TAB 　 　 　 　 ；列表显示 个位整数 40H

　 　MOV　A,40Ｈ
　 　 　 MOＶC A,@A+ＤPＴR
　 MOＶ ＤPTR,#8０04H
　 　MOＶX ＠DPＴＲ,A
　　 　　 ＭOＶ DＰTR,#800２H
　 MOV　A,#１０H
　　 　 MOＶX @ＤPTR,A
　　 　 ＡCALL Ｄ１0mｓ

　 MOV　A,＃8０H　 　 　　 　 　 　;小数点
　 MOV　DＰＴR,#8004H
　 　 　 MOVX　@ＤPTR，A
　 　 MOＶ DＰTR,#8０02Ｈ
　　　 　　　MOV　A,＃10H
　 MOVＸ ＠DＰTR,A
　　 ACALL D10ms

　 　 MＯＶ DＰTＲ,#TAB 　　 　 　 ;余数 　 4１H　42H
　　　 　 ＭOV A,4１H
　　 　 　MOVC　Ａ,@A+DPTR
　　 　 MOＶ DPＴR,#8004H
　 MOVX @DPTＲ,Ａ
　 　　 MOV DＰTR，#８002H
　　 MOV A,#08H
　 MOVX　＠ＤPＴＲ,A
　 　 ACＡLL D10ms

　 MOV ＤPTR,#TAB
　 MOV A,4２H
　　 　 ＭOＶＣ A,@A+DPTＲ
　 　　　 MＯV ＤPTR,＃８004H
　 　MＯVX　@DPTR,Ａ
　 　 　　 MOV ＤＰＴR，#8０02H
MOV Ａ,#04H
　　 　 　ＭOＶX @DPTR,A
　 　　　 ACALL D10ms
　 　 REＴ
DＩＳＰＬAY1:　ＭOＶ 　 Ａ,＃3FＨ
　　 MOV 　DPTR,#8004H
　 　 　 MOVＸ 　 @DPTR,A
MOV 　 　 DPTR,#8００2H
　 MＯＶ A,#２0H
　 　 　 MOＶX @ＤＰTR,Ａ
　 ＬCＡLL D10mｓ

　　 ＲET
DＩＳPＬＡＹ2:　MOV 　 　 A,#０6H
　 　 　ＭOＶ　　 ＤPTR,#80０４H
　　 ＭOVX 　 　@DＰTR,A
　 MＯV DPTR，＃８002H
　 　 ＭOV 　　A，#２0Ｈ
　 　 MOVＸ　　 @DPTR,Ａ
　 LＣALL Ｄ１0ｍs

　　 ＲET
Ｄ１０ms:　 MOＶ R5,＃03H　 　　 　;延时1０
DL： 　 MOV R6,#0FFＨ
DL0: DJＮZ R6,DL0
　 　 　 　 ＤJNZ Ｒ5,DL
　 　RET

TAB:　 DB　3FＨ，０６H，5BH,4FH
　 DＢ 6６Ｈ,6DH,7DH,07Ｈ
　 DＢ 7ＦH,６FH，7７H，7CH
　 　DB ３9H,５EＨ,79H,7１Ｈ

实验４
ORG　 　0000H
ＡJMP KEYPR
ＯRＧ　　０200H
KEＹPR:MOV R3,＃00H ;列寄存器
　 MOV　R4，#００H　 ;行寄存器
　 ＡCＡLL KEXAＭ
　 　ＪZ　 KＥＮＤ
　 ACALL D10ms
　 AＣALＬ KＥＸAM
　 　 JZ KEND
　　 MOV R2，#0DFH　 　　 ;扫描初值

KＥＹ１:ＭOV DＰＴR,＃8004H
　 MＯＶ A,#00H
　 MOVＸ　＠DＰTR，Ａ
　　 　MOV　DPTR,＃8002H 　 ;送列码地址
　 ＭＯV A,R2
MＯVX @DＰＴR，A 　 　　 ;扫描第一列
　 MＯV DPＴR，#80０1H ;送行码地址
　　MＯVX A,@DPTＲ
　 　ＣPL A
　　　 　ANL　A，#0ＦH
　 JＮZ KEY２　 　 　　　　;有键按下,求行值

　 MＯV A,R3 　 ;无键按下,列加4
ADD Ａ,#04H
　 MＯＶ　R3,A
MOV A,R2 　 　 　 ;求下一列扫描值
　 ＲＲ Ａ
　　 　ＭOV Ｒ２，Ａ
JB ＡＣC.0,KEＹ1 　 　　　 ;判断与否已全扫描
AJＭP ＫENＤ

KEY２：CPＬ A 　　 　　 　 　 　 ;恢复行模型
ＫＥＹ３：ＲＲＣ A
　 　JNC ＫEY４
　ＩNC R4
　 　 AJＭＰ KEY3
KEY４:ACAＬL D10ms
　ACALL ＫEXAＭ
JNZ ＫＥＹ4
MＯV　A,R3
　 ＡDＤ A,R4
MOV ６０H,Ａ ;键值存入60H

L0:CJNE Ａ,＃00Ｈ,Ｌ1
MOＶ DＰTR,#DＬTＡＢ
　 MOV A,３0H
CJNE A，#05,ＡＤＤF１
　 MOV　30Ｈ,#０0Ｈ
LJMP ADDF２
ＡＤDＦ1：ＩＮC　30H
ADDF2：ＭOVC Ａ,@A＋DPＴR
　　 MOV 31H，A
DLＴAB：DB 01Ｈ,20H,5０H,80H,0A0Ｈ
L1:CJNE A,#0FH，L２　 　　 ;锯齿波

LS０: AＣＡＬL DISＰLＡY
　 MOＶ　DＰTＲ,＃900０H
MOV Ａ,#０0H

LS１:MOVX ＠DＰTR,Ａ
　 　 INC A
　 　ACAＬL DＥLAY

　 ＣJＮE A,#0FＦH，LS1
　ACAＬL DELAY
　 ＡCAＬL　DＩＳPＬＡY
　 AＣALL ＫEXAＭ
　 　JZ LS0
　　 AＪＭP KEＮＤ
KENＤ:ACAＬL DISPLAＹ
　 LJMＰ KEYPR
L2:CＪNE A,#０EＨ,Ｌ3 　 ;三角波
LＳ2: ＡCAＬL ＤIＳPＬAY
　 　ＭOV ＤPＴＲ,#９0０0H
MOV　A，#０0H
　　 　 MOＶ R０，#200
LS3:　 ＡＣAＬＬ DELＡＹ
　 MOVX @DPTR,A 　
　 INC A

　 　 CJNE　A，＃0FFH,ＬS3

LS4: AＣALＬ DELＡY
　DＥC　A

　　 MOVX ＠ＤPTR,Ａ　 　　
CJＮE Ａ,#00H，ＬS4 　
　 ＤJNZ R0,LＳ3
　 AＣALL　DIＳPLＡＹ
　 ACＡＬL ＫＥXAM
　 　 JZ LＳ2
　 ＡJＭP ＫEＮＤ
L3:CJNＥ Ａ,#0DＨ,L４ 　 　 ;正弦波

LＳ5:
　 　ACALＬ DＩSPLＡＹ
　 MＯV A,＃０0
　 MＯV　R0，A
LＳ６: MOV　DPＴＲ,#TZSB
MＯV A,Ｒ0
MOVＣ　A,@A＋DPTR
　 　 MOＶ ＤＰTR,#90０0H
MOＶＸ @DＰＴR,A
　ACAＬＬ　DＥLＡY
IＮＣ　R０
　 ＣJNＥ R0，#32,LS6
　　　　ACＡLL ＤISPＬＡY
　 AＣAＬＬ KEXAM
　 　 JZ LＳ５
AＪMＰ KEND
L4:ＣJＮE A,#０ＣH，KEND　 　 　 　 　;方波
　 ACAＬL ＤISPLAY
MOV　R0,＃2００
LS7: AＣALＬ　DISPLAY
　 MOV Ａ,#00
　 MＯV ＤPTR,＃９000H
　 　 ＭOＶX @ＤPTR,A
　 ACALL ＤEＬＡY
　 　 ＭOV A,#25５
　　 　MＯVＸ　@DPTR，Ａ
　 ACALＬ　ＤELAＹ
ＤJNZ R0,LS7
　ＡＣALL Ｄ10ms
　　 ACALＬ ＤＩＳPLAY
ＡCAＬL KEXAＭ
　 JZ LS7
　 　AJMP ＫEＮD
DIＳＰLAＹ:ＭOＶ ＤＰＴR,#TＡB 　　 　 ；显示子程序
　 　　 　ＭOV A,６0H
　 　ＭOＶＣ　A，@A+ＤPTR
　 MOV DＰTR,＃800４H
　MOVX ＠DPTR，Ａ
MOV DPTＲ,#８002Ｈ
　 ＭOV A，#０1H
　 　ＭOVX @ＤPＴR,Ａ
　 REＴ
D１0ms:ＭOV Ｒ5,＃03H　 　 　 　 　 　 ;延时10毫秒
DL:　 MOV　R6，＃0FＦH
DL０: DJＮZ　R６,DL0
　 　ＤJNＺ　R５，DL
　 　　ＲEＴ
ＤELＡＹ:ＭOV R6,31Ｈ
　ＤL1：DJNZ R6，DL１
　　 RET
KEXAＭ:ＭＯV DPＴR,#80０２Ｈ 　 　 ;检查与否有键按下子程序
　MOV A,#00H
　　 MOVＸ ＠ＤＰTR,A
MOＶ ＤＰＴＲ，#８０01H
MOVX A,＠ＤPTR
　 　 CＰL A
　 　 ＡＮL A,#０FH
　 ＲET

TAB:DB 3ＦＨ，06H,66Ｈ,０７Ｈ,71H,5BH,６ＤＨ，７ＦH，79H,４FＨ,7DH,6ＦＨ,5EＨ，39H,7CH,77H
TZSB： DB ８0H ， ９8H, 0B0Ｈ, 0C６H, 0DAＨ, ０EAH， 0F5H， 0FDH
　 ＤB 0FFH,　0FDＨ, ０Ｆ5H , 0EAＨ, 0DＡH,　０C6H, 0B0H,　98H
　 　　ＤB ８0H　, 　６8H, 　５０H ,　 3ＡH, 26H, 　16Ｈ, 0ＢＨ, ０3H
　 DB ０1Ｈ,　 03H, 0ＢＨ,　　16Ｈ, 26H，　　3AＨ， ５0Ｈ, 68H

实验5
ORG 0000H
AJMP 　MＡIN
OＲG 0２00Ｈ
MAIN:MOV DＰＴR，#8001H 　
　　 MOV A,#00Ｈ
MOＶX @DPTR，Ａ
MＯV　ＤＰTR，#800２H　 　
MOV　A,#00H
　 　ＭOVX @DPTR，A
　ＭOＶ R３,#00H
　 MOＶ R4，#00H
　 　　　AＣALＬ DISPLAＹ
ACＡLL　ＫEXAM
　 JＺ ＭＡＩＮ
　 ＡCＡLL　DL１0ms
　 ACＡＬL KEＸAＭ
JZ MAＩN
　 MOV R2,#0DFH
MOV　DPＴＲ,#800４H
MOＶ A,#00H
　MOVX @DPＴR,A
KEY１：MOV　ＤPTR,#8002Ｈ
MOV　Ａ,R2
　 MOVＸ ＠ＤPTR,A
　　 　MOＶ DＰＴR,#８0０1H
　　 MOVX A,@DPTR
　　CPL A
　 　ＡNＬ Ａ，#0ＦH
JNZ ＫEY2
　 ＭOＶ A,R3
　AＤD Ａ,#0４H
　 　 MOV R3，A
ＭOＶ Ａ,Ｒ2
　 　RR　A
　　　 MOV R２，A
ＪB　ＡCC.0，KＥY1
　 AJMP MAIＮ
KEY2：CPL A
KＥY３:RRC A
　 JＮC ＫEY４
　 INC　R4
　 AＪMＰ KＥY3
KEY4：ＡCALＬ DISPLAY
　AＣALＬ ＤL10ｍs
　 　 ACＡLL KEXAＭ
　 　ＪNZ KＥＹ4
　MＯV A,R3
　　ADD A,R４
　 ＭOV　30H，Ａ
ＫＥY8:CJＮE A,#0０Ｈ,KＥY５ 　
ZIＪIAN：MOV 4１H，＃0
　 ＬCAＬL　DIＳＰLAY1
　 　　ACALＬ ＤL10ｍｓ
　 　 　ACALL KEXＡM
　 　 ACＡLＬ DL１０ｍｓ
　ACALL KEXAM
　JZ ZIJＩAN
　　　 AＪMP　ＭＡIN 　　
KEY5: CJNE A,#01H，ＫEY１
ＪＫ: LCＡLL ＭＳＦC　 　
　　 　 LＣALL　DISPＬAY1 　 　
ACALＬ　DL10mｓ
　 AJMP ＪＫ
MＳＦC:　MOV TＭOＤ，#15H
　MＯＶ R１,#0AH
　 　MOV TL０,#0０H
　　 MOV TH０,#00H
　　 MＯＶ TL１,#0B０Ｈ　 　
　　 MOV TＨ1,#3CＨ
SETB　P3．4 　 　 　　　 　
　 　 JB P３．４，$ 　
　 SETB　TＲ0
　 　 　ＳＥTB TR1
WAＩＴ:JＢC TＦ1,NEXT
SJMP WAIT
NEXT：MOV TL1,#0Ｂ0H
　 MOV　TH1，#3CＨ
　　 DJＮZ R1,WＡIT
　 CLＲ　TR1
　 ＣLＲ TＲ0
　 MOＶ ４1H，TＨ0
MOV　4０Ｈ,TＬ0
　 RET
ＢBＣD：MOV Ｒ2,40H 　；二----十进制转换
　 　ＭＯV R3,４1H
　 　 MOV R0,#64Ｈ 　 　 　 ;64H 高位数据存储单元
　MＯＶ R7,#04H
　ＭOV　DPTR，#ＰWTAＢ
　 MOＶ　R６,＃００H
BBC1:ＭOＶ Ａ,R6
ＭＯVＣ A,@A＋DPＴR
　 　 MOV R４,Ａ
IＮＣ　Ｒ6
　 　MOV A，R6
　 MOＶC A,＠A+DPＴR
　 　MOV R5,A
INC R６
　 MOV　＠R0,#００H
BBC2:CLＲ Ｃ
　 MＯＶ Ａ，Ｒ2
　 SUＢB A,R4
　 MOV R２,A
　 ＭＯV A,R３
　 SUBB A,R5
ＭOV　Ｒ3,A
　 JC　BBC3
INＣ @Ｒ0
　 　 　SJＭP BＢＣ２
ＢBC３：MOV A,R２
　 ＡDD Ａ,Ｒ4
MOV　R2,A
　 　MOV A,Ｒ3
ADＤC A,R5
　 ＭOV R3,A
　 DEC R０
　DＪNＺ R7,ＢBC１
　　 MＯV　Ａ,R2
　 MＯV ＠Ｒ0,A　　
　 　 RＥT
PWＴAB:　DB 10H　27Ｈ 0E８H 0３H　０Ｅ8H 03Ｈ 0ＡＨ 00H
ＤISPLＡＹ ：MＯV R2,#20H 　 　 　 　；显示循环次数
　 　 ＭOV R0,#6４H 　 　 　 　 　 　 　 　 　;　6４H 为高位数据存储单元
　 　　 　 MOV Ｒ7，#4 　 　　 　 　 　　　 　 　 ; 共 2 个八段管
　 MOV R6,#０01００000B 　　 　　 　 　 　 　 ; 从左边开始显示
　 　　 MOV　DPTR，#８００2H
　 MOV A,#0
　 　 　　 ＭOVX ＠DPTR，A 　 　 　 　　 　　 ; 关所有八段管
LOOＰ:MOＶ ＤPTR,#TAB
　 　MOV A,＠Ｒ0
　 　　MOＶC　A,@A＋DPTＲ
CＪNE R0,＃63Ｈ,ＬOPP
　 ＯRL　A，＃80H 　 　　 　　 　　 　 　 　 　　 　 　 　　 　 ;第二位打小数点,单位为 KHz
ＬＯPP:MOV　DPTR,#0800４H
　 MＯVX @ＤＰTR,A
　 MOV ＤPTR,#080０2H
MOV A,R6
MＯVX @DPＴR,A 　　 　　 　 　 　 　 　 　 　 　; 　显示一位八段管
　 　CAＬＬ DL1０mｓ
　　MＯV A,Ｒ６　 　 　 　 　　 　　 　 　 　 ； 显示下一位
　 RＲ A
MOV R6，A
DＥＣ　R0
　 ＤＪNZ R7，LOOＰ
　 DJNZ　Ｒ2,DISPＬAY
RＥT
ＤＩＳＰＬＡY1：MＯV ＤPＴR，＃ＴAB
　　 MＯV A,41Ｈ
　 MＯＶＣ Ａ,＠Ａ＋DＰTR
　 MOV DPＴR,#8００４H
　 　　MOVX ＠DPＴR，A
　　 　 ＭOV DPTR,#８002H
ＭOV A,＃10H
ＭOＶX ＠DＰTR，Ａ
　 　 MOV A,4０H
　 MOＶC A,@A+DPTR
　 　 MOV DPTR,#8004H
　 　MＯVX ＠DPＴR,A
　 　 ＭOV ＤPTR,#8002H
　 MOV A,＃08H
　　 MOVX @DＰTR,A
　 　 RET

DＤFF：ＤB　0ＣH,09FH,4ＡH,0BＨ,９9H
　　 　DB 29H,28H,8FH,0８H，09H
KEXAM:　MOV　DPTR，#8００2H 　 　　 　 　 　　　 ； 列地址
　 　MOV A，#00Ｈ
ＭOＶX　@ＤPＴＲ，Ａ
　　 MOＶ DPTR,#８0０1H 　　　 　 　　 　　;　 行地址
　　 　 MＯＶX　A,@DPＴR
CPL Ａ
ANL　A，#0FH
　 　 RET
DL１0mｓ:MOＶ 11H,#30H
DＬ:MＯＶ　10Ｈ,#255
DL0：ＤJNZ 10H,DL0
　 DＪＮZ　１１H,ＤL
　 RET
TAB:DB 3ＦH 06H　66H ０7H
　 　 DB 71H 5BH 6DH 7FH
　　　　DB 79H ４FH ７ＤH 6ＦH
　 ＤB　５EH ３9H　７CＨ　７7Ｈ

考试
OＲG　0000H
ＡJMP ＭＡIN
ＯRG ０20０H
ＢUＦF EＱＵ 60H
MAＩＮ:CLＲ P１.4
　　　 CＬＲ P１.5
　　 CLR　P1.6
　　 　ＣＬR P1.7
　　 ＭOＶ R3,#00Ｈ
　 ＭOＶ R4,#00H
　　 　AＣALＬ ＤISPLAY
　ACＡLL KEXＡM
　 　JZ MAＩN
　 　　ACALL　D10mｓ
　ACALＬ KEXAM
ＪＺ MAIＮ
MＯＶ R2,#0DFH
　 　　　MOＶ DPTR,#0D004H
　 MOV A，#０0H
　 　　MOＶX @DPＴR，A
KＥY１:MOＶ DＰTR,#0Ｄ002H
MOV Ａ,R2
MOVX @DＰTＲ，Ａ
　ＭOＶ DＰTR，＃0D０0１H
MＯVX A,@ＤＰTＲ
　　ＣPL A
　　 ANL A,#0FＨ
JNＺ KＥY2
　　　　　ＭOV A，R3
　　 ADD A,＃04Ｈ
　 ＭOV　Ｒ3,A
　 MOV A,R2
　 RR A
　 　MOV Ｒ２，A
　JB ACC．0，KEY1
　　 　　ＡJMP ＭAＩＮ
KＥY2：CPL A
KＥY3:RRC A
JNC ＫEY4
　 　　　ＩNＣ R４
　ＡJＭP KEY３
KＥY４:AＣＡLＬ DISPLAY
　　 ＡＣALL D10ms
　 　AＣＡLL KEXAＭ
JＮZ KEY4
　 MOＶ A,R3
　　 ADＤ A，Ｒ4
　　　　CJNE Ａ,#0CH，KEY5 　 ；INT0
　 ＡJMP INT０
KEY5: 　CJNＥ A,#０8H，KEY６;INT1
ＡＪMP INT１
KEY6： ＣJNE A，＃04H,MAIN
　 　 　ＡJＭＰ ＡUTO
IＮT0： 　 ACAＬＬ DＩSPLＡY１
　 MOV A,#0FH 　 　 　
　 ＭOV DPTR,#０C000H
　 　MOV R０，＃40H
　 　 MOVＸ　@ＤPTR,A
　　 　　 ACALL D１0ms
　 　 ＭＯVＸ Ａ，＠DPTR

　 CＬR　C
　　 SUＢB A,＃１78
　 　 JC　GREEN
　 　　 SETＢ　P1．4
　 　AJMP PASS
　　 　 　 GREEN： SETＢ　Ｐ1.5
　　　 PAＳS:AＤD A，#178
　 　　 ＭOV　 　@R0,Ａ
　 ACALＬ CＡＩ
　　 　 　ACAＬL　 DISPLＡY
　 　 　　ＡCALL 　KEXAM
　 　 JZ　 　　 INT0
　 　ＫEND:AJMP ＭAIＮ
ＩNＴ1:　 　ACＡＬL　DISＰＬAＹ2
　 　　MOV A,＃０FH
　 　　MOＶ 　 DPTＲ,#0C001H
　 MOV 　　 R０,#40H
　 MOVX 　＠DPTR,A
AＣALL D10mｓ
　 　 ＭOＶＸ　 A,@DＰＴR

　 ＣLR C
　 　　 SUＢＢ Ａ,＃24７
　　　　 JC GREＮ
　　 SETB P1.7
　 　 AJMP PAS
　　　 GREN： ＳＥTB P１．6
　 ＰAＳ:ADＤ A，＃2４７
　　 　MOＶ 　 @R０,Ａ
　 　 　AＣALＬ CAI
　 　 　　 AＣALL DIＳＰLAＹ
ACＡLＬ KEXAM
JＺ 　 INＴ1
　　 　 AJMＰ　　 MAIN
ＡUTＯ: MOＶ 5０H,#000
　 　 ＬOＰ０:ACALＬ　D10ms
　 　 DJＮZ 50Ｈ,LOP0
　 　ＡＪＭP ＩNT00
AUTO１： 　 　 MOＶ ５1H，#0０0
　LOＰ1：ACALＬ　D1０mｓ
DJNZ 51Ｈ,LOP1
　 AJＭP IＮT１1

I