$MOD51
;**************************************************************
;**************************************************************
;**							     **
;**---------------INTELLIGENT UPS PROJECT--------------------**
;**		  Inverter Module Software		     **
;**************************************************************
;*************ADVISOR: Prof. Dr. Eyup AKPINAR******************
;**							     **  
;**-----------------------DESIGNERS--------------------------**
;**	    	         BATUHAN CELIK			     **
;**			FUAD SOLTANOV			     **
;**			 HASIM TURGUT			     **
;**************************************************************
;**							     **
;**----------------MicroController:ATMEL89C52----------------**
;**							     **
;**************************************************************
;**************************************************************
;(((((((((((((((((((((((MAIN PROGRAM)))))))))))))))))))))))))))
	ORG 00H
	AJMP START
;(((((((((((((((((INTERRUPT SUB-PROGRAM))))))))))))))))))))))))
	ORG 03H
	MOV IE,#00H
	ACALL DECIDE
	MOV IE,#85H
	RETI
	ORG 13H
	LCALL STOP
	RETI
;(((((((((((((((((((MAIN PROGRAM START)))))))))))))))))))))))))
START:  
	NOP
	NOP
	ANL P1,#81H
	MOV IE,#85H
	MOV IP,#01H		;ZERO CROSS INT. PRIORTY HIGH
	MOV TCON,#01H
	MOV R4,#00H
	MOV 32H,#32H
	MOV 31H,#00H
	STACK EQU 0020H
	ORG 32H
TEKRAR:
	CJNE R4,#01,DRIVE1
	MOV R4,#02H
	AJMP NEGCYCLE
DRIVE1:
	CJNE R4,#02,REPEAT
	MOV R4,#01H
	AJMP POSCYCLE	
REPEAT: NOP
	CJNE R4,#00,TEKRAR
	AJMP REPEAT
;(((((((((((((((((((PWM SIGNAL GENERATORS))))))))))))))))))))))
;<<<<<<<<<<<<<<<<<<<<<<POSITIVE CYCLE>>>>>>>>>>>>>>>>>>>>>>>>>>
POSCYCLE:
	CLR P1.4
	CLR P1.2
	MOV B,#04H;------------
DO1:	NOP			;CALL DELAY
	DJNZ B,DO1;-------------
	SETB P1.1
	SETB P1.3
	MOV B,#04H;============
DO2:	NOP			;CALL DELAY2
	DJNZ B,DO2;============
	CLR P1.2
	CLR P1.4
	MOV B,#04H;------------
DO3:	NOP			;CALL DELAY
	DJNZ B,DO3;-------------
	MOV R3,#1BH
FWAIT2:	NOP
	DJNZ R3,FWAIT2
CONTROL1:
	JB P1.0,GOON1
	CLR P1.3
	MOV B,#04H;------------
DO4:	NOP			;CALL DELAY
	DJNZ B,DO4;-------------
	SETB P1.2
	MOV B,#04H;============
DO5:	NOP			;CALL DELAY2
	DJNZ B,DO5;============
	AJMP CONTROL1
GOON1:
	CLR P1.2
	MOV B,#04H;------------
DO6:	NOP			;CALL DELAY
	DJNZ B,DO6;-------------
	SETB P1.3
	MOV B,#04H;============
DO7:	NOP			;CALL DELAY2
	DJNZ B,DO7;============
	AJMP CONTROL1
;<<<<<<<<<<<<<<<<<<<<<<NEGATIVE CYCLE>>>>>>>>>>>>>>>>>>>>>>>>>>>
NEGCYCLE:	
	CLR P1.1
	CLR P1.3
	MOV B,#04H;------------
DO8:	NOP			;CALL DELAY
	DJNZ B,DO8;-------------
	SETB P1.4
	SETB P1.2
	NOP
	NOP	
	MOV R3,#1BH
FWAIT1:	NOP
	DJNZ R3,FWAIT1
AGAIN:	JB P1.0,CONTROL2
	CLR P1.2
	MOV B,#04H;============
DO9:	NOP			;CALL DELAY2
	DJNZ B,DO9;============
	SETB P1.3
	MOV B,#04H;============
DO10:	NOP			;CALL DELAY2
	DJNZ B,DO10;============
	AJMP AGAIN
CONTROL2:
	SETB P1.2
	NOP
	NOP
	CLR P1.3
	MOV B,#04H;------------
DO11:	NOP			;CALL DELAY
	DJNZ B,DO11;-------------
	AJMP AGAIN
;>>>>>>>>>>>>>>>>>>>>>>>>>>>ALARM<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
	ORG 00D3H
	MOV IE,#00H
	MOV R4,#00H
	AJMP REPEAT
;((((((((((((((((((((((((INTERRUPT PROGRAM))))))))))))))))))))))
SPECIFY:
	JB P2.0,YES1
	MOV R4,#01H		;jump negative cycle
	RET
YES1:   
	MOV R4,#02H	
	RET
;<<<<<<<<<<<<<<<<<<<<CYCLE BRANCHING>>>>>>>>>>>>>>>>>>>>>>>>>>>
DECIDE:
	ACALL SPECIFY
	POP DPH
	POP DPL
	MOV R7,DPH
	MOV R6,DPL
	POP DPH
	POP DPL
	PUSH 32H
	PUSH 31H
	MOV DPH,R7
	MOV DPL,R6
	PUSH DPL
	PUSH DPH
	RET
STOP:
	ANL P1,#43H
	SETB P1.6
	POP DPH
	POP DPL
	MOV 33H,#0D3H
	MOV 34H,#00H
	MOV R4,#01H
	PUSH 33H
	PUSH 34H
	RETI
END
<pre>