程序代码--自动售货机

1、附录A 程序清单CS BIT P1.0CLK BIT P1.1DAT BIT P1.2KEY BIT P1.3K01 BIT P1.4K02 BIT P1.5K03 BIT P1.6K04 BIT P1.7A1 DATA 40HB1 DATA 41H * 主程序和中断程序入口*ORG 0000HLJMP STRTORG 0003HLJMP INT0ORG 000BHLJMP TIMEORG 0500H* 初始化程序* STRT: MOV 60H,#05MOV 61H,#05MOV 62H,#05MOV 63H,#05MOV B1,#0MOV A1,#0MOV A,#0A4HLCALL SEND

2、SETB CS* 主程序*W1: MOV SP,#80HCLR IT0MOV TMOD,#01HMOV TL0,#0B0HMOV TH0,#3CHSETB EASETB ET0SETB EX0SETB TR0MOV 23H,#14HMOV A,#0AHLCALL TRANLCALL DISP11MOV A,#0AHLCALL TIME1SJMP $STR11: LCALL DUMPLCALL DISPSETB CSSTR1: JB KEY,$MOV A,#15HLCALL SENDLCALL RECESETB CSJNB KEY,$LCALL CHCKCJNE A,#00H,M1CALL ST

3、R110AJMP $M1: MOV A1,ACALL JIA_JIANAJMP STR1* 抢答组号判断*INT0: ORG 1000HSETB P3.4JNB K01,TRU1JNB K02,TRU2JNB K03,TRU3JNB K04,TRU4AJMP INT0 TRU1: MOV B1,#1MOV A,#0A4HLCALL SENDLCALL RECESETB CSMOV 58H,#01HMOV 5CH,#00HMOV 5DH,#00HMOV 5EH,#00HMOV 5FH,#00HLCALL DISPLJMP W1AJMP STR1 TRU2: MOV B1,#2MOV A,#0A4

4、HLCALL SENDLCALL RECESETB CSMOV 58H,#0FHMOV 59H,#02HMOV 5CH,#00HMOV 5DH,#00HMOV 5EH,#00HMOV 5FH,#00HLCALL DISPLJMP W1AJMP STR1 TRU3: MOV B1,#3MOV A,#0A4HLCALL SENDLCALL RECESETB CSMOV 58H,#0FHMOV 59H,#0FHMOV 5AH,#03HMOV 5CH,#00HMOV 5DH,#00HMOV 5EH,#00HMOV 5FH,#00HLCALL DISPLJMP W1AJMP STR1TRU4: MOV

5、B1,#4MOV A,#0A4HLCALL SENDLCALL RECESETB CSMOV 58H,#0FHMOV 59H,#0FHMOV 5AH,#0FHMOV 5BH,#04HMOV 5CH,#00HMOV 5DH,#00HMOV 5EH,#00HMOV 5FH,#00HLCALL DISPLJMP W1AJMP STR1RETI* 抢答开始程序*STR110: MOV B1,#0MOV 58H,#05HMOV 59H,#0FHMOV 5AH,#0FHMOV 5BH,#0FHMOV 5FH,#0FHMOV 5CH,#0FHMOV 5DH,#0FHMOV 5EH,#0FHLJMP DISP

6、RETSEND: CLR CSMOV R4,#08HLCALL LDELY SEN1: RLC AMOV DAT,CNOPNOPSETB CLKLCALL SDELYCLR CLKLCALL SDELYDJNZ R4,SEN1CLR DATRETLDELY: MOV R6,#25DJNZ R6,$RETSDEL Y: MOV R6,#4DJNZ R6,$RETRECE: MOV R7,#08HSETB DATLCALL LDELY REC1: SETB CLKLCALL SDEL YMOV C,DATRLC ACLR CLKLCALL SDEL YDJNZ R7,REC1CLR DATRETC

7、HCK: MOV R3,#8MOV R2,#00HMOV BUFF,ACHC1: MOV DPTR,#TBCHKMOV A,R2MOVC A,A+DPTRCJNE A,BUFF,NEXTSJMP CHEND NEXT: INC R2DJNZ R3,CHC1 CHEND: MOV A,R2RET* 显示程序* DISP: MOV R0,#87HMOV R1,#58HMOV R5,#08H DIS1: MOV A,R0LCALL SENDMOV A,R1LCALL SENDSETB CSDEC R0INC R1DJNZ R5,DIS1RETDUMP: MOV 58H,#0EHMOV 59H,#0F

8、HMOV 5AH,#0FHMOV 5BH,#0FHMOV 5CH,#0FHMOV 5DH,#0FHMOV 5EH,#0FHMOV 5FH,#0FHRET* 延时程序*D2S: MOV R5,#30DEL1: MOV R6,#200DEL2: MOV R7,#250DJNZ R7,$DJNZ R6,DEL2DJNZ R5,DEL1RET* 倒计时子程序*ORG 1000HTIME: DJNZ 23H,TIME1MOV 23H,#14HDEC ALCALL TRANLCALL DISP11CJNE A,#00H,TIME1CLR P3.4AJMP ENDTIME TIME1: MOV TL0,#0

9、B0HMOV TH0,#3CHRETIENDTIME: LJMP STR11ORG 1200H TRAN: PUSH ACCMOV R2,AMOV R6,#00HMOV R7,#08H LOOP: CLR CMOV A,R2RLC AMOV R2,AMOV A,R6ADDC A,R6DA AMOV R6,ADJNZ R7,LOOPPOP ACCRETORG 1300HDISP11: MOV R0,AMOV A,R6ANL A,#0FHACALL SEND11MOV A,R6SWAP AANL A,#0FHACALL SEND11MOV A,R0RETSEND11: MOV DPTR,#SGTB

10、1MOVC A,A+DPTRMOV SBUF,AJNB TI,$CLR TIRET* 加减分程序*JIA_JIAN: MOV A,A1CJNE A,#1,NEXT_JIANMOV A,B1CJNE A,#1,L2MOV B1,AMOV A,60HADD A,#1MOV 60H,AMOV 5CH,60HAJMP ENDJIA_JIAN L2: CJNE A,#2,L3MOV B1,AMOV A,61HADD A,#1MOV 61H,AMOV 5DH,61HAJMP ENDJIA_JIAN L3: CJNE A,#3,L4MOV B1,AMOV A,62HADD A,#1MOV 62H,AMOV

11、5EH,62HAJMP ENDJIA_JIANMOV ADD MOV MOV AJMP NEXT_JIAN: MOV MOV CJNE MOV MOV SUBB MOV MOV AJMP L22: CJNE MOV MOV SUBB MOV MOV AJMP L23: CJNE MOV MOV SUBB MOV MOV AJMP L24: MOV MOV A,63H A,#1 63H,A 5FH,63H ENDJIA_JIAN A,A1 A,B1 A,#1,L22 B1,A A,60H A,#1 60H,A 5CH,60H ENDJIA_JIAN A,#2,L23 B1,A A,61H A,#1 61H,A 5DH,61H ENDJIA_JIAN A,#3,L24 B1,A A,62H A,#1 62H,A 5E