;************************************************* ; FILENAME P1.asm ; DESCRIPTION control warching machine ; HARDWARE 89C2051 ; ASSEMBLER SXA51 ; START-DATE 29/11/44 ; COMPANY BAT micro lab ;************************************************* COM1 BIT P1.2 COM2 BIT P1.3 DIP_1 BIT P3.3 DIP_2 BIT P3.4 DIP_3 BIT P3.5 SW_PROG BIT P3.7 RY_POWER BIT P3.2 RY_START BIT P3.0 RY_COIN BIT P3.1 IN_COIN BIT P3.7 IN_CLR BIT P3.7 SDA BIT P1.0 SCL BIT P1.1 COIN EQU 08 I2C_DATA EQU 09 DELAY_SEG EQU 10 NUMBER EQU 11 DEL_1 EQU 12 DEL_2 EQU 13 FLAG_UP EQU 14 FLAG EQU 15 SIZE EQU 16 ORDER EQU 17 TIMER EQU 18 COUNT_1 EQU 19 EEPROM_CODE1 EQU 10100001B ;************************************************ ORG 0000H SJMP MAIN ORG 000BH LJMP SUB_TIMER0 ;************************************************ MAIN:MOV P1,#00001111B MOV P3,#11110000B MOV IE,#10000001B MOV TMOD,#01H MOV TH0,#3CH MOV TL0,#0B0H MOV R2,#00 MOV R3,#00 MOV COIN,#00H MOV SIZE,#01H MOV ORDER,#01H MOV TIMER,#05H MOV FLAG,#0FFH MOV FLAG_UP,#00H LCALL READ_EEPROM1 MOV A,FLAG CJNE A,#0FFH,CHECK MOV FLAG,#00 LCALL WRITE_EEPROM1 CHECK:MOV A,FLAG_UP CJNE A,#01H,START MOV R5,#01H MOV DEL_1,#00H I1:LCALL DISPLAY LCALL DISPLAY DJNZ DEL_1,I1 LJMP RUN_POWER ;*************************************************** START:MOV R5,#00H CLR TR0 MOV FLAG_UP,#00H LCALL WRITE_EEPROM1 SETB RY_COIN MOV COIN,#0ABH MOV NUMBER,#00H A1:LCALL DISPLAY JB DIP_1,A2 LJMP COIN_SIZE A2: JB DIP_2,A3 LJMP COIN_ORDER A3: JB DIP_3,A4 LJMP COIN_TIMER A4: JB IN_COIN,A1 LJMP RUN_COIN ;************************************************** RUN_COIN:MOV COIN,SIZE G1:LCALL DISPLAY LCALL DISPLAY LCALL DISPLAY LCALL DISPLAY JNB IN_COIN,G1 INC NUMBER MOV A,NUMBER CJNE A,ORDER,G2 LJMP RUN_POWER G2:MOV COIN_1,#20 MOV DEL_1,#00 G3: JNB IN_COIN,G5 LCALL DISPLAY DJNZ DEL_1,G3 G4: JNB IN_COIN,G5 LCALL DELAY_2 DJNZ DEL_1,G4 DJNZ COUNT_1,G3 LJMP START G5:MOV A,COIN ADD A,SIZE DA A MOV COIN.A SJMP G1 ;************************************************** RUN_POWER:MOV FLAG_UP,#01H CLR RY_COIN SETB RY_POWER MOV DEL_1,#00 B1:LCALL DISPLAY DJNZ DEL_1,B1 CLR RY_POWER LCALL WRTE_EEPROM1 B2:LCALL DISPLAY LCALL DISPLAY LCALL DISPLAY LCALL DISPLAY DJNZ DEL_1,B2 SETB RY_START B3:LCALL DISPLAY DJNZ DEL_1,B3 CLR RY_START SETB TR0 CLR RY_COIN CJNE R5,#00H,B4 B4:MOV COIN,#00H LCALL WRTE_EEPROM1 B8:LCALL DISPLAY LCALL DISPLAY JB TR0,B5 SJMP B6 B5:JNB IN_CLR,B8 B6:MOV DEL_1,#00 B7:LCALL DISPLAY DJNZ DEL_1,B7 LJMP START ;************************************************** COIN_SIZE:MOV R4,#0FFH MOV COIN,SIZE LCALL DISPLAY MOV DEL_1,#00 C1:JNB SW_PROG,C3 LCALL DISPLAY DJNZ DEL_1,C1 C2:JNB SW_PROG,C3 LCALL DELAY_2 LCALL DELAY_2 DJNZ DEL_1,C2 LJMP START C3:INC R4 CJNE R4,#03H,C4 MOV R4,#00H C4:MOV A,R4 MOV DPTR,#TABLE_SIZE MOVC A,@A+DPTR MOV SIZE,A MOV COIN,SIZE LCALL WRTE_EEPROM1 LCALL DISPLAY C5:LCALL DISPLAY JNB SW_PROG,C5 LJMP C1 TABLE_SIZE:DB 01H,05H,10H ;************************************************** COIN_ORDER:MOV COIN,ORDER LCALL DISPLAY MOV DEL_1,#00 D1:JNB SW_PROG,D3 LCALL DISPLAY DJNZ DEL_1,D1 D2:JNB SW_PROG,D3 LCALL DELAY_2 LCALL DELAY_2 DJNZ DEL_1,D2 JNB DIP_2,D1 LJMP START D3:MOV A,ORDER ADD A,#01H DA A MOV ORDER,A CJNE A,#11H,D4 MOV ORDER,#01H D4:MOV COIN,ORDER LCALL WRTE_EEPROM1 LCALL DISPLAY D5:LCALL DISPLAY JNB SW_PROG,D5 LJMP D1 ;************************************************** COIN_TIMER:MOV COIN,TIMER LCALL DISPLAY MOV DEL_1,#00 E1:JNB SW_PROG,E3 LCALL DISPLAY DJNZ DEL_1,E1 E2:JNB SW_PROG,E3 LCALL DELAY_2 LCALL DELAY_2 DJNZ DEL_1,E2 JNB DIP_3,E1 LJMP START E3:MOV A,TIMER ADD A,#05H DA A MOV TIMER,A CJNE A,#00H,E4 MOV TIMER,#05H E4:MOV COIN,TIMER LCALL WRTE_EEPROM1 LCALL DISPLAY E5:LCALL DISPLAY JNB SW_PROG,E5 LJMP E1 ;************************************************* SUB_TIMER0:PUSH ACC MOV TH0,#3CH MOV TL0,#0B0H INC R2 CJNE R2,#20,LL1 MOV R2,#00 INC R3 CJNE R3,#60,LL1 MOV R3,#00H INC COIN MOV A,COIN ADD A,#00H DA A MOV COIN,A LCALL WRTE_EEPROM1 CJNE A,TIMER,LL1 CLR TR0 LL1:POP ACC RETI ;************************************************ DISPLAY:MOV B,COIN MOV C,B.4 MOV P1.7,C MOV C,B.5 MOV P1.6,C MOV C,B.6 MOV P1.5,C MOV C,B.7 MOV P1.4,C CLR COM1 LCALL DELAY_2 SETB COM1 MOV C,B.0 MOV P1.7,C MOV C,B.1 MOV P1.6,C MOV C,B.2 MOV P1.5,C MOV C,B.3 MOV P1.4,C CLR COM2 LCALL DELAY_2 SETB COM2 RET ;************************************************ DELAY_2:MOV DELAY_SEG,#00H DL:NOP DJNZ DELAY_SEG,DL RET ;************************************************ WRITE_EEPROM1:LCALL I2C_STRAT MOV I2C_DATA,#EEPROM_CODE1 LCALL I2C_WR MOV I2C_DATA,#00 LCALL I2C_WR MOV I2C_DATA,COIN LCALL I2C_WR MOV I2C_DATA,SIZE LCALL I2C_WR MOV I2C_DATA,ORDER LCALL I2C_WR MOV I2C_DATA,TIMER LCALL I2C_WR MOV I2C_DATA,FLAG LCALL I2C_WR MOV I2C_DATA,FLAG_UP LCALL I2C_WR LCALL I2C_STOP RET ;************************************************ READ_EEPROM1:LCALL I2C_START MOV I2C_DATA,#EEPROM_CODE1 LCALL I2C_WR MOV I2C_DATA,#00H LCALL I2C_WR LCALL EEPROM_RD1 MOV COIN,I2C_DATA LCALL EEPROM_RD1 MOV SIZE,I2C_DATA LCALL EEPROM_RD1 MOV ORDER,I2C_DATA LCALL EEPROM_RD1 MOV TIMER,I2C_DATA LCALL EEPROM_RD1 MOV FLAG,I2C_DATA LCALL EEPROM_RD1 MOV FLAG_UP,I2C_DATA RET ;*********************************************** I2C_WR:PUSH ACC MOV A,I2C_DATA MOV R7,#08 I2C_WR_1:RLC A MOV SDA,C LCALL I2C_CLK DJNZ R7,I2C_WR_1 SETB SDA LCALL I2C_DELAY SETB SCL LCALL I2C_DELAY JB SDA,I2C_WR_2 I2C_WR_2:CLR SCL POP ACC RET ;********************************************** I2C_RD:PUSH ACC CLR A MOV R7,#08 I2C_RD_1:ACALL I2C_DELAY SETB SCL ACALL I2C_DELAY MOV C,SDA RLC A CLR SCL DJNZ R7,I2C_RD_1 MOV I2C_DATA,A POP ACC RET ;********************************************** EEPROM_RD1:LCALL I2C_START MOV I2C_DATA,#EEPROM1+1 LCALL I2C_WR LCALL I2C_RD LCALL I2C_STOP RET ;********************************************** I2C_NACK:SETB SDA LCALL I2C_CLK RET I2C_START:SETB SCL SETB SDA LCALL I2C_DELAY CLR SDA LCALL I2C_DELAY CLR SCR RET I2C_STOP:CLR SDA LCALL I2C_DELAY SETB SCR LCALL I2C_DELAY SETB SDA RET I2C_CLK:LCALL I2C_DELAY SETB SCL LCALL I2C_DELAY CLR SCL RET I2C_DELAY:MOV DEL_2,#03 I2C_DELAY_1:NOP NOP DJNZ DEL_2,I2C_DELAY_1 RET END ;***********************************************