ORG
	MOV A, #38h
	ACALL COMESCR
	ACALL DELAY
	MOV A, #0EH
	ACALL COMESCR
	ACALL DELAY
	MOV A, #01
	ACALL OCOMESCR
	ACALL DELAY
	MOV A, #06h
	ACALL COMESCR
	ACALL DELAY
	MOV A, #84h
	ACALL COMESCR
	ACALL DELAY
	MOV A, #84h
	ACALL COMESCR
	ACALL DELAY
	MOV A, #'G'
	ACALL DADOESCR
	ACALL DELAY
	MOV A, #'R'
	ACALL DADOESCR
NOVO: SJMP NOVO
COMESCR:
	MOV P1, A
	CLR P2.0
	CLR P2.1
	SETB P2.2
	CLR P2.2
RET

DADOESCR:
	MOV P1,A
	SETB P2.0
	CLR P2.1
	SETB P2.2
	CLR P2.2
RET

DELAY: MOV R3, #50

AQUI2: MOV R4, #255

AQUI: 	JNZ R4, AQUI
	DJNZ R3, AQUI2
RET
END