高级电工单片机全屏版指令Word下载.docx

高级电工单片机全屏版指令Word下载.docx

《高级电工单片机全屏版指令Word下载.docx》由会员分享，可在线阅读，更多相关《高级电工单片机全屏版指令Word下载.docx（9页珍藏版）》请在冰点文库上搜索。

SJMP$

END

A查找大小数：

ORG0000H

LJMPST

ORG0800H

ST:

MOVR0,#20H

MOVR1,#20

MOV34H,@R0

MOV35H,@R0

DECR1

INCR0

MOVA,@R0

SUBBA,34H

JCLP1

MOV34H,@R0

SJMPLP3

LP1:

MOVA,@R0

SUBBA,35H

JNCLP3

MOV35H,@R0

LP3:

DJNZR1,LP

SJMP$

END

H继电器控制：

ST:

CPLP1.0

CALLDLY

SJMPST

DLY:

MOVR3,#10

D1:

MOVR4,#200

D2:

MOVR5,#250

D3:

DJNZR5,D3

DJNZR4,D2

DJNZR3,D1

RET

END

C计数报警器：

ORG0000H

CLRP1.0

CLRA

MOVTL0,#0

MOVTMOD,#00000110B

SETBTR0

LP:

MOVA,TL0

CJNEA,#2,LP

SETBP1.0

SJMP$

E循环灯点亮：

ORG0000H

MOVR1,#10

MOVR0,#8

MOVA,#10000000B

LP:

MOVP1,A

CALLDLY

RRA

DJNZR0,LP

MOVP1,#0

DJNZR1,ST

SJMP$

MOVR3,#10

MOVR4,#200

D1:

MOVR5,#250

DJNZR5,D2

DJNZR4,D1

DJNZR3,DLY

RET

END

F霓虹灯控制：

MOVR1,#20

ST:

MOVR0,#0

MOVDPTR,#TAB

LP:

MOVA,R0

MOVCA,@A+DPTR

MOVP1,A

CALLDLY

INCR0

CJNER0,#10,LP

DJNZR1,ST

SJMP$

ORG0100H

TAB:

DB10000001B,01000010B,00100100B,00011000B,0

DB00011000B,00100100B,01000010B,10000001B,0

DLY:

MOVR3,#2

MOVR4,#200

D2:

D3:

DJNZR5,D3

DJNZR4,D2

DJNZR3,D1

RET

END

D数码管显示：

MOVR1,#5

ST:

MOVSCON,#0

MOVA,R0

MOVDPTR,#TAB

MOVCA,@A+DPTR

MOVSBUF,A

JNBTI,$

CLRTI

INCR0

CJNER0,#3,LP

ORG0100H

DB0C0H,0F9H,0A4H,0FFH

DJNZR5,D3

DJNZR4,D2

DJNZR3,D1

G算术运算器：

MOVA,20H

ADDA,30H

MOVB,30H

MULAB

ORG0200H

DB0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H

DB80H,90H,88H,83H,0C6H,0A1H,86H,8EH

END

I倒计时音乐报警器：

MOVSCON,#0

CLRP1.1

MOVSBUF,#0FFH

JBP3.2,$

MOVR0,#0

MOVSBUF,A

JNBTI,$

CLRTI

CJNEA,#0C0H,YS

SETBP1.1

JBP3.3,$

SJMPST

YS:

INCR0

SJMPLP

DB90H,80H,OF8H,82H,92H,99H

DB0B0H,0A4H,0F9H,0C0H

B航标灯控制：

SJMPST

ORG0003H

SJMPWB

CLRP1.0

CLRIT0

SETBEA

SETBEX0

SJMP$

WB:

SETBP1.0

CALLDLY

CLRP1.0

JNBP3.2,WB

RETI

MOVR0,#40

MOVTMOD,#00000001B

MOVTH0,#60

MOVTL0,#176

SETBTR0

JNBTF0,$

CLRTF0

DJNZR0,LP

END