deplacement_programm_.z80

.org $5000
          ld a,0
          ld ($47fd),a
_debut_avant:
          ld bc,_stock
          ld (_adresse),bc
_debut:

          ld a,(_counter)
         inc a
         ld (_counter),a
         cp 100
         jr z,_debut_suite
         jp _debut
_debut_suite:
          ld a,0
          ld (_counter),a

         ld a,(_counter2)
         inc a
         ld (_counter2),a
         cp 100
         jr z,_go
         jp _debut

_go:
          ;ld a,0
          ;ld (_counter),a
          ld a,0
          ld (_counter2),a


         ld a,(bc)
         ld  h,a
         inc bc
         ld a,(bc)
         ld l ,a
          inc bc
         ld (_adresse),bc
         ld d,128
         ld a,1
         ld e,a
         call $0092

         ld bc,(_adresse)
          ld a ,(bc)
          cp 0
         jP Z,_resetennemi

         ld bc,(_adresse)
          jp _debut


_resetennemi:
          ld h,8
          ld l,19
          ld d,128
          ld e,2

          call $0092
         jp _debut_avant

_adresse:
.db $503F
_counter:
.db 0
_counter2:
.db 0
_stock:
.db 8,19,9,20,10,21,11,22,12,23,13,24,14,23,15,22,16,21,17,20,18,19,0