;*******************************************
;*** Procedure pour reglage d'une valeur ***
;*** contenue dans 'A'                   ***
;*** si T+: A+1 (si A>255 --> A=0)       ***
;*** si T-: A-1 (si A<0   --> A=255)     ***
;*** si TSELECT: (31h) passe a 1         ***
;*******************************************
rval:   neiw    4ah,00d     ;tempo pour quitter parametrage terminee?
        mviw    31h,01d     ;oui: on force enregistrement en EEPROM
        eqiw    35h,00d     ;tempo touches terminee?
        ret
        bit     1,46h       ;TSELECT?
        jr      rval0
        jr      rval3
rval0:  bit     0,46h       ;T+?
        jr      rval1
        mviw    31h,02d     ;pour memo t+ appuy‚e
        inr     a
        nop
        eqiw    36h,0ffh
        inrw    36h
        jr      rvalf
rval1:  bit     2,46h       ;T-?
        jr      rval2
        dcr     a
        nop
        eqiw    36h,0ffh
        inrw    36h
        jr      rvalf
rval2:  mviw    36h,00h
        jr      rval4
rval3:  eqiw    14h,00d
        ret
        mviw    36h,00h
        mviw    31h,01d     ;pour memo tselect appuy‚e
rvalf:  mviw    14h,01d
        mviw    35h,4d
        gtiw    36h,10d
        mviw    35h,20d
rval4:  ret
;****************************