74LS164.docx

74LS164.docx

《74LS164.docx》由会员分享，可在线阅读，更多相关《74LS164.docx（18页珍藏版）》请在冰豆网上搜索。

74LS164

org00H

JMPSTART

ORG000BH

JMPT0IN

ORG0013H

JMPDSFM

START:

MOVTMOD,#01H

MOVIE,#86H

SETBPX1

MOVTH0,#3CH

MOVTL0,#0B0H

MOVDPTR,#TAB

MOVR2,#0

MOV30H,#0

MOV31H,#0

MOV32H,#12

SETBTR0

JMP$

T0IN:

MOVTH0,#3CH

MOVTL0,#0B0H

INCR2

CJNER2,#20,FH

MOVR2,#0

INC30H

MOVA,30H

CJNEA,#60,FH1

MOV30H,#0

INC31H

MOVA,31H

CJNEA,#60,FH1

MOV31H,#0

INC32H

MOVA,32H

CJNEA,#13,FH1

MOV32H,#1

FH1:

ACALLFYSBCD

ACALLDISP

FH:

RET

FYSBCD:

MOVR3,#3

MOVR0,#30

MOVR1,#40H

LP:

MOVA,@R0

MOVB,#10

DIVAB

MOV@R1,B

INCR1

MOV@R1,A

INCR0

INCR1

DJNZR3,LP

RET

DISP:

MOVR1,#40H

LP1:

MOVA,@R1

MOVCA,@A+DPTR

MOVSBUF,A

JNBTI,$

CLRTI

INCR1

CJNER1,#46H,LP1

RET

DSFM:

CLREA

CLRTR0

ACALLDELY

JBP3.3,FH2

JNBP3.3,$

LP0:

ACALLFYSBCD

ACALLDISP

ACALLKEY

ACALLFYSBCD

ACALLDISP

ACALLDELY1

FH2:

SETBEA

SETBTR0

RETI

DELY:

MOVR4,#100

D0:

MOVR5,#200

D2:

DJNZR5,D2

DJNZR4,D0

RET

DELY1:

MOVR5,#20

D1:

MOVR6,#100

D3:

MOVR7,#100

DJNZR7,$

DJNZR6,D3

DJNZR5,D1

RET

KEY:

MOV45H,#10

MOV44H,#10

ACALLDISP

ACALLDELY1

JBP2.0,NX1

ACALLDELY

JNBP2.0,$

INC32H

MOVA,32H

CJNEA,#13,NX1

MOV30H,#0

NX1:

ACALLFYSBCD

ACALLDISP

ACALLDELY1

LP2:

JNBP3.3,DF2

SJMPKEY

DF2:

ACALLDELY

JNBP3.3,$

DF1:

MOV43H,#10

MOV42H,#10

ACALLDISP

ACALLDELY1

JBP2.0,NX2

ACALLDELY

JNBP2.0,$

INC31H

MOVA,31H

CJNEA,#60,NX2

MOV30H,#0

NX2:

ACALLFYSBCD

ACALLDISP

ACALLDELY

LP3:

JNBP3.3,DMZ

JMPDF1

DMZ:

ACALLDELY

JNBP3.3,$

DM1:

MOV41H,#10

ACALLDISP

ACALLDELY1

JBP2.0,NX3

ACALLDELY

JNBP2.0,$

INC30H

MOVA,30H

CJNEA,#60,NX3

MOV30H,#0

NX3:

ACALLFYSBCD

ACALLDISP

ACALLDELY1

LP4:

JNBP3.3,DSFH

JMPDM1

DSFH:

ACALLDELY

JNBP3.3,$

RET

TAB:

DB3Fh,06h,5Bh,4Fh,66h,6Dh,7Dh,07h,7Fh,6Fh

DB03H

END

ORG00H

JMPMAIN

ORG0030H

MAIN:

MOVSP,#64H

MOVSCON,#00H

MAIN1:

MOV30H,#0

MOV31H,#0

MOV32H,#0

MOV33H,#0

K1:

ACALLDISP

JBP3.6,K2

ACALLDISP

JNBP3.6,$-2

INC30H

MOVA,30H

CJNEA,#10,K1

MOV30H,#0

INC31H

MOVA,31H

CJNEA,#10,K1

MOV31H,#0

INC32H

MOVA,32H

CJNEA,#10,K1

ACALLDISP

mov32h,#0

inc33H

MOVA,33H

CJNEA,#10,K1

JMPK1

k2:

jbP3.7,K1

ACALLDISP

JNBP3.7,$-2

JMPMAIN1

DISP:

MOVDPTR,#TAB

CLRP2.3

MOVA,30H

MOVCA,@A+DPTR

MOVSBUF,A

JNBTI,$

CLRTI

ACALLD1MS

SETBP2.3

CLRP2.2

MOVA,31H

MOVCA,@A+DPTR

MOVSBUF,A

JNBTI,$

CLRTI

LCALLD1MS

SETBP2.2

MOVA,32H

CLRP2.1

MOVCA,@A+DPTR

MOVSBUF,A

JNBTI,$

CLRTI

LCALLD1MS

SETBP2.1

CLRP2.0

MOVA,33H

MOVCA,@A+DPTR

MOVSBUF,A

JNBTI,$

CLRTI

ACALLD1MS

SETBP2.0

RET

D1MS:

MOVR0,#25

MOVR1,#20

DJNZR1,$

DJNZR0,$-4

RET

TAB:

DB3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH

END

ORG00H

JMPMAIN

ORG0030H

MAIN:

MOVSP,#64H

MOVSCON,#00H

MAIN1:

MOV30H,#0

MOV31H,#0

MOV32H,#0

MOV33H,#0

K1:

ACALLDISP

//JBP3.6,K2

//ACALLDISP

//JNBP3.6,$-2

INC30H

MOVA,30H

CJNEA,#10,K1

MOV30H,#0

INC31H

MOVA,31H

CJNEA,#10,K1

MOV31H,#0

INC32H

MOVA,32H

CJNEA,#10,K1

ACALLDISP

mov32h,#0

inc33H

MOVA,33H

CJNEA,#10,K1

JMPK1

//K2:

JBP3.7，K1

//ACALLDISP

//JNBP3.7，$-2

//ACALLMAIN1

MOVR3,#0

DISP:

MOVDPTR,#TAB

CLRP2.3

MOVA,30H

MOVCA,@A+DPTR

MOVSBUF,A

JNBTI,$

CLRTI

ACALLD1MS

SETBP2.3

CLRP2.2

MOVA,31H

MOVCA,@A+DPTR

MOVSBUF,A

JNBTI,$

CLRTI

LCALLD1MS

SETBP2.2

MOVA,32H

CLRP2.1

MOVCA,@A+DPTR

MOVSBUF,A

JNBTI,$

CLRTI

LCALLD1MS

SETBP2.1

CLRP2.0

MOVA,33H

MOVCA,@A+DPTR

MOVSBUF,A

JNBTI,$

CLRTI

ACALLD1MS

SETBP2.0

DJNZR3,DISP

RET

D1MS:

MOVR5,#50

DJNZR5,$

RET

TAB:

DB3FH,06H,5BH,4FH,66H,6DH,7DH,07H,7FH,6FH

END

ORG00H

JMPMAIN

ORG0030H

MOVSP,#30H

MOVP1,#0FFH

MOVP2,#0FFH

MAIN:

JBP1.0,AA

ACALLDS0

AA:

JBP1.1,BB

ACALLDS1

BB:

JBP1.2,CC

ACALLDS2

CC:

JBP1.3,DD1

ACALLDS3

DD1:

JBP1.4,EE

ACALLDS4

EE:

JMPMAIN

ds0:

acalldl

clrP2.0

ACALLDELAY

SETBP2.0

ACALLDELAY

jnbp1.1,ds1

jnbp1.2,ds2

jnbp1.3,ds3

jnbp1.4,ds4

jmpds0

ds1:

acalldl

clrP2.1

ACALLDELAY1

SETBP2.1

ACALLDELAY

jnbp1.0,ds0

jnbp1.2,ds2

jnbp1.3,ds3

jnbp1.4,ds4

jmpds1

ds2:

acalldl

clrP2.2

ACALLDELAY2

SETBP2.2

ACALLDELAY

jnbp1.0,ds0

jnbp1.1,ds1

jnbp1.3,ds3

jnbp1.4,ds4

jmpds2

ds3:

acalldl

clrP2.3

ACALLDELAY3

SETBP2.3

ACALLDELAY

jnbp1.0,ds0

jnbp1.1,ds1

jnbp1.2,ds2

jnbp1.4,ds4

jmpds3

ds4:

acalldl

clrp2.4

jnbp1.4,$

k1:

jbp1.4,k1

jnbp1.4,$

setbp2.4

jmpmain

delay:

movr5,#25

d1:

movr6,#100

d2:

movr7,#100

djnzr7,$

djnzr6,d2

djnzr5,d1

ret

delay1:

movr5,#50

da1:

movr6,#100

da2:

movr7,#100

djnzr7,$

djnzr6,da2

djnzr5,da1

ret

delay2:

movr5,#75

dsf1:

movr6,#100

dsf2:

movr7,#100

djnzr7,$

djnzr6,dsf2

djnzr5,dsf1

ret

delay3:

movr5,#100

ddf1:

movr6,#100

ddf2:

movr7,#100

djnzr7,$

djnzr6,ddf2

djnzr5,ddf1

ret

dl:

movr0,#100

djnzr0,$

ret

end

ORG00H

JMPMAIN

ORG0030H

MOVSP,#60

MOVP3,#0FFH

MOVP1,#0FFH

MAIN:

JNBP3.2,K1

JNBP3.3,K2

JNBP3.4,K3

JNBP3.5,K4

JNBP3.7,K5

JMPMAIN

K1:

ACALLDELAY

JBP3.2,K1

JNBP3.2,$

ACALLZ1

K2:

ACALLDELAY

JBP3.3,K2

JNBP3.3,$

acallz2

K3:

ACALLDELAY

JBP3.4,K3

JNBP3.4,$

CLRP1.2

MOVR0,#3

S2:

ACALLDELAY1

DJNZR0,S2

SETBP1.2

JMPMAIN

K4:

ACALLDELAY

JBP3.5,K4

JNBP3.5,$

CLRP1.3

MOVR0,#4

S3:

ACALLDELAY1

DJNZR0,S3

SETBP1.3

JMPMAIN

K5:

ACALLDELAY

JBP3.7,K5

JNBP3.7,$

CLRP1.4

KK1:

ACALLDELAY

JBP3.7,KK1

JNBP3.7,$

SETBP1.4

JMPMAIN

Z1:

CLRP1.0

LCALLDELAY1

SETBP1.0

JNBP3.3,K2

JNBP3.4,K3

JNBP3.5,K4

JNBP3.7,K5

JMPZ1

Z2:

movr0,#2

y1:

CLRP1.1

CALLDELAY1

SETBP1.1

JNBP3.2,K1

JNBP3.4,K3

JNBP3.5,K4

JNBP3.7,K5

djnzr0,y1

JMPZ2

DELAY:

MOVR4,#125

DJNZR4,$

RET

DELAY1:

MOVR5,#25

D1:

MOVR6,#100

D2:

MOVR7,#100

DJNZR7,$

DJNZR6,D2

DJNZR5,D1

RET

END

S1EQUP2.0

S2EQUP2.1

S3EQUP2.2

S4EQUP2.3

DISPBUFEQU30H

HOUREQU34H

MINEQU35H

SECEQU36H

COUNTEQU37H

ORG00H

JMPSTART

ORG000BH

JMPT0INT

START:

MOVDISPBUF,#0C0H

MOVDISPBUF+1,#40H

MOVDISPBUF+2,#0C0H

MOVDISPBUF+3,#0C0H

MOVHOUR,#0

MOVMIN,#0

MOVSEC,#0

MOVCOUNT,#0

MOVSP,#60H

MOVTMOD,#01H

MOVTH0,#3CH

MOVTL0,#0B0H

MOVIE,#10000010B

SETBTR0

MOVA,#0FFH

MOVP1,A

LOOP:

LCALLCONV

LCALLDISPCAN

JNBS1,KEY1

JMPLOOP

KEY1:

LCALLDELAY

JNBS1,LEY2

JMPLOOP

KEY2:

LCALLSETTIME

JMPLOOP

COUNV:

MOVA,HOUR

MOVB,#10

DIVAB

MOVDPTR,#TABLE

MOVCA,@A+DPTR

MOVDISPBUF,A

MOVA,B

MOVDPTR,#TABLE1

MOVCA,@A+DPTR

MOVDISPBUF+1,A

MOVA,MIN

MOVB,#10

DIVAB

MOVDPTR,#TABLE

MOVCA,@A+DPTR

MOVDISPBUF+2,A

MOVA,B

MOVCA,@A+DPTR

MOVDISPBUF+3,A

RET

DISPSCAN:

MOVR0,#DISPBUF

MOVR2,#4

MOVA,#01H

SC:

PUSHACC

MOVA,@R0

MOVP1,A

POPACC

MOVP0,A

LCALLDELAY1

RLA

INCR0

DJNZR2,SC

RET

SETTIME: