| ★ CODING ★ SOURCES ★ CODING Source &045: Routines dots par Demoniak ★ |
| Dots (Demoniak) | Coding Sources |
Ce source ce compile sans problème sous MAXAM ou l'assembleur de WinAPE. L'astuce : toute les coordonées sont codées sur 16 bits , 2 bits pour le numéro de pixel , et 14 bits pour l'adresse.TabPt EQU #200 DI LD IX,TabPt ; Adresse des points à afficher LD IY,Vide ; Adresse d'un buffer "vide" debutprog: LD B,#F5 Sync: IN A,(C) ; Attendre la VBL RRA JR NC,SynC LD BC,#7F10 LD A,#54 OUT (C),C OUT (C),A ; Border noir debut: LD D,#A5 ; Adresse du masque des points = #A500 LD BC,#C0 ; C = adresse début mémoire vidéo, B = 0 ; ; Efface l'ancienne image ; Clear: LD A,(IY+1) ; Adresse poids fort mémoire vidéo à effacer LD E,A LD L,(IY+0) ; Adresse poids faible mémoire vidéo à éffacer OR L ; Y-a-t-il encore des points à effacer ? JR Z,FinClear ; Sinon, fini ! LD A,E OR C ; Pour adresse mémoire vidéo débutant en #C000 LD H,A LD (HL),B ; Efface le point INC IY INC IY JR Clear ; Passer au point suivant FinClear: PUSH IX ; On a fini, d'effacer l'ancienne image, POP IY ; On fait Ancienne image = nouvelle image Trace: LD A,(IX+1) ; Adresse poids fort mémoire vidéo à afficher LD E,A ; bits 7 et 6 de E = numéro octet LD L,(IX+0) ; Adresse poids faible mémoire vidéo à afficher OR L JR Z,Fin ; Adresse = 0 -> trame finie LD A,E OR C ; C = #C0 -> mettre adresse mémoire vidéo en #C000 LD H,A ; HL = adresse mémoire vidéo LD A,(DE) ; récupére octet (#A500 à #A5FF) XOR (HL) ; on aurai pu faire aussi un OR LD (HL),A ; ou bien directement un LD (HL),A INC IX INC IX ; passer au point suivant JR Trace fin: INC IX INC IX LD A,(IX+0) ; Fin animation ? LD B,(IX+1) OR B JR NZ,FinSuiv LD IX,TabPt ; Réinitialise pointeur début animation FinSuiv: LD BC,#7F10 LD A,#4B OUT (C),C ; Border en blanc (pour mesure VBL) OUT (C),A CALL TSPACE ; Test touche Espace RLA RET C ; Retour si espace appuyé JR DebutProg ; Sinon, on boucle ; ; Test la touche espace avec le PPI... Du classique... ; TSPACE: LD A,#45 TCLAV: LD (TCLAV1+1),A:; A=N. LIGNE XOR A LD BC,#F40E OUT (C),C LD BC,#F6C0 OUT (C),C OUT (C),A LD BC,#F792 OUT (C),C TCLAV1: LD BC,#F645 OUT (C),C LD B,#F4 IN A,(C) CPL LD BC,#F782 OUT (C),C RET ; ; Adresse vide pour la premiére image: rien à effacer ; Vide: DB 0,0 ; ; Table des valeurs des octets pour chaque points ; ORG #A500 DS 64,#88 ; Points en x = 0 DS 64,#44 ; Points en x = 1 DS 64,#22 ; Points en x = 2 DS 64,#11 ; Points en x = 3 |
|  |
|
