routine d'affichage de caractères sur vg5000


;org 28672

push bc
push de

ld bc,16384
ld de,20480
loop:
ld a,(de)

cp 59
jp z,fin

inc de
ld (bc),a
ld a,2
inc bc
ld (bc),a
inc bc
jp loop


fin:
pop bc
pop de
ret


Download

Commentaires

Enregistrer un commentaire

Posts les plus consultés de ce blog

Algorithme d'une ligne avec des cellules de 8x10 pixels en BASIC

Image
  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 ???????????????????????????????????????         ...
Lire la suite

Dessiner en quatre couleurs sur VG5000

Image
  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)  ...
Lire la suite