File: PLUSMOIN.z80 - Tab length: 1 2 4 8 - Lines: on off - No wrap: on off

    .nolist
#include "ion.inc"

#define nombrecherche   saferam1
#define n_essais    nombrecherche+1
#define numerau_essaye  n_essais+1


    .list
#ifdef TI83P
    .org progstart-2
    .db $BB,$6D
#else
    .org progstart
#endif
    ret
    jr nc,start
    .db "PLUSMOIN",0
 
start:


    ld  a,r
    ld  (nombrecherche),a
    ld  a,0
    ld  (numerau_essaye),a
    ld  (n_essais),a


debut:
    ld  hl,$0000
    ld  (pencol),hl
    ld  hl,interval
    bcall _vputs

boucle:
    ld  hl,$0001
    ld  (currow),hl
    ld  hl,(numerau_essaye)
    ld  h,0
    bcall _disphl
    bcall _getkey


    ld  hl,numerau_essaye

    cp  3
    jp  z,haut
    cp  4
    jp  z,bas
    cp  5
    jp  z,entrer


    cp  9
    jp  nz,boucle
    ret

haut:
    inc (hl)
    jp  boucle

bas:
    dec (hl)
    jp  boucle
entrer:
    bcall _clrlcdf
    ld  a,(n_essais)
    inc a
    ld  (n_essais),a

    ld  hl,$0807
    ld  (currow),hl
   
    ld  l,a
    ld  h,0
    bcall _disphl

    ld  hl,numerau_essaye
    ld  a,(nombrecherche)
    cp  (hl)
    jp  z,victoire
    jp  p,plus

    ld  hl,$0F00
    ld  (pencol),hl
    ld  hl,moin
    bcall _vputs
    jp  boucle

victoire:
    ld  hl,$0302
    ld  (pencol),hl
    ld  hl,vict
    bcall _vputs
    bcall _getkey
    ret

plus:
    ld  hl,$0F00
    ld  (pencol),hl
    ld  hl,plu
    bcall _vputs
    jp  boucle



interval:
    .db"C'est entre 0 et 255",0
vict:
    .db"Victoire !!!",0
moin:
    .db"C'est moins!",0
plu:
    .db"C'est plus! ",0
.end