Chinh sua boi: nguyenvanbientbd47@gmail.com PHAÀN CHÖÔNG TRÌNH VIEÁT TREÂN VI XÖÛ LYÙ Chinh sua boi: nguyenvanbientbd47@gmail.com ;;;;;;;;;;;;;;;;CHÖÔNG TRÌNH VIEÁT CHO PLC NEÀN;;;;;;;;;;;;;;;;;; ;VIET NGAY 04/11/2000 ;CHUONG TRINH CHO PHEP GIAO TIEP VOI BOARD GIAO DIEN VA MAY TINH ;O CHE DO SLAVE VA IO PLC O CHE DO MASTER ;DIEU KHIEN BANG SWITCH CHON MODE HOAT DONG ;********************************************************* ;- Chuong trinh nhan phat du lieu tu port noi tiep ; voi toc do 9600 1 start bit ,1 stop bit,bit thu 9 ;- Chuong trinh viet theo kieu ngat.Cu 1S goi 10 byte ; du lieu den Slave , nhan ve 10 byte ;- Byte dau tien la byte dia chi, 8 byte du lieu, byte ; cuoi cung la 0DH ; Neu byte thu 10 khong phai la 0DH thi bao loi ;- Vung dem thu bat dau tu 50H ;- Vung dem phat bat dau tu 60H ;********************************************************* ; CHUONG TRINH CHO MASTER CO DIA CHI 00H ; CHUONG TRINH CHO SLAVER CO DIA CHI 01H ;++++++++++++++++++KHAI BAO CAC BIEN VA HANG++++++++++++++ ;********************************************************* ;NGO VAO:lay gia tri tu byte dem thu chep vao IN_ST ;--------------------------------------------------------- IN_ST EQU 22H ;BYTE TRANG THAI NGO VAO IN1 BIT 10H ;BIT=1:DONG,BIT=0:NGAT IN2 BIT 11H IN3 BIT 12H IN4 BIT 13H IN5 BIT 14H IN6 BIT 15H ;********************************************************* ;NGO RA :xuat ra OUT_ST roi chep vao byte dem phat ;--------------------------------------------------------- OUT_ST EQU 23H ;BYTE TRANG THAI NGO RA OUT1 BIT 18H ;BIT=1:DONG,BIT=0:NGAT OUT2 BIT 19H OUT3 BIT 1AH OUT4 BIT 1BH LOI BIT 1FH ;********************************************************** dcMas EQU 00H dcSle EQU 01H DCMPLC EQU 02H DCSPLC EQU 03H demt EQU 50H demp EQU 60H bien1 EQU 5EH bien2 EQU 5FH bien3 EQU 5CH bien4 EQU 5BH ;chua d/c Slave bien5 EQU 5AH ;chua THOI GIAN CHO count EQU 10000 chon1 EQU 2 chon2 EQU 1 th EQU 1 ;---------------------------------------------- RUN BIT P3.4 ;LED RUN NAP BIT P3.5 ;LED NAP PRO_G BIT P3.3 ;CONG TAC NAP CHUONG TRINH RUN_G BIT P3.2 ;CONG TAC CHAY CHUONG TRINH TAM1 BIT 00H ;BIT TAM NGO VAO Chinh sua boi: nguyenvanbientbd47@gmail.com TAM2 BIT 01H ;BIT TAM NGO VAO TAM3 BIT 02H ;BIT TAM DE XUAT NGO RA CO_1 BIT 03H ; CO_2 BIT 04H ; CO_T1 BIT 05H ; CO_T2 BIT 06H ; CO_L1 BIT 07H ; KT BIT 08H ;CO KET THUC (LENH END) CO_3 BIT 09H ;BIT PHAT HIEN START CO_X BIT 0AH ;co bao che do quet va che do load CO_TAM1 BIT 0BH CO_TAM2 BIT 0CH TAM4 BIT 0DH CO_L2 BIT 0EH CO_S1 BIT 0FH CO_S2 BIT 20H ;-------------------------------------- FLOAT EQU 3FH ;byte tam Z EQU 3EH ;BYTE TAM CHUA DIA CHI KHOI VAR1 EQU 3DH ;BIEN LUU TRU DU LIEU CUA TIMER,COUNTER VAR2 EQU 3CH ;BIEN XU LY CUA TIMER,COUNTER VAR3 EQU 3BH ; DX EQU 3AH ;BIEN DEM TIMER TEMP EQU 39H TEMP1 EQU 38H ;LUU DIA CHI KHOI(DPH) TEMP2 EQU 37H ;LUU DIA CHI KHOI(DPL) RISE EQU 36H ;chua dung REPL EQU 35H ;byte tam BITH EQU 34H ;byte cao cua data pointer dung cho dem bit BITL EQU 33H ;byte thap cua data pointer dung cho dem bit LUU_B EQU 32H ;byte luu bit tam BCAO EQU 31H ;DIA CHI DAU VUNG CHO TIMER,COUNTER BTHAP EQU 30H ;--------------------------------------------------------------------STEP1 EQU 40H ;luu tru byte tam cua chuong trinh dem bit STEP2 EQU 41H ;----------------------------------------- DBITC EQU 42H ;bien tang bit DMT EQU 43H ;DEM NEN EQU 44H ; FIRSTH EQU 45H ;BIEN LUU DIA CHI RAM DAU TIEN CUA DATA PLC FIRSTL EQU 46H ;-------------------------------------------------------------------- GIAY EQU 47H PHUT EQU 48H GIO EQU 49H THU EQU 4AH NGAY EQU 4BH THANG EQU 4CH NAM EQU 4DH COMP1 EQU 4EH COMP2 EQU 4FH CHU_X EQU 78H ;--------------------------------------------------------- ORG 0000H LJMP BEGIN ORG 000BH LJMP T0ISR ORG 0023H LJMP SPISR ORG 30H BEGIN: Chinh sua boi: nguyenvanbientbd47@gmail.com ;________________________________________________ ;DOAN CHUONG TRINH RESET CAC GIA TRI BAN DAU ;********** START ***************************** CLR F0 CLR CO_1 CLR CO_2 CLR CO_L1 CLR CO_L2 CLR CO_T1 CLR CO_T2 CLR KT ;XOA BIT KET THUC CLR CO_X CLR P2.5 MOV FIRSTH,#00H MOV FIRSTL,#00H MOV DPTR,#0400H MOV BCAO,DPH MOV BTHAP,DPL MOV DPTR,#0100H MOV BITH,DPH MOV BITL,DPL ;------------------------------------- ; MOV DPTR,#1E00H ;BYTE 1E00H O RAM NGOAI LUU ANH OUTPUT MOV IN_ST,#00H MOV OUT_ST,#00H MOV R0,#DEMT MOV DBITC,#0 MOV DX,#0 MOV Z,#50H ;Z CHUA MA TB ;-------------------------- MOV bien1,#0 MOV bien2,#chon1 MOV bien3,#chon2 MOV bien4,#0 MOV bien5,#chon1 ;------------------------- MOV A,87H ;TOC DO 19200 SETB ACC.7 MOV 87H,A ;-------------------------- MOV SCON,#11110000B MOV TMOD,#21H MOV TH1,#-3 SETB TR1 SETB IP.1 MOV IE,#92H SETB TF0 ;************ END ****************************** ;*********************************************** ; DOAN CHUONG TRINH CHINH ; DOAN CHUONG TRINH NAY LUON ; QUET CHOUNG TRINH SAU 1MS ;**************** START ************************ XET: JNB F0,$ CLR F0 JNB PRO_G,STOP_CT JNB RUN_G,CHAY_CT SETB RUN ;DEN SANG O CHE DO LOAD SETB NAP Chinh sua boi: nguyenvanbientbd47@gmail.com LCALL GT_PRG MOV IN_ST,#00H MOV OUT_ST,#00H MOV DPTR,#1E00H ;RESET LAI ANH OUTPUT MOV A,#00H MOVX @DPTR,A SJMP XET CHAY_CT: CLR RUN ;DEN SANG O CHE DO RUN SETB NAP LCALL GT_IO SJMP XET STOP_CT: CLR NAP ;DEN SANG CHE DO LOAD SETB RUN MOV IN_ST,#00H MOV OUT_ST,#00H MOV DPTR,#1E00H ;RESET LAI ANH OUTPUT MOV A,#00H MOVX @DPTR,A SJMP XET ;****************************************************************** ;CHUONG TRINH CON GIAO TIEP VOI BOARD GIAO DIEN ; VA MAY TINH,LUC NAY PLC DANG O CHE DO SLAVE ;******************************************************************* GT_PRG: JNB CO_1,XETT CLR CO_1 LCALL ANSWER SETB SM2 SETB TI XETT: JNB CO_2,ZCX CLR CO_2 ZCX: RET ;************************************************** ;CHUONG TRINH CON GIAO TIEP VOI IO PLC ;************************************************** GT_IO: MOV DPTR,#1E00H ;LAY ANH OUTPUT TU RAM MOVX A,@DPTR MOV OUT_ST,A LCALL MAU ;LAY MAU PHAT LCALL CHO_NHAN ;CHO NHAN DU 3 BYTE MOV R1,#DEMT MOV IN_ST,@R1 ;LAY ANH INPUT TU BUFFER RECEIVE LCALL QUETCT MOV R1,#DEMP MOV @R1,OUT_ST ;XUAT ANH OUTPUT VAO BUFFER TRANSMIT MOV DPTR,#1E00H ;LUU ANH OUTPUT VAO RAM MOV A,OUT_ST MOVX @DPTR,A RET ;**************************************** ; Chuong trinh tao ngat 1mS ;**************START********************* T0ISR: PUSH ACC MOV CO_T1,C SETB F0 CLR TR0 Chinh sua boi: nguyenvanbientbd47@gmail.com MOV TH0,#HIGH(-count) MOV TL0,#LOW(-count) SETB TR0 POP ACC MOV C,CO_T1 RETI ;***************END*********************** ; ;***************************************** ;DOAN CHUONG TRINH CON NGAT CONG NOI TIEP ;************ START ********************** SPISR: PUSH ACC MOV CO_T2,C JNB PRO_G,SPIC JNB RUN_G,NGAT_S JNB RI,SPI1 LCALL CTNHANS SJMP SPIC SPI1: LCALL CTRUYENS SJMP SPIC NGAT_S: JNB RI,SPI2 LCALL CTNHANM SJMP SPIC SPI2: LCALL CTRUYENM SPIC: POP ACC MOV C,CO_T2 RETI ;**************END*************************************** ;;******************************************************* ; CHUONG TRINH NHAN 10 BYTE,CHE DO SLAVE ;**************START************************************* CTNHANS: JNB RI,$ CLR RI JNB RB8,CNT1S MOV A,SBUF CJNE A,#dcSle,CNTCS CLR SM2 MOV R0,#demt SJMP CNTCS CNT1S: MOV A,SBUF CJNE R0,#demt+8,CNT2S SETB SM2 CJNE A,#0DH,CNT3S LCALL ST_START LCALL KT_END SETB CO_1 SJMP CNTCS CNT2S: MOV @R0,A INC R0 SJMP CNTCS CNT3S: SETB CO_L1 CNTCS: RET ;************END************************************** ;------------------------------------------------------ Chinh sua boi: nguyenvanbientbd47@gmail.com ;CT CON CHEP DU LIEU VUA NHAN DUOC VAO VUNG DEMP ;------------------------------------------------------ ANSWER: PUSH 00H PUSH 01H MOV R1,#DEMP MOV R0,#DEMT WRITE: MOV A,@R0 MOV @R1,A INC R0 INC R1 CJNE R0,#DEMT+8,WRITE POP 01H POP 00H RET ;********************************************* ; CHUONG TRINH TRUYEN 10 BYTE,CHE DO SLAVE ;**************START************************** CTRUYENS: JNB TI,$ CLR TI mov A,bien1 cjne A,#10,ctrS mov bien1,#0 sjmp ctrcS ctrS: INC bien1 MOV A,bien1 CJNE A,#1,CTR1S SETB TB8 MOV SBUF,#dcMas MOV R0,#demp SJMP CTRCS CTR1S: CJNE A,#10,CTR2S CLR TB8 MOV SBUF,#0DH SETB CO_2 SJMP CTRCS CTR2S: CLR TB8 MOV A,@R0 MOV SBUF,A INC R0 CTRCS: RET ;************END********************************* ;************************************************ ;CHUONG TRINH CON NHAN CHUOI START ;NEU NHAN DUOC CHUOI START THI KHONG GHI VAO RAM ;NOI MA BAT DAU LAI TU DIA CHI 80H ;************************************************ ST_START: PUSH 00H PUSH ACC MOV R0,#DEMT MOV A,@R0 CJNE A,#53H,QQQ INC R0 MOV A,@R0 Chinh sua boi: nguyenvanbientbd47@gmail.com CJNE A,#74H,QQQ INC R0 MOV A,@R0 CJNE A,#61H,QQQ INC R0 MOV A,@R0 CJNE A,#72H,QQQ INC R0 MOV A,@R0 CJNE A,#74H,QQQ SETB CO_3 QQQ: JB CO_3,MMM ;CO_3=1 KHI START MOV R0,#DEMT MOV DPH,FIRSTH ;LAY DIA CHI TRONG RAM MOV DPL,FIRSTL ;--------------------- UUU: MOV A,@R0 ;LAY DATA TU VUNG DEM THU MOVX @DPTR,A ;GHI VAO RAM 8K NOP INC R0 INC DPTR CJNE R0,#DEMT+8,UUU MOV FIRSTH,DPH ;LUU DIA CHI TRONG RAM MOV FIRSTL,DPL ;--------------------- SJMP QQC MMM: MOV FIRSTH,#00H ;DAT LAI VUNG NHO DAU MOV FIRSTL,#00H CLR CO_3 QQC: POP ACC POP 00H RET Chinh sua boi: nguyenvanbientbd47@gmail.com ;************************************************* ;CHUONG TRINH CON KIEM TRA CHUOI END(MA LA FCH) ;************************************************* KT_END: PUSH ACC push 00H MOV R0,#DEMT MOV A,@R0 CJNE A,#45H,KKK INC R0 MOV A,@R0 CJNE A,#4EH,KKK INC R0 MOV A,@R0 CJNE A,#44H,KKK SETB CO_X SETB TI MOV 60H,#00H ;RESET LAI DIA CHI DAU VUNG DEM PHAT SETB RUN ;DEN SANG MAU VANG SETB NAP KKK: POP 00H POP ACC RET ;****************************************** ; CHUONG TRINH NHAN 3 BYTE,CHE DO MASTER ;**************START*********************** CTNHANM: JNB RI,$ CLR RI JNB RB8,CNT1 MOV A,SBUF CJNE A,#DCMPLC,CNTC CLR SM2 MOV R0,#demt SJMP CNTC CNT1: MOV A,SBUF CJNE R0,#demt+1,CNT2 SETB SM2 CJNE A,#0DH,CNT3 SETB CO_1 SJMP CNTC CNT2: MOV @R0,A INC R0 SJMP CNTC CNT3: SETB CO_L1 CNTC: RET ;************END************************ ;************************************************* ; CHUONG TRINH TRUYEN 1 BYTE,CHE DO MASTER ;**************START**************************** CTRUYENM: JNB TI,$ CLR TI mov A,bien1 cjne A,#3,ctr3 mov bien1,#0 sjmp ctrc ctr3: INC bien1 MOV A,bien1 [...]... gia tri dat cua on_delay timer ;VAR2,VAR3:byte dem co danh cho on_delay ;**************************************************** COM_ON: inc DX ;dem timer lcall DEMTR INC DPTR ;DOC NGO VAO MOVX A,@DPTR LCALL GOI_MA MOV TAM1,C INC DPTR ;DOC BYTE DU LIEU MOVX A,@DPTR CJNE A,#100,ABB ABB: JNC SS MOV VAR1,A SJMP DEN Chinh sua boi: nguyenvanbientbd47@gmail.com SS: PUSH 01H MOV R1,A MOV VAR1,@R1 POP 01H DEN: JNB... ;****************************************************** CLOCK_ON: INC DPTR ACALL COPY_TIME PUSH DPH PUSH DPL MOV A,GIAY CJNE A,#CHU_X,TIM1 ;TEST GIAY TU CHUONG TRINH SJMP FAIL ;NEU LA X THI KHONG LAM GI CA TIM1: MOV DPTR,#1FF9H ;DOC GIAY TU REAL TIME MOVX A,@DPTR CJNE A,GIAY,FAIL ;SO SANH GIAY MOV A,PHUT CJNE A,#CHU_X,TIM2 ;NEU PHUT LA X THI SJMP DONG_RL ;DONG THOI DIEM GIAY TIM2: MOV DPTR,#1FFAH MOVX A,@DPTR CJNE A,PHUT,FAIL . CHÖÔNG TRÌNH VIEÁT TREÂN VI XÖÛ LYÙ Chinh sua boi: nguyenvanbientbd47@gmail.com ;;;;;;;;;;;;;;;;CHÖÔNG TRÌNH VIEÁT CHO PLC NEÀN;;;;;;;;;;;;;;;;;; ;VIET. COM_ON: inc DX ;dem timer lcall DEMTR INC DPTR ;DOC NGO VAO MOVX A,@DPTR LCALL GOI_MA MOV TAM1,C INC DPTR ;DOC BYTE DU LIEU MOVX A,@DPTR CJNE A,#100,ABB