VG5000

 

  Download programme ;org 28672 push hl  ld hl,21000 FILL_LOOP:     LD   (hl),0 ; Charger la valeur 0 dans la zone mémoire à l'adresse pointée par HL     INC  hl     ; Incrémenter HL pour passer à l'adresse mémoire suivante     ld  a,h     cp 96   ;24800 soit 60e0 ou $96,$224     jp nz,FILL_LOOP pop hl ret push hl ld hl,_ef9345 call $00ad _org: ld a,31 ld (_setet),a ld a,31 ld (_caractere),a ld a,0 ld (_cursorx),a ld a,41 ld (_cursory),a ld hl,21000 _buildsetet1:             ;--------------build seteT--------------------           ld a,(_setet); numero de caractere a definir           inc a           ld (_setet),a           ld  a,(_setet)           ;cp 0 ???????????????????????????????????????           jp z,_suite1           call $001B ; construction des incremente HL de 10           jp _buildsetet1 _suite1: _fillx1: ld a,$80 ld (_mode),a  ld a,(_caractere)  inc a  ld (_caractere),a ld a,135 ld (_color),a   ld a,(_cursorx)  inc a  ld (_cursorx),a  ld hl,_ef9345suite  call $00a