程序代码自动售货机.docx
《程序代码自动售货机.docx》由会员分享，可在线阅读，更多相关《程序代码自动售货机.docx（14页珍藏版）》请在冰豆网上搜索。
程序代码自动售货机
附录A程序清单
CSBITP1.0
CLKBITP1.1
DATBITP1.2
KEYBITP1.3
K01BITP1.4
K02BITP1.5
K03BITP1.6
K04BITP1.7
A1DATA40H
B1DATA41H
*****************************
*主程序和中断程序入口*
*****************************
ORG0000H
LJMPSTRT
ORG0003H
LJMPINT0
ORG000BH
LJMPTIME
ORG0500H
*******************
*初始化程序*
*******************
STRT:
MOV60H,#05
MOV61H,#05
MOV62H,#05
MOV63H,#05
MOVB1,#0
MOVA1,#0
MOVA,#0A4H
LCALLSEND
SETBCS
******************
*主程序*
******************
W1:
MOVSP,#80H
CLRIT0
MOVTMOD,#01H
MOVTL0,#0B0H
MOVTH0,#3CH
SETBEA
SETBET0
SETBEX0
SETBTR0
MOV23H,#14H
MOVA,#0AH
LCALLTRAN
LCALLDISP11
MOVA,#0AH
LCALLTIME1
SJMP$
STR11:
LCALLDUMP
LCALLDISP
SETBCS
STR1:
JBKEY,$
MOVA,#15H
LCALLSEND
LCALLRECE
SETBCS
JNBKEY,$
LCALLCHCK
CJNEA,#00H,M1
CALLSTR110
AJMP$
M1:
MOVA1,A
CALLJIA_JIAN
AJMPSTR1
******************
*抢答组号判断*
******************
INT0:
ORG1000H
SETBP3.4
JNBK01,TRU1
JNBK02,TRU2
JNBK03,TRU3
JNBK04,TRU4
AJMPINT0
TRU1:
MOVB1,#1
MOVA,#0A4H
LCALLSEND
LCALLRECE
SETBCS
MOV58H,#01H
MOV5CH,#00H
MOV5DH,#00H
MOV5EH,#00H
MOV5FH,#00H
LCALLDISP
LJMPW1
AJMPSTR1
TRU2:
MOVB1,#2
MOVA,#0A4H
LCALLSEND
LCALLRECE
SETBCS
MOV58H,#0FH
MOV59H,#02H
MOV5CH,#00H
MOV5DH,#00H
MOV5EH,#00H
MOV5FH,#00H
LCALLDISP
LJMPW1
AJMPSTR1
TRU3:
MOVB1,#3
MOVA,#0A4H
LCALLSEND
LCALLRECE
SETBCS
MOV58H,#0FH
MOV59H,#0FH
MOV5AH,#03H
MOV5CH,#00H
MOV5DH,#00H
MOV5EH,#00H
MOV5FH,#00H
LCALLDISP
LJMPW1
AJMPSTR1
TRU4:
MOVB1,#4
MOVA,#0A4H
LCALLSEND
LCALLRECE
SETBCS
MOV58H,#0FH
MOV59H,#0FH
MOV5AH,#0FH
MOV5BH,#04H
MOV5CH,#00H
MOV5DH,#00H
MOV5EH,#00H
MOV5FH,#00H
LCALLDISP
LJMPW1
AJMPSTR1
RETI
******************
*抢答开始程序*
******************
STR110:
MOVB1,#0
MOV58H,#05H
MOV59H,#0FH
MOV5AH,#0FH
MOV5BH,#0FH
MOV5FH,#0FH
MOV5CH,#0FH
MOV5DH,#0FH
MOV5EH,#0FH
LJMPDISP
RET
SEND:
CLRCS
MOVR4,#08H
LCALLLDELY
SEN1:
RLCA
MOVDAT,C
NOP
NOP
SETBCLK
LCALLSDELY
CLRCLK
LCALLSDELY
DJNZR4,SEN1
CLRDAT
RET
LDELY:
MOVR6,#25
DJNZR6,$
RET
SDELY:
MOVR6,#4
DJNZR6,$
RET
RECE:
MOVR7,#08H
SETBDAT
LCALLLDELY
REC1:
SETBCLK
LCALLSDELY
MOVC,DAT
RLCA
CLRCLK
LCALLSDELY
DJNZR7,REC1
CLRDAT
RET
CHCK:
MOVR3,#8
MOVR2,#00H
MOVBUFF,A
CHC1:
MOVDPTR,#TBCHK
MOVA,R2
MOVCA,@A+DPTR
CJNEA,BUFF,NEXT
SJMPCHEND
NEXT:
INCR2
DJNZR3,CHC1
CHEND:
MOVA,R2
RET
******************
*显示程序*
******************
DISP:
MOVR0,#87H
MOVR1,#58H
MOVR5,#08H
DIS1:
MOVA,R0
LCALLSEND
MOVA,@R1
LCALLSEND
SETBCS
DECR0
INCR1
DJNZR5,DIS1
RET
DUMP:
MOV58H,#0EH
MOV59H,#0FH
MOV5AH,#0FH
MOV5BH,#0FH
MOV5CH,#0FH
MOV5DH,#0FH
MOV5EH,#0FH
MOV5FH,#0FH
RET
******************
*延时程序*
******************
D2S:
MOVR5,#30
DEL1:
MOVR6,#200
DEL2:
MOVR7,#250
DJNZR7,$
DJNZR6,DEL2
DJNZR5,DEL1
RET
******************
*倒计时子程序*
******************
ORG1000H
TIME:
DJNZ23H,TIME1
MOV23H,#14H
DECA
LCALLTRAN
LCALLDISP11
CJNEA,#00H,TIME1
CLRP3.4
AJMPENDTIME
TIME1:
MOVTL0,#0B0H
MOVTH0,#3CH
RETI
ENDTIME:
LJMPSTR11
ORG1200H
TRAN:
PUSHACC
MOVR2,A
MOVR6,#00H
MOVR7,#08H
LOOP:
CLRC
MOVA,R2
RLCA
MOVR2,A
MOVA,R6
ADDCA,R6
DAA
MOVR6,A
DJNZR7,LOOP
POPACC
RET
ORG1300H
DISP11:
MOVR0,A
MOVA,R6
ANLA,#0FH
ACALLSEND11
MOVA,R6
SWAPA
ANLA,#0FH
ACALLSEND11
MOVA,R0
RET
SEND11:
MOVDPTR,#SGTB1
MOVCA,@A+DPTR
MOVSBUF,A
JNBTI,$
CLRTI
RET
******************
*加减分程序*
******************
JIA_JIAN:
MOVA,A1
CJNEA,#1,NEXT_JIAN
MOVA,B1
CJNEA,#1,L2
MOVB1,A
MOVA,60H
ADDA,#1
MOV60H,A
MOV5CH,60H
AJMPENDJIA_JIAN
L2:
CJNEA,#2,L3
MOVB1,A
MOVA,61H
ADDA,#1
MOV61H,A
MOV5DH,61H
AJMPENDJIA_JIAN
L3:
CJNEA,#3,L4
MOVB1,A
MOVA,62H
ADDA,#1
MOV62H,A
MOV5EH,62H
AJMPENDJIA_JIAN
L4:
MOVB1,A
MOVA,63H
ADDA,#1
MOV63H,A
MOV5FH,63H
AJMPENDJIA_JIAN
NEXT_JIAN:
MOVA,A1
MOVA,B1
CJNEA,#1,L22
MOVB1,A
MOVA,60H
SUBBA,#1
MOV60H,A
MOV5CH,60H
AJMPENDJIA_JIAN
L22:
CJNEA,#2,L23
MOVB1,A
MOVA,61H
SUBBA,#1
MOV61H,A
MOV5DH,61H
AJMPENDJIA_JIAN
L23:
CJNEA,#3,L24
MOVB1,A
MOVA,62H
SUBBA,#1
MOV62H,A
MOV5EH,62H
AJMPENDJIA_JIAN
L24:
MOVB1,A
MOVA,63H
SUBBA,#1
MOV63H,A
MOV5FH,63H
ENDJIA_JIAN:
LCALLDISP
RET
SGTB1:
DB03H,9FH,25H,0DH,99H,49H,41H,1FH,01H,09H
TBCHK:
DB48,50,42,34,52,44,36,54
END
升级会员 