10000
GAME -> Reflexion
© Crack'n'Rom (2014)
16.00 / 20.00
 
 
Superpix
cpc
 
 

Last Update : Friday 04 April 2014 at 14 h 48

Manual n° 1

Real size : 1415 * 883 px = 207.47 Ko

Manual n° 2

;VERSION 1.03 ;idée de T&J/GPA : Connaître les lignes terminées ;Objectifs : obtenir les totaux par lignes et par colonnes ;Fano, ne prends pas peur en voyant mon code ;-) tableau EQU &9F00 resultatsrow EQU &8F00 resultatscol EQU &8F10 ORG #8F30 ;TOTAUX PAR LIGNES (partie propre par Fano) ld HL,tableau ld DE,resultatsrow ld C,15 loop: xor A ld B,15 loop2: add A,(HL) inc HL djnz loop2 ;djnz = dec B + jr nz,.loop2 ld (DE),A inc DE dec C jr nz,loop ;TOTAUX PAR COLONNES (partie codé avec les pieds, Kukulcan) ld HL,tableau ld (debut+1),HL ld DE,resultatscol ld C,15 loop3: xor A ld B,15 debut: ld HL,tableau loop4: add A,(HL) inc HL inc HL inc HL inc HL inc HL inc HL inc HL inc HL inc HL inc HL inc HL inc HL inc HL inc HL inc HL djnz loop4 ;djnz = dec B + jr nz,.loop4 ld (DE),A ;ecrire les stats de la colonne inc DE ;colonne suivante ld a,(debut+1) ;faut bien retomber au bon endroit inc a ld (debut+1),a dec C ;une colonne en moins jr nz,loop3 ret

Manual n° 3


Manual n° 4

;VERSION 1.00 org #A4A0 scr_addr EQU #C000 dat_addr EQU #9600 ;pen 1 = %10000000 (blanc) ;pen 2 = %00001000 (noir) ;pen 3 = %10001000 (rouge) pix_color EQU %10001000 pix_mask EQU %00001000 image_larg EQU 15 image_haut EQU 15 .draw_dat ld B,image_haut ld HL,scr_addr ld DE,dat_addr .draw_dat_loopY ld HX,pix_color ld LX,pix_mask push BC push HL ld BC,image_larg*256 ;C = compteur de pixels , au bout de 4 pixels traites ;on change d'octet ld (HL),%11110000 .draw_dat_loopX ;ld A,(HL) ;prend l'octet en cours a l'ecran ;and LX ;efface le pixel ;ld (HL),A ld A,(DE) ;case en cours inc DE ;prochaine addresse or A ;case vide ? jr z,draw_dat_skip ;si oui , on ne dessine pas le pixel ld A,(HL) ;va cherche l'octet and LX or HX ;ajoute la couleur du pixel ld (HL),A ;et on l'ecrit .draw_dat_skip ld A,HX ;fait tourner d'un bit vers la droite pour decaler RRCA ;d'un pixel , couleur et masque (HX LX) ld HX,A ld A,LX ;idem avec LX , la methode est certe un peu lente RRCA ;mais c'est la premiere qui m'est venue a l'esprit ld LX,A ;vu qu'on ne peut pas utiliser les registres ;alternatifs en basic inc C ;pixel suivant ld A,C ;faut bien passer dans A pour tester pfff and 3 ;modulo 4 jr nz,next_byte_skip ;octet suivant ? inc HL ;octet suivant a l'ecran ;remet masque et couleur a leur etat d'origine ld HX,pix_color ld LX,pix_mask ;idem pour le compteur de pixel ld C,0 .next_byte_skip djnz draw_dat_loopX ;ld (HL),#FF ;test ;ligne suivante pop HL ;recupere l'adresse ecran ld A,H and %00111000 ;derniere ligne du char ? cp %00111000 jr z,next_char ld A,H add 8 ld H,A jr next_line_job_done .next_char ld A,H and %11000111 ld H,A ld BC,80 add HL,BC .next_line_job_done pop BC djnz draw_dat_loopY ret


Goto Top
CPC-POWER/CPCSOFTS, programming by Kukulcan © 2007-2019 all rights reserved.
Reproduction forbidden without any express authorization. All the game titles used belong to their respective owners.