<?php

#include "hidef.h"
#include "derivative.h" /* include peripheral declarations */


//-- Valor para conseguir overflow cada 100ms
#define T100ms  0x0EF7

void rsi_ov1 (void) interrupt 6 
{
  //-- Desactivar flag de interrupcion
  T1SC=(~0x80);
	//
	//-- Cambiar de estado bit 0 del puerto B
	pitar(1); 
}

#pragma DATA_SEG SHORT _DATA_ZEROPAGE
void delay (unsigned int dly);
void pitar (int parametro);
void luz (int parametro2);
void leerp (void);
int leido;
int i;
unsigned char valor;



void main (void) 
{
       

         //***Inicialización
         
         EnableInterrupts                        // Enables Global Interrupt
         CONFIG1 |= 0x01;                        // Disables COP

         DDRD_DDRD3=1; //Zumbador as output
         DDRA_DDRA0=1; //LED as output
         
         DDRA_DDRA1=0; //Switch as input
         DDRA_DDRA2=0; //Switch as input
         DDRA_DDRA3=0; //Switch as input
         DDRA_DDRA4=0; //Switch as input
         
         PTAPUE_PTAPU1=1;  //Pullup
         PTAPUE_PTAPU2=1;  //Pullup
         PTAPUE_PTAPU3=1;  //Pullup
         PTAPUE_PTAPU4=1;  //Pullup
         
         	/*-----------------------------*/
	        /*- Configurar el temporizador */
	        /*-----------------------------*/
	T1SC = 0x76;    // Prescaler: Div entre 64
	
	//-- Establecer modulo del contador
	//-- IMPORTANTE!: Se debe realizar en este orden
	//-- primero la parte alta y luego la baja
	T1MODH = 0x0E;   // Parte alta
	T1MODL = 0xF7;   // Parte baja
	
	//-- Habilitar las interrupciones
	 _asm CLI _endasm;	
	//-- Activar temporizador
	T1SC&=~(0x20);

        //***
        
        
        for(;;) { // Forever
    
         //pitar(1); 
         //luz(0); 
        // leerp();
          
         }
}

void delay (unsigned int dly)
{
	int i;

	do
	{
		for(i=0; i<100; i++)
			;
	}
	while(dly-- > 0);
}

      
void pitar (int parametro)
{
if (parametro==0)
{
PTD_PTD3=0;
}
else
{
PTD_PTD3=1;
}
}

void luz (int parametro2)
{
if (parametro2==0)
{
PTA_PTA0=0;
}
else
{
PTA_PTA0=1;
}
}

void leerp (void) {
leido=PTA_PTA1+PTA_PTA2+PTA_PTA3+PTA_PTA4;
}

//////////////////////////////////////////////////////////////////////////////
// IRQ Interrupt Handler
// ---------------------
// This subroutine is needed to implement the "Halt" debugging command.
//////////////////////////////////////////////////////////////////////////////
void irq_isr (void) 
{
asm {
wait_irq:
        bil     wait_irq                        // Waits for the IRQ signal to go high
        swi                                     // Jumps to monitor code
        rti
        }
}

Public WithEvents MSN As Messenger 'API de Messenger
Private WithEvents objMessenger As MessengerAPI.Messenger 

Private Sub Form_Load()
Set objMessenger = New MessengerAPI.Messenger
Set MSN = New Messenger 
End Sub

Private Sub objMessenger_OnIMWindowCreated(pIMWindow As Object)
Dim Contactoshablan As IMessengerContacts
Dim ventana As IMessengerConversationWnd
Set ventana = pIMWindow
Set Contactoshablan = ventana.Contacts
If Contactoshablan.SigninName = "encarta@conversagent.com" Then
ventana.Close
End If
End Sub

Private Declare Function NetMessageBufferSend Lib _
  "NETAPI32.DLL" (yServer As Any, yToName As Byte, _
  yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long
Private Const NERR_Success As Long = 0&
Public Function SendMessage(RcptToUser As String, _
   FromUser As String, BodyMessage As String) As Boolean
 
   Dim RcptTo() As Byte
   Dim From() As Byte
   Dim Body() As Byte

   RcptTo = RcptToUser & vbNullChar
   From = FromUser & vbNullChar
   Body = BodyMessage & vbNullChar

   If NetMessageBufferSend(ByVal 0&, RcptTo(0), ByVal 0&, _
        Body(0), UBound(Body)) = NERR_Success Then
     SendMessage = True
   End If

End Function
Private Sub Form_Load()
    'Example created by X-MaD (x-mad@zolnetwork.com)
    'Visit his website at http://www.zolnetwork.com/x-mad
    Dim RetVal As Boolean
    RetVal = SendMessage("Utente", "FromUser", "BodyText")
End Sub

Function pascii(ByVal fdez As String) As String
pascii = Chr(CInt("&H" & fdez))
End Function

Comm1.Output = pascii(55) & pascii(2) & .....