

procedure Init
begin
TRISA := 240; // écriture en décimal
TRISA := $F0; // écriture en hexadécimal
TRISA := %11110000; // écriture en binaire
end;
procedure Init
begin
TRISB := %11111111; // toutes lignes du port B (RB0 à RB7) configurées en entrées logiques
TRISB := %00000000; // toutes lignes du port B (RB0 à RB7) configurées en sorties logiques
TRISB := %11000110; // RB0, RB3, RB4 et RB5 configurées en sorties, RB1, RB2, RB6 et RB7 configurées en entrées
end;
program Test_16F628A;
procedure Init
begin
TRISB := %11111111; // toutes lignes du port B (RB0 à RB7) configurées en entrées logiques
end;
// Main program
begin
Init;
end.