PedroM 0.80 - Page 1

Fell free to express your bug reports.

* HeapRealloc's romcall returns now an error if the newsize is > 65520.
* HeapMax() = min(HeapMax_Internal(), 65520), where HeapMax_Internal returns the real maximum allocatable size

C'est Kevin qui va être content

Parce que, moi, j'ai fait un programme qui plante sous PedroM et pas sous AMS a cause de ca
Sinon les versions non-bridees existent toujours pour les programmes.

erf, il a cédé aux pressions de Kevin

Comment on écrit les conditions dans les scripts ?
'x!=y' ne passe pas, ni en utilisant le "différent de" de la TI.

Au passage, le curseur ne se déplace pas sur TI-89

1. Normalement le different de la ti fonctionne. Step ressaye.
2. Merde Je vais voir cela.

Ma ligne :

while y ≠ x

Quand j'essaie de lancer le script, la TI se bloque, j'appuie sur n'importe quelle touche, elle est affichée dans le shell, et quand j'appuie sur ENTER, j'ai :

Line 4: Arg error

raah, le 'non égal à' ne passe pas :/

Pas d'Unicode? yAro

1. Le script complet, step
2. Ben en fait... Seulement le curseur affiche reste sur place.

> echo "Bravo"

Script complet :#!PedroM
235->x
read y
while x != y
<
 if x<y
 <
  echo "Trop grand"
 >
 else
 <
  echo "Trop petit"
 >
 read y

Mais je viens de me rendre compte que y reçoit une chaine, donc déjà la comparaison n'est pas possible. Je dois utilise '$y' pour la convertir en nombre ?

Au passage, ce serait possible d'avoir une fonction time qui retourne le nombre de secondes écoulées depuis tel moment ?
Je crois qu'il y a un port de la TI où on peut avoir une valeur de ce genre.

1. Bug du curseur: fichier Misc2.asm, a la fin, remplacer par ceci:

;short DrawStrWidth (const char *str asm("a0"), const char *end asm("a1"));
StrWidthFromTo:
	movem.l	d1-d2/a0-a2,-(a7)
	
	lea	MediumFont+$800,a2
	moveq	#6,d2		; Medium
	moveq	#0,d0

	; Select Font
	cmpi.b	#1,CURRENT_FONT
	blt.s	\final_small
	beq.s	\final_calc

	; Large / Medium
	moveq	#8,d2		; Large
	bra.s	\final_calc
\loop_calc	add.w	d2,d0
\final_calc	addq.l	#1,a0
		cmp.l	a0,a1
		bge.s	\loop_calc
\rets	movem.l	(a7)+,d1-d2/a0-a2
	rts
	; Small
\loop_small	mulu.w	#6,d2
		add.b	0(a2,d2.w),d0		; ICI A corriger!!!!!!!!!!!!!!!!
\final_small	clr.w	d2
		move.b	(a0)+,d2
		cmp.l	a0,a1
		bge.s	\loop_small
	bra.s	\rets	

2. Oui une comparaison de chaine et de nombre est pas possible. Utilise $y pour faire une indirection de plus.

Au fait, voici le script supposer correct:

#!PedroM
235->x
read y
while x != $y
 <
   if x<$y
     echo "Trop grand"
   else
     echo "Trop petit"
   read y
 >
 echo "Bravo"

Je croise les doigths. Ca serait pas une fonction random que tu voudrais ?

Ouais, c'est mieux si tu fais une fonction random, mais je ne voulais pas t'embêter
Pourquoi il n'y a que dans la première comparaison que l'on rajoute le '$' devant y et pas pour les autres ?

Parce que je m'etais trompe.

OK, et apparemment, il faut toujours un espace de chaque côté de l'opérateur de comparaison.
Bizarrement, quand j'avais laissé '$y>x' (sans espaces), l'interpréteur indiquait une erreur à la ligne suivante...
En écrivant '$y > x' tout se passe correctement.
Le seul petit truc gênant c'est qu'on ne peut pas utiliser la touche [<-].

1. En fait c'est parce que sinon il cherche le nom de fichier y>x au lieu de y. Il faut soit laisser un espace apres soit mettre entre crochet ${y}. C'est une erreur tres frequente.
2. On peut utiliser [<-]... mais les corrections sont pas affichees a l'ecran puisque stdout et en flux par caractere et pas par ligne. Bref a, b, c, [<-], d donnera "abd"

Ah ok, merci

Sinon, pour la fonction time ou random, c'est possible ?

Ok pour time. Au fait, avez-vous remarquer qu'on peut executer les scripts dans side?
Metter seulement ! dans Config\exec.
Puis F2

Pour recompiler PedroM tu dis qu'on a besoin des sources de PreOS 0.68 disponibles sur www.timetoteam.fr.st, mais je ne les ai pas vues

Normal elles y sont pas
SI tu la la v0.79, normalement, y'a un repertoire preos-old contenant ce qu'il faut pour builder PedroM.

Ajout de la fonction time et correction du bug de la 89.

time indique le temps écoulé depuis quand ?

Depuis le boot de la calc, mais il ne renvoit qu'une valeur 16 bits (Pb interne pour le moment) et l'unite est le tick de l'int5.

Bref, c'est FiftyMSecTick. Bon, dis-moi comment trouver ça en assembleur _nostub et j'utiliserai ça dans Backgammon pour mes nombres aléatoires.

Oui, c'est FiftyMSecTick (D'ailleurs je lui ai donne ce nom la afin de penser au futur - d'ailleurs c'est pas la seule romcall ams 2.0x defini dans PedroM, mais y'en a pas assez.).
Quant a savoir comment y acceder sans kernel... Deja avec kernel c'est pas encore possible...
M'enfin, bon. Je vais l'ajouter a la table des exported RAM PTR. Comme ca en kernel, c'est regle (PS: Penser a rajouter un champ taille de cette table). Cf library.asm.
Il ne reste plus qu'a acceder a la base de library.asm en _nostub pour te faire plaisir. Des idees (Propres de preference et autres que celle d'utiliser un vecteur ?).
Utiliser (*(long**)100)[-2] ?

C quoi *(void **)100 ? C'est pas une auto-int ou un truc comme ça?

Ca fait quoi 100 en hexa ?