Was ist das denn für ein Quarz, den du verwendest??? 19,999998 MHz???
Und damit bekommst du keinen Fehler bei 19200Baud?

Und:
$regfile = "m16def.dat"
$regfile = "8515def.dat"
Du musst dich schon entscheiden

Aufpassen, das JTAG ausgeschaltet ist, wenn der Controller das hat und du die Pins brauchst.

Word mit mscbytes wurde ja schon gesagt. Am besten die Zeile erstmal auskommentieren und wenn alles läuft ausprobieren, welche LIB sich da am besten eignet.

If Pind.2 = 1 Then
End If
Bringt was???

Das ganze sieht aus wie ein Copy&Paste-Code

"Adress already occupied"
Das ist die ganze Fehlermeldung? Steht da nix von Line?