#include "p18F45K20.inc"

#define tableau_adr 100h

INT_VAR UDATA_ACS

taille_tableau RES 1
min RES 1
max RES 1
i  RES 1

RES_VECT CODE 0x0000

MOVLW d'0'
CALL ecrire_tableau
CALL cherche_min
CALL cherche_max
GOTO $

ecrire_tableau
    LFSR 0, tableau_adr
    MOVLW d'25'
    MOVWF POSTINC0
    MOVLW d'4'
    MOVWF POSTINC0
    MOVLW d'2'
    MOVWF POSTINC0
    MOVLW d'15'
    MOVWF POSTINC0
    MOVLW d'16'
    MOVWF POSTINC0
    MOVLW d'101'
    MOVWF POSTINC0
    MOVLW d'33'
    MOVWF POSTINC0
    MOVLW d'3'
    MOVWF POSTINC0
    MOVF FSR0L, 0
    MOVWF taille_tableau
    RETURN

cherche_min
    MOVLW h'ff'
    MOVWF min
    LFSR 0, tableau_adr
    LABEL_A
    MOVF taille_tableau, 0
    CPFSEQ FSR0L
    GOTO CONTINUE_A
    RETURN
    CONTINUE_A
    MOVF POSTINC0, 0
    CPFSLT min
    MOVWF min
    GOTO LABEL_A

cherche_max
    MOVLW h'0'
    MOVWF max
    LFSR 0, tableau_adr
    LABEL_B
    MOVF taille_tableau, 0
    CPFSEQ FSR0L
    GOTO CONTINUE_B
    RETURN
    CONTINUE_B
    MOVF POSTINC0, 0
    CPFSGT max
    MOVWF max
    GOTO LABEL_B
END