Einfach die Bascom interne Routine verwenden wäre eine Möglichkeit. Ansonsten mal ins Datenblatt schauen und
Code:
.equ PIND    = &H10    ;Pind
.equ PIND3   = 3       ;3 = Pin 3
hinter den '=' anpassen.