;;Przykład 10.1. Konstrukcja programowa "computed goto"
    ORG 0x200
tabl16:
    movlw UPPER $ ; ładowanie najstarszego bajta adresu
    movwf PCLATU ; ładowanie najstarszego bajta adresu
    movlw HIGH $    ;ładowanie starszego bajta adresu
    movwf PCLATH    ;ładowanie starszego bajta adresu
    movf  indeks, W, ACCESS  ;indeks ==> WREG
    rlncf WREG, F, ACCESS ;mnożenie o 2
addwf PCL,F,ACCESS
retlw '0'
retlw '1'
retlw '2'
retlw '3'
retlw '4'
retlw '5'
retlw '6'
retlw '7'
retlw '8'
retlw '9'
retlw 'A'
retlw 'B'
retlw 'C'
retlw 'D'
retlw 'E'
retlw 'F'