Omnimaga
Calculator Community => TI Calculators => Axe => Topic started by: ACagliano on September 13, 2010, 11:21:57 am
-
Lets say I have data in an appvar that looks like this:
AAA,AA,A,F
and I have a string Str0ZZ that looks like this: "prgm"
and I want to move through the appvar between commas, first from AAA to AA then A then F and each time I do that I want to annex the result to Str0ZZ.
So "prgm" becomes "prgmAAA", a name string pointing to program AAA
How do I do that in Axe?
-
perhaps you should seperate the data in the AppVar with zero's? then you could use the length( command to see how long the nam is, and then add that to a pointer to the current program-name. here is some code which should do it:
.READPRGS
GetCalc("apvrDATA")->D->P .get the pointer to the appvar DATA
"prgm"->Str0ZZ .initialize Str0ZZ
While P<{D-2}rr-9 .check for reaching the end of the AppVar
length(P)->L .store the length of the string at P to L, because it will be used more than once
Copy(P,Str0ZZ,L) .annex data at current position to Str0ZZ
P+L+1->P .add the length of the string at P to P to move P to the start of the next string
.Code to do whatever you want with the program...
End
this code is not tested, use at your own risk :P
I don't know wheter Str0ZZ should be Str09 or not, because I thought only Str00 till Str99 were supported, but I'm not sure about that.
-
.READPRGS
GetCalc("apvrDATA")->D->P .get the pointer to the appvar DATA
"prgm"->Str0ZZ .initialize Str0ZZ
det(8 ) .You want this here so you don't overwrite something important if there's something important right after the program in memory. :)
While P<{D-2}rr-12 .check for reaching the end of the AppVar
length(P)->L .store the length of the string at P to L, because it will be used more than once
Copy(P,Str0ZZ,L) .annex data at current position to Str0ZZ
P+L+1->P .add the length of the string at P to P to move P to the start of the next string
.Code to do whatever you want with the program...
End
I don't know wheter Str0ZZ should be Str09 or not, because I thought only Str00 till Str99 were supported, but I'm not sure about that.
It's supported. Axe supports names up to three chars now. :)
-
.READPRGS
GetCalc("apvrDATA")->D->P .get the pointer to the appvar DATA
"prgm"->Str0ZZ .initialize Str0ZZ
det(8 ) .You want this here so you don't overwrite something important if there's something important right after the program in memory. :)
While P<{D-2}rr-12 .check for reaching the end of the AppVar
length(P)->L .store the length of the string at P to L, because it will be used more than once
Copy(P,Str0ZZ,L) .annex data at current position to Str0ZZ
P+L+1->P .add the length of the string at P to P to move P to the start of the next string
.Code to do whatever you want with the program...
End
ouch! forgot about the Zeros( 8 ) or det( 8 ) part :P
I don't know wheter Str0ZZ should be Str09 or not, because I thought only Str00 till Str99 were supported, but I'm not sure about that.
It's supported. Axe supports names up to three chars now. :)
nice to know! haven't heard/seen it anywhere, but that's my bad ;)
the -12 should be -9, but that I've already changed.
EDIT: lol! i noticed your space between the 8 and the ), but didn't see why, but now I see 8) :P
-
The three character names are a lifesaver when naming subroutines ^^ Now they are semi intelligible! :D
-
.READPRGS
GetCalc("apvrDATA")->D->P .get the pointer to the appvar DATA
"prgm"->Str0ZZ .initialize Str0ZZ
det(8 ) .You want this here so you don't overwrite something important if there's something important right after the program in memory. :)
While P<{D-2}rr-12 .check for reaching the end of the AppVar
length(P)->L .store the length of the string at P to L, because it will be used more than once
Copy(P,Str0ZZ,L) .annex data at current position to Str0ZZ
P+L+1->P .add the length of the string at P to P to move P to the start of the next string
.Code to do whatever you want with the program...
End
ouch! forgot about the Zeros( 8 ) or det( 8 ) part :P
I don't know wheter Str0ZZ should be Str09 or not, because I thought only Str00 till Str99 were supported, but I'm not sure about that.
It's supported. Axe supports names up to three chars now. :)
nice to know! haven't heard/seen it anywhere, but that's my bad ;)
the -12 should be -9, but that I've already changed.
EDIT: lol! i noticed your space between the 8 and the ), but didn't see why, but now I see 8) :P
Wait, why?
-
try it and see what happens :D
-
.READPRGS
GetCalc("apvrDATA")->D->P .get the pointer to the appvar DATA
"prgm"->Str0ZZ .initialize Str0ZZ
det(8 ) .You want this here so you don't overwrite something important if there's something important right after the program in memory. :)
While P<{D-2}rr-12 .check for reaching the end of the AppVar
length(P)->L .store the length of the string at P to L, because it will be used more than once
Copy(P,Str0ZZ,L) .annex data at current position to Str0ZZ
P+L+1->P .add the length of the string at P to P to move P to the start of the next string
.Code to do whatever you want with the program...
End
ouch! forgot about the Zeros( 8 ) or det( 8 ) part :P
I don't know wheter Str0ZZ should be Str09 or not, because I thought only Str00 till Str99 were supported, but I'm not sure about that.
It's supported. Axe supports names up to three chars now. :)
nice to know! haven't heard/seen it anywhere, but that's my bad ;)
the -12 should be -9, but that I've already changed.
EDIT: lol! i noticed your space between the 8 and the ), but didn't see why, but now I see 8) :P
Wait, why?
8 and ) stuck together turns into the 8) emoticon. That's unless you disable smileys on your post (or use [ CODE ]), though.
-
Oh, I knew that :P I thought that was part of the actual code lol. Like in Axe you actually had to put that space there :P
-
thanks all.
-
you're welcome!
-
perhaps you should seperate the data in the AppVar with zero's? then you could use the length( command to see how long the nam is, and then add that to a pointer to the current program-name. here is some code which should do it:
.READPRGS
GetCalc("apvrDATA")->D->P .get the pointer to the appvar DATA
"prgm"->Str0ZZ .initialize Str0ZZ
While P<{D-2}rr-9 .check for reaching the end of the AppVar
length(P)->L .store the length of the string at P to L, because it will be used more than once
Copy(P,Str0ZZ,L) .annex data at current position to Str0ZZ
P+L+1->P .add the length of the string at P to P to move P to the start of the next string
.Code to do whatever you want with the program...
End
this code is not tested, use at your own risk :P
I don't know wheter Str0ZZ should be Str09 or not, because I thought only Str00 till Str99 were supported, but I'm not sure about that.
Hey, LordConiupter. Actually the creation of the appvar is being handled by KermM in inline asm. The format of the appvar will length-prepended. For example:
Edit:
I spoke to Kerm Martian. Assume the appvar holds only the name of the program AAA. The data will appear as:
03414141
Where 03 tells you that you are taking the next 3 bytes and 414141 is the three byte representation for AAA.
And so on for every program in the appvar.