Forum Graph100

//Routines C3 et D3

void setpix_c3(int x,int y,int page){
//Routine allumage pixel
//Mode : Collumn C3
//Position X=0 : Droite
//Position Y=0 : Bas
//Modifie : CX,BX,SI,ES
//Cycles : 40
asm{
mov cx,page  //numero de page   //4
shl cx,6     //multiplication par 64 //2
add cx,0x1a20  //ajout de la page 0  //2
mov es,cx  //on le met dans es    //2
mov si,y //On copie y   //4
mov cx,x //On copie x   //4
mov bx,cx //On en fait une copie  //2
and cx,7 //Reste de division par 8 dans cl //2
shr bx,3 //on divise par 8 //3
shl bx,6 //On multiplie par 64  //2
add si,bx //On ajoute le tout a si //1
mov ch,1   //On met le state    //2
shl ch,cl     //on le deplace selon cl //3
or es:[si],ch}}; //On l'applique a l'octet //7

void invpix_c3(int x,int y,int page){
//Routine inversion pixel
//Mode : Collumn C3
//Position X=0 : Droite
//Position Y=0 : Bas
//Modifie : CX,BX,SI,ES
//Cycles : 40
asm{
mov cx,page  //numero de page   //4
shl cx,6     //multiplication par 64 //2
add cx,0x1a20  //ajout de la page 0  //2
mov es,cx  //on le met dans es    //2
mov si,y //On copie y   //4
mov cx,x //On copie x   //4
mov bx,cx //On en fait une copie  //2
and cx,7 //Reste de division par 8 dans cl //2
shr bx,3 //on divise par 8 //3
shl bx,6 //On multiplie par 64  //2
add si,bx //On ajoute le tout a si //1
mov ch,1   //On met le state    //2
shl ch,cl     //on le deplace selon cl //3
xor es:[si],ch}}; //On l'applique a l'octet //7

void delpix_c3(int x,int y,int page){
//Routine suppression pixel
//Mode : Collumn C3
//Position X=0 : Droite
//Position Y=0 : Bas
//Modifie : CX,BX,SI,ES
//Cycles : 46
asm{
mov cx,page  //numero de page   //4
shl cx,6     //multiplication par 64 //2
add cx,0x1a20  //ajout de la page 0  //2
mov es,cx  //on le met dans es    //2
mov si,y //On copie y   //4
mov cx,x //On copie x   //4
mov bx,cx //On en fait une copie  //2
and cx,7 //Reste de division par 8 dans cl //2
shr bx,3 //on divise par 8 //3
shl bx,6 //On multiplie par 64  //2
add si,bx //On ajoute le tout a si //1
mov ch,es:[si] //On prends l'octet //4
mov bl,0x01  //On met 1 //2
shl bl,cl    //On le deplace //3
and bl,ch    //On prends le bit si il existe //2
xor es:[si],bl}}; //On l'applique a l'octet //7

void setpix_d3(int x,int y,int page){
//Routine affichage pixel
//Mode : Inline D3
//Position X=0 : Droite
//Position Y=0 : Bas
//Modifie : CX,BX,SI,ES
//Cycles : 40
asm{
mov cx,page  //numero de page   //4
shl cx,6     //multiplication par 64 //2
add cx,0x1a20  //ajout de la page 0  //2
mov es,cx  //on le met dans es    //2
mov si,y //On copie y   //4
mov bx,x //On copie x   //4
shl si,4 //multiplie par 16  //2
mov cx,bx //on copie bl   //2
shr bx,3  //On divise par 8  //3
and cx,7  //Reste de la division //2
add si,bx  //On ajoute a si //1
mov ch,1 //On met 1 //2
shl ch,cl  //on le deplace selon cl //3
or es:[si],ch}}; //On l'applique a l'octet //7

void invpix_d3(int x,int y,int page){
//Routine inversion pixel
//Mode : Inline D3
//Position X=0 : Droite
//Position Y=0 : Bas
//Modifie : CX,BX,SI,ES
//Cycles : 40
asm{
mov cx,page  //numero de page   //4
shl cx,6     //multiplication par 64 //2
add cx,0x1a20  //ajout de la page 0  //2
mov es,cx  //on le met dans es    //2
mov si,y //On copie y   //4
mov bx,x //On copie x   //4
shl si,4 //multiplie par 16  //2
mov cx,bx //on copie bl   //2
shr bx,3  //On divise par 8  //3
and cx,7  //Reste de la division //2
add si,bx  //On ajoute a si //1
mov ch,1 //On met 1 //2
shl ch,cl  //on le deplace selon cl //3
xor es:[si],ch}}; //On l'applique a l'octet //7

void delpix_d3(int x,int y,int page){
//Routine suppression pixel
//Mode : Inline D3
//Position X=0 : Droite
//Position Y=0 : Bas
//Modifie : CX,BX,SI,ES
//Cycles : 46
asm{
mov cx,page  //numero de page   //4
shl cx,6     //multiplication par 64 //2
add cx,0x1a20  //ajout de la page 0  //2
mov es,cx  //on le met dans es    //2
mov si,y //On copie y   //4
mov bx,x //On copie x   //4
shl si,4 //multiplie par 16  //2
mov cx,bx //on copie bl   //2
shr bx,3  //On divise par 8  //3
and cx,7  //Reste de la division //2
add si,bx  //On ajoute a si //1
mov ch,es:[si] //On prends l'octet //4
mov bl,0x01  //On met 1 //2
shl bl,cl    //On le deplace //3
and bl,ch    //On prends le bit si il existe //2
xor es:[si],bl}}; //On l'applique a l'octet //7

//Retourne 1:Heure 2:Minute 2:Secondes par Niff
unsigned char get_time(unsigned char what){
if(what!=1&&what!=2&&what!=3) return 0;
asm {
xor ax,ax
mov dx,0x0020
mov al,what
sub dx,ax
in al,dx };
return _AL; } 

//Regle what:1=Heures 2=Minutes time:temps entre 0 et 59 (les secondes se mettent a 0)
unsigned char set_time(unsigned char what,unsigned char time){
if(what!=1&&what!=2) return 0;
if(time>59||time<0) return 0;
asm{
xor ax,ax
mov dx,0x0020
mov al,what
sub dx,ax
mov al,time
out dx,al
hlt
mov al,0x03
sub al,what
out 0x1D,al };
return 1; }

//Retourne la date
//what:0=[Jours] 1=[Mois] 2=[annee] 3=[n°jour]
//jours:0=[si de la caltos] sinon=[jours ecoules depuis le 1/1/2000]
//n°jour:0=Lundi -> 6=Dimanche
unsigned short get_date(unsigned char what, unsigned short jours){
    unsigned char mois[12]={31,28,31,30,31,30,31,31,30,31,30,31};
    unsigned char nyear=0,byear=0,month=0,day=0;
if(jours==0){ asm in ax,0x20;jours=_AX;}
day=jours%7+5;if(day>6) day-=7;
if(what==3) return day;
if(jours>=366){
byear=(((jours-366)/365)/4)+1;
nyear=jours/365;}
if(what==2) return (2000+nyear);
if(nyear%4==0) mois[1]=29;
jours-=(nyear*365)+byear;
debct:
if(jours>=mois[month]){ jours-=mois[month];
    month++;
    goto debct; }
if(what==1) return (month+1);
return (jours+1); }

//Regle la date
//year:[2000;2158] month:[1;12] days:[0;31]
//Retourne le nombre de jours depuis 1/1/2000
unsigned short set_date(short year,char month,char days){
    unsigned char mois[12]={31,28,31,30,31,30,31,31,30,31,30,31};
    unsigned char byear=0;
    unsigned short total;
year-=2000;month--;days--;
byear=(year-1)/4;
if(year>0) byear++;
total=(year*365)+byear;
if(year%4==0) mois[1]=29;
for(byear=0;byear<month;byear++) total+=mois[byear];
if(days>mois[month]) total+=mois[month];
else total+=days;
_AX=total;
asm out 0x20,ax;
return total;}