Allo
start
clrf nombre ; effacer nombre
loop
movf nombre , w ; charger nombre
call Table ; prendre le carré du nombre
incf nombre , f ; incrémenter nombre
btfss nombre , 4 ; tester si nombre >15
goto loop ; non, nombre suivant
goto start ; oui, on recommence à 0
repere
ORG (repere+31)& 0xFE0 ; adresse du tableau
carre
addwf PCL , f ; ajouter w à PCL
retlw .0 ; carré de 0 = 0
retlw .1 ; carré de 1 = 1
retlw .4 ; carré de 2 = 4
retlw .9 ; carré de 3 = 9
retlw .16 ; carré de 4 = 16
retlw .25 ; carré de 5 = 25
retlw .36 ; carré de 6 = 36
retlw .49 ; carré de 7 = 49
retlw .64 ; carré de 8 = 64
retlw .81 ; carré de 9 = 81
retlw .100 ; carré de 10 = 100
retlw .121 ; carré de 11 = 121
retlw .144 ; carré de 12 = 144
retlw .169 ; carré de 13 = 169
retlw .196 ; carré de 14 = 196
retlw .225 ; carré de 15 = 225
a++