Mais pourquoi ça ne marche pas mon prog ??? [PC 1600]

[charognard]

très emmerdé par les OUT (les IN viendrons après)
j'ai trouvé sur un site allemand un bout de code en ASM
permettant l'adressage de l'écran.
mais si son exemple fonctionne pour une partie de l'écran je suis très emmerdé sur la partie du milieu
je vous transcrit le problème en basic
si quelqu'un a une explication, ça m'évitera une grosse prise de tête

Pareil pour l'instruction IN sur le chip video pour lire des pixels

5 CLS
20 A=&F05C
30 FOR L=0 TO 7
40 OUT &50,((L+PEEK A) AND 7) or &B8
50 OUT &50,&40
60 FOR B=&3F TO 0 STEP -1
70 OUT &52,&FF
90 NEXT B
100 NEXT L


merci par avance

PS : si ce programme marche chez vous dites le moi aussi

[Chris]

PS : si ce programme marche chez vous dites le moi aussi

Ah, j'essaie et je te tiens au courant.
Mon PC 1600 fait des trucs bizarres depuis qu j'y ai remis des piles (certaines touches affichent des caractères un peu... space à l'écran).

Il y a un moyen de forcer un reboot musclé ?

[Polo29]

Bin j'ai testé, et je confirme que le milieu de l'écran n'est pas géré.

Dans ma jeunesse, j'y aurais passé la nuit pour trouver, mais là j'avoue ne plus avoir l'energie.

[Chris]

Je confirme : la zone du milieu semble réservée, elle scintille même s'il n'y a pas d'inversion vidéo.

[charognard]

pour le super all reset :
on maintient la touche ON puis on enfonce le bouton reset, on lache le bouton reset puis ON

voilà

le problème et sur tout les 1600, donc le problème c'est mon code ... vais me pencher sur la question si quelqu'un trouve avant moi

je vous tiens au courant

[badaze]

Testé sur un PC 1600K... pareil.

[charognard]

toujours d'actualité, quelqu'un à une idée ?

[Forthman]

Code : Tout sélectionner

5 CLS
20 A=&F05C
30 FOR L=0 TO 7
40 OUT &50,((L+PEEK A) AND 7) or &B8 
50 OUT &50,&40
60 FOR B=&3F TO 0 STEP -1
70 OUT &52,&FF
90 NEXT B
100 NEXT L

Hello,

La boucle au niveau des lignes 60 à 90 sert à quoi ?
pourquoi envoyer 64 fois la valeur sur le même port ?
surtout que la valeur de B est décrémentée alors qu'elle n'est pas utilisée

Il ne manquerait pas des lignes ?

a+ François

[charognard]

Code : Tout sélectionner

5 CLS
20 A=&F05C
30 FOR L=0 TO 7
40 OUT &50,((L+PEEK A) AND 7) or &B8 
50 OUT &50,&40
60 FOR B=&3F TO 0 STEP -1
70 OUT &52,&FF
90 NEXT B
100 NEXT L

Hello,

La boucle au niveau des lignes 60 à 90 sert à quoi ?
pourquoi envoyer 64 fois la valeur sur le même port ?
surtout que la valeur de B est décrémentée alors qu'elle n'est pas utilisée

Il ne manquerait pas des lignes ?

a+ François

non non il ne manque pas de ligne
la boucle for next B avec step -1 est utilisée pour 2 raison
la premiere c'était l'adaptation d'un programme assembleur
la deuxième : il est de notoriété publique que sur PC 1500 la boucle for next est plus rapide avec un STEP -1 se elle fini sur 0 j'ai gardé mes ancienne habitudes mais j'ai jamais vérifié si sur sur le PC 1600 c'est la même chose

[brutal]

Courage vous allez bientôt trouver !

(Juste un mot pour mon 100 message)

[charognard]

faudrait que je mis remette alors!
je pensais qu'une bonne âme aurais pu faire le boulot à ma place

[brutal]

Ça doit venir de tes adresses, ça fait une matrice de combien de pavés ?

Moi j'y comprends rien à ces hexadécimaux