Mira a simple vista el code parece estar bien.

Lo que te diría que intentes es que tus llaves no las mandes a negativo, sino mas bien a GND, y fijate que tu simulador acepte los archivos .hex, si es correcto trata de depurar el código simulando el proteus mismo en mplab.

PD:Estas estudiando esto en tu colegio?

Exelente para comenzar con mis aplicaciones en ASM

Salu2!

Fijate en esta a mi me funciona:

Dim a As Double
Dim ArcSeno_a As Double

Private Sub Form_Load()
a = InputBox("Ingrese numero", "Programa")
ArcSeno_a = ArcSen(a)
MsgBox ArcSeno_a, vbOKOnly
End Sub
Public Function ArcSen(y As Double) As Double
'   Calcula el seno inverso de y
 
If y = 1 Or y = -1 Then
    ArcSen = pi / 2 * Sgn(y)
Else
    ArcSen = Atn(y / Sqr(1 - y ^ 2))
End If
End Function

Wow! Primera vez que veo un manual de estos!

Exelente!

Salu2!

/*No repitas la misma pregunta porque si ,se entiende*/

No puedes traducirlo automáticamente. Tienes que fijarte en la sintaxis del lenguaje basic, y traducir línea por línea tu código de delphi.

Salu2!

Puede que esto sirva 

http://www.tutorialized.com/view/tutorial/Send-SMS-from-PC-to-mobile-phones-using-VB/9535

Salu2!

Aqui tienes un ejemplo funcionando...

http://foro.elhacker.net/scripting/descargar_archivo_ftp_con_un_bat-t115766.0.html

Salu2!

Ey Novlucker estas dando clases de búsquedas en google? 

Tal vez a nuestro amigo le interese buscar en http://foro.elhacker.net/search.html

Salu2!

  Vaya que es un trabajo hacer una presenctación en console mode... Me sigues sorprendiendo meta...

Salu2!

  Es muy parecido a MVA... ya veo cuando tenga un momentito para registrarme... muchas gracias!