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 ???????????????????????????????????????         ...

 Pour dessiner un pixel sur vg5000 en Basic  00 setet 65,"00000000010000000000": redéfini le caractere "A" 10 seteg 65,"00000000010000000000": redéfini le caractere "A" 20 ET 1,0,0: rem initialise la couleur du caractere graphique setet en rouge 30print "A": rem affiche le caractere redefini  50 EG 4,6,0: rem initialise la couleur du caractere graphique seteg en bleu 60print "A": rem affiche le caractere redefini 

 routine d'affichage de caractères sur vg5000 ;org 28672 push bc push de ld bc,16384 ; adresse de l'ecran en haut a gauche ld de,20480 ; adresse ou se trouvent les caracteres a afficher loop: ;label de la boucle  ld a,(de) cp 59 ; des que l'on arrive au caractere 59 le programme s'arrete et retourne au basic jp z,fin : saute au label fin tant que cp n'est pas = 59 inc de ld (bc),a; lecture des caracteres en 20480 ld a,2    ; couleur verte toutes a partir de 16385,16387,16389... toutes les adresses impaires de l'ecran inc bc; ajoutes les caracteres 0,1,2,3,4,5,6,7,8,9,: ld (bc),a ; affiche les caracteres en 16384, 16386, 16388... adresses paires inc bc jp loop ; retour au label loop fin: retour basic pop bc pop de ret Download

  Download Touche 1=rouge touche 2=vert touche 3=blanc touche A=stylo levé touche Z=efface touches direction pour ce déplacer source ;org 28672 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)                       jp z,_suite1           call $001B ; construction des incremente HL de 10           jp _buildsetet1 _suite1: _fillx1: ld a,$d8 ld (_mode),a  ld a,(_caractere)  inc a  ld (_caractere),a ld a,135 ld (_color),a   ld a,(_cursorx)  ...

  Download   source en assembler z80 ;org 28672 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)                       jp z,_suite1           call $001B ; construction des incremente HL de 10           jp _buildsetet1 _suite1: _fillx1: ld a,$d8 ld (_mode),a  ld a,(_caractere)...

Download Super Sprites on VG5000