180PSenoide

ORG 5000H

INI:
Tabela:
DB 99h
DB 9ch
DB 9eh
DB 0a1h
DB 0a4h
DB 0a6h
DB 0a9h
DB 0ach
DB 0aeh
DB 0b1h
DB 0b3h
DB 0b6h
DB 0b8h
DB 0bbh
DB 0bdh
DB 0c0h
DB 0c2h
DB 0c4h
DB 0c6h
DB 0c8h
DB 0cah
DB 0cdh
DB 0ceh
DB 0d0h
DB 0d2h
DB 0d4h
DB 0d6h
DB 0d7h
DB 0d9h
DB 0dah
DB 0dch
DB 0ddh
DB 0deh
DB 0dfh
DB 0e0h
DB 0e1h
DB 0e2h
DB 0e3h
DB 0e4h
DB 0e4h
DB 0e5h
DB 0e5h
DB 0e5h
DB 0e6h
DB 0e6h
DB 0e6h
DB 0e6h
DB 0e6h
DB 0e5h
DB 0e5h
DB 0e5h
DB 0e4h
DB 0e4h
DB 0e3h
DB 0e2h
DB 0e1h
DB 0e0h
DB 0dfh
DB 0deh
DB 0ddh
DB 0dch
DB 0dah
DB 0d9h
DB 0d7h
DB 0d6h
DB 0d4h
DB 0d2h
DB 0d0h
DB 0ceh
DB 0cdh
DB 0cah
DB 0c8h
DB 0c6h
DB 0c4h
DB 0c2h
DB 0c0h
DB 0bdh
DB 0bbh
DB 0b8h
DB 0b6h
DB 0b3h
DB 0b1h
DB 0aeh
DB 0ach
DB 0a9h
DB 0a6h
DB 0a4h
DB 0a1h
DB 9eh
DB 9ch
DB 99h
DB 96h
DB 94h
DB 91h
DB 8eh
DB 8ch
DB 89h
DB 87h
DB 84h
DB 81h
DB 7fh
DB 7ch
DB 7ah
DB 77h
DB 75h
DB 73h
DB 70h
DB 6eh
DB 6ch
DB 6ah
DB 68h
DB 66h
DB 64h
DB 62h
DB 60h
DB 5eh
DB 5dh
DB 5bh
DB 59h
DB 58h
DB 57h
DB 55h
DB 54h
DB 53h
DB 52h
DB 51h
DB 50h
DB 4fh
DB 4fh
DB 4eh
DB 4dh
DB 4dh
DB 4dh
DB 4ch
DB 4ch
DB 4ch
DB 4ch
DB 4ch
DB 4dh
DB 4dh
DB 4dh
DB 4eh
DB 4fh
DB 4fh
DB 50h
DB 51h
DB 52h
DB 53h
DB 54h
DB 55h
DB 57h
DB 58h
DB 59h
DB 5bh
DB 5dh
DB 5eh
DB 60h
DB 62h
DB 64h
DB 66h
DB 68h
DB 6ah
DB 6ch
DB 6eh
DB 70h
DB 73h
DB 75h
DB 77h
DB 7ah
DB 7ch
DB 7fh
DB 81h
DB 84h
DB 87h
DB 89h
DB 8ch
DB 8eh
DB 91h
DB 94h
DB 96h




	MOV R1,#00H
	MOV SCON, #01010000b
	MOV 87H, #80H
	MOV TMOD, #00100001B
	MOV IE, #10010000B
	MOV TH1, #0F4H
	MOV TL1, #0F4H
	setb tr1

LOOP:
	CJNE R4,#00h,LOOP	;se ta desligado ele trava aqui
	CJNE r3,#0ffh,EHZERO;verifica se foi 'S' ou 'Q'
	LCALL QUADRADA
	LJMP LOOP
EHZERO:
	LCALL SENOIDAL

	LJMP LOOP



		ORG 4270H ;----------------------INTERRUPCAO

SERIAL:
		JNB RI, fim ;NÃOtrava aqui graças ao professor sandro ser muito chato
		MOV A, SBUF
		CJNE A, #'Q',TESTSEN
		MOV R3,#0ffH
		MOV r4,#000h;libera o conversor

		LJMP FIM

TESTSEN:
		CJNE A, #'S', DESLIGA
		MOV R3,#00H
		MOV r4,#00h;libera o conversor

		LJMP FIM

DESLIGA:
	CJNE A, #'D', FIM
	MOV r4,#0ffh;desliga o conv


FIM:
		CLR RI
		RETI


QUADRADA:	MOV A, #0FFH
		LCALL DAL
		LCALL TEMPOQ
		MOV A, #00H
		LCALL DAL
		LCALL TEMPOQ
		RET

	SENOIDAL:
				MOV r0,#00h
				mov r1,#180
				mov DPTR,#Tabela
				PULO:
						MOV A, r0
						MOV A,@A + DPTR
						LCALL DAL
						LCALL TEMPOS
						INC R0
						Djnz R1,PULO
						RET

DAL: 		MOV DPTR, #0E400H
		MOVX @DPTR, A
		RET


TEMPOQ:		MOV TH0, #79H
		MOV Tl0, #00H
		SETB TR0
TEMQ:		JNB TF0, TEMQ
		CLR TF0
		CLR TR0
		RET

TEMPOS:		MOV TH0, #0FFH
		MOV Tl0, #0EBH
		SETB TR0
TEMS:		JNB TF0, TEMS
		CLR TF0
		CLR TR0
		RET

           	END