Forum des collectionneurs et utilisateurs d'ordinateurs anciens
System.cfg
Accès base de données
Modérateurs : Carl, Papy.G, fneck
Il y en a plein d'autres ici: https://videos.pexels.com/tags/nature, comme par exemple - oh la vache!
Code : Tout sélectionner
BCL_4:
IN A,(PORTC) ; lecture portC
AND $10 ; PC4? Octet suivant D>H disponible ?
JR Z,BCL_4 ; attente
LD A,$05 ; X0/X2 => PC0 / PC2 à 1
OUT (PORTC),A ; Validation octet envoyé sur PORTB
IN A,(PORTB) ; Lecture PORTA (octet en provenance Disk)
LD H,A ; octet reçu dans H
LD A,$07 ; X0/X1/X2 => PC0 PC1 PC2
OUT (PORTC),A ; RAZ du bit X1 => validation lecture
Voilà: http://dl.free.fr/wuI5PBfRq__sam__ a écrit :Mais quelques remarques:
- Je vais refaire les vidéos...
Le clip file à une vitesse d'enfer. Les Gifs sont à 10fps, là tu je pense qu'on peut monter à 15fps. . . la vitesse est stupéfiante 
Code : Tout sélectionner
BCL_VID_OFF:
; Lecture des 4 octets de façon consécutive.
; 1er => B
; 2eme => D
; 3eme => E
; 4eme => C
; Sachant que A sert tout le temps et
; HL est le pointeur d'écran
IN A,(PORTC) ; 11 lecture portC
AND $10 ; 7 PC4? Octet suivant D>H disponible ? ( BIT = 8 cycles!)
JR Z,BCL_VID_OFF ; 12/7 attente
IN A,(PORTB) ; 11 Lecture PORTA (octet en provenance Disk)
LD B,A ; 4 on mets de coté
LD A,$05 ; 7 X0/X2 => PC0 / PC2 à 1
OUT (PORTC),A ; 11 Validation octet envoyé sur PORTB
LD A,$07 ; 7 X0/X1/X2 => PC0 PC1 PC2
OUT (PORTC),A ; 11 RAZ du bit X1 => validation lecture
LD A,3
OUT (PORTA),A
IN A,(PORTB) ; Lecture PORTA (octet en provenance Disk)
LD D,A ; On mets dans reg D l'octet 2 reçu
LD A,2
OUT (PORTA),A
IN A,(PORTB) ; 11 Lecture PORTA (octet en provenance Disk)
LD E,A ; 4 On mets dans reg E l'octet 3 reçu
LD A,1
OUT (PORTA),A
IN A,(PORTB) ; 11 Lecture PORTA (octet en provenance Disk)
LD C,A ; 4 On mets dans reg D l'octet 4 reçu
; Les 4 octets ont été reçus !
;1er octet : offset dans B
LD A,B ; Restauration octet lu !
CP 0 ; Offset reçu = 0 ???
JR Z,CONTROLE_VIDEO
; Addition HL,A
ADD A,L
LD L,A
ADC A,H
SUB L
LD H,A
; 1er octet de 4 pixels
LD (HL),D ; Mise en place de l'octet
; 2em octet de 4 pixels
INC HL
LD (HL),E ; Mise en place de l'octet
; 3em octet de 4 pixels
INC HL
LD (HL),C ; Mise en place de l'octet
JR BCL_VID_OFF
CONTROLE_VIDEO:
; Si on est ici c'est que l'on a recu un code offset à 0
; On charge donc les 2 octets suivant dans HL
LD H,D
LD L,E
; Si adresse = 01 => c'est que c'est fini on sort
; -> 0100 ou 0001 ou 0101 ce qui ne rime à rien dans la ram Hector !
LD A,L
OR H
CP 1
JR Z,VIDEO_OUT ; Si c'est la cas => on sort !
; Sinon c'est que l'on souhaite écrire en mémoire !
LD (HL),C
; et on relance
JR BCL_VID_OFF ; non ce n'est pas une nouvelle frame, mais une nouvelle base de remplissage BCL_NEW_FRAME
Code : Tout sélectionner
while( LPointeur <= L2 ) { // Sur l'ensemble du fichier
// On envoi l'octet N°1
while ( digitalRead(I_WRITE_Pin) ){ // pas d'ecriture en cours ?
}
PORTL = Octet;
digitalWrite(SET_WRITE_Pin, LOW);
digitalWrite(SET_WRITE_Pin, HIGH);
// On envoi l'octet N°2
while ( PINA != 3 ){ // Attente synchro depuis Hector
}
PORTL = Octet2;
while ( PINA != 2 ){ // Attente synchro depuis Hector
}
// On envoi l'octet N°3
PORTL = Octet3;
while ( PINA != 1 ){ // Attente synchro depuis Hector
}
// On envoi l'octet N°4
PORTL = Octet4;
// Dés que c'est fait on peut y aller avec les autres octets!
Octet = SD_L0_SpiRecvByte(); // echantillon du fichier
Octet2 = SD_L0_SpiRecvByte(); // echantillon du fichier
Octet3 = SD_L0_SpiRecvByte(); // echantillon du fichier
Octet4 = SD_L0_SpiRecvByte(); // echantillon du fichier
// C'est 4 octets que l'on vient de lire
count=count+4;
if (count >= 512 ) {
// Tous les 512 octets il y a les CRC
SD_L0_SpiRecvByte(); // premier octet CRC
SD_L0_SpiRecvByte(); // deuxieme octet CRC
count = 0;
// attente octet 0xfe de debut de bloc suivant
while(SD_L0_SpiRecvByte() != 0xfe);
}
LPointeur=LPointeur+4;
}