Omnimaga
Calculator Community => TI Calculators => Axe => Topic started by: ACagliano on October 06, 2010, 07:09:06 pm
-
I need an Axe program that return a pointer to the start of the VAT? Can anyone help me do that?
-
Well since the start of the VAT is at a constant place, that should be pretty easy :D Ill go see if i can find it....
EDIT: Super ninja'd by ACagliano and Quigibo too XD
-
Quigibo can (http://ourl.ca/7202/122628). it's hex address {9830h}r. and that post i linked to contains a wealth of information
-
Yep, because the VAT is moved around a lot, a pointer to the start of it is stored at {E9830}r. That's how you'd access it in Axe.
-
I'm trying to parse the VAT for DCS7 folders, and create a new folder, with a user input name and predefined contents.
-
DCS7 folders aren't stored in the VAT. They're stored in DCS's own appvar (I think).
-
DCS folders are stored in an appvar, right? i think it's called FLD7 or something. so i guess you'd have to loop through the vat until you find "FLD7" = (name of current entry). then you'd have found the folder appvar, but you'd need to know how DCS' folder system works within the appvar.
edit: right... why not just GetCalc("appvDCSFLDAPPV")->X?
-
not according to Kerm. According to him, they are protected programs, named %FLDn
where n is a number from 00 to FF.
link to cemetech topic: http://www.cemetech.net/forum/viewtopic.php?t=5006&postdays=0&postorder=asc&start=60 (http://www.cemetech.net/forum/viewtopic.php?t=5006&postdays=0&postorder=asc&start=60)
-
not according to Kerm. According to him, they are protected programs, named %FLDn
where n is a number from 00 to FF.
link to cemetech topic: http://www.cemetech.net/forum/viewtopic.php?t=5006&postdays=0&postorder=asc&start=60 (http://www.cemetech.net/forum/viewtopic.php?t=5006&postdays=0&postorder=asc&start=60)
Yup. You can see them in CalcSys. :)
-
Oh, never mind, then. Disregard my post ;D
-
Could someone write a routine in Axe that parses the VAT, checks for all %FLDn files, and finds the highest value of n (n1), then creates an Axe name string, %FLD[n1+1]? That would help me out alot.
-
Could someone write a routine in Axe that parses the VAT, checks for all %FLDn files, and finds the highest value of n (n1), then creates an Axe name string, %FLD[n1+1]? That would help me out alot.
i don't use DCS very much, but i'll see if i can do it. it may or may not be a hard challenge.. i can't really tell yet.
-
Shouldn't be too hard the only challenge, as far as I can see, would be the parsing of the VAT. The rest is just playing with a string. I'm just not comfortable with the VAT enough to do it myself.
-
Shouldn't be too hard the only challenge, as far as I can see, would be the parsing of the VAT. The rest is just playing with a string. I'm just not comfortable with the VAT enough to do it myself.
As nemo pointed out, Quigibo wrote a few subroutines (http://ourl.ca/7202/122628) that can parse the VAT for you. Call sub(VI) to start off. Then, check the current entry's name, which is stored backwards with the first token at sub(VN), call sub(VNX) to move to the next VAT entry, and if not at the end of the VAT, repeat.
-
If I want to store something into an appvar pointed to by Z, but start at position 1 instead of position 0, would i do
A->Z+1
or A->{Z+1
-
Ok. I need help now. Here's what I'm trying to do: I used this at first:
:sub(VI)
:
:Lbl L
:If sub(VT)=5
: For(A,1,sub(VNL))
: Disp {sub(VN)-A+1}>Char
: End
: Disp i
:End
:If sub(VNX)
: Goto L
:End
:Return
:
:.Initialize Vat pointer (using P as pointer)
:Lbl VI
:{E9830}r->P
:Return
:
:.Get Next Entry
:.Returns 1 if End of Vat or 0 otherwise
:Lbl VNX
:P-{P-6}-7->P>={E982E}r
:Return
:
:.Get current entry type
:Lbl VT
:{P}
:Return
:
:.Get Pointer to current name length
:Lbl VNL
:{P-6}
:Return
:
:.Get Pointer to current entry name (backwards)
:Lbl VN
:P-7
:Return
That worked. Now, from there I need to deal only with those programs with a name starting with %FLD. What I need it to do is check to see if the program's name starts with %FLD, and if it does, then export the hex representation of the last character of the name to L1. Once that is done, it should add one to the highest value in L1. If someone can do that, I can tackle the rest.
-
Ooh, maybe you could take the mex (http://en.wikipedia.org/wiki/Mex_%28mathematics%29) of the elements in L1 :D
-
Yeah, I'm gonna wind up using the SortD command. But, I can't even get it to work. I keep RAM clearing. Can someone else give it a try and see what code they come up with.
-
If I want to store something into an appvar pointed to by Z, but start at position 1 instead of position 0, would i do
A->Z+1
or A->{Z+1
A->{Z+1}
-
If I want to store something into an appvar pointed to by Z, but start at position 1 instead of position 0, would i do
A->Z+1
or A->{Z+1
A->{Z+1}
I know that now. But I'm saying that I can't get the routine to work. Here's what I'm trying to do:
1. Scan the VAT for all DCS folders (protected programs with the name %FLD[n], where n is a number.
So, a DCS user with four folders on their calc would look like this:
prgm%FLD[1]
prgm%FLD[2]
prgm%FLD[3]
prgm%FLD[4]
2. Figure out what the [n] value on the last folder program is (we'll call that value [n']) and create a name string that reads prgm%FLD[n'+1]
For some reason my attempts keep crashing, so I would like to see if anyone else can help out.
EDIT: The [n] value can be a number ranging (in hex) from 00-FF.
-
Would this work:
:"%FLD["->Str1
:sub(VI)
:
:Goto A
:Repeat sub(VNX)
:Lbl A
:For(A,0,4)
:If {P+A-6}!={Str1+A}
:Goto B
:End
:End
:{P-1}->{L1}
:If {L1}>{L1+1}
:{L1}->{L1+1}
:End
:Lbl B
:End
:{L1}-48->L1
:Return
:
:.Initialize Vat pointer (using P as pointer)
:Lbl VI
:{E9830}r->P
:Return
:
:.Get Next Entry
:.Returns 1 if End of Vat or 0 otherwise
:Lbl VNX
:P-{P-6}-7->P>={E982E}r
:Return
:
:.Get current entry type
:Lbl VT
:{P}
:Return
:
:.Get Pointer to current name length
:Lbl VNL
:{P-6}
:Return
:
:.Get Pointer to current entry name (backwards)
:Lbl VN
:P-7
:ReturnL1 should hold the number of the highest folder, but my routine only should work for the first 10 folders. :)
-
Would this work:
:"%FLD["->Str1
:sub(VI)
:
:Goto A
:Repeat sub(VNX)
:Lbl A
:For(A,0,4)
:If {P+A-6}!={Str1+A}
:Goto B
:End
:End
:{P-1}->{L1}
:If {L1}>{L1+1}
:{L1}->{L1+1}
:End
:Lbl B
:End
:{L1}-48->L1
:Return
:
:.Initialize Vat pointer (using P as pointer)
:Lbl VI
:{E9830}r->P
:Return
:
:.Get Next Entry
:.Returns 1 if End of Vat or 0 otherwise
:Lbl VNX
:P-{P-6}-7->P>={E982E}r
:Return
:
:.Get current entry type
:Lbl VT
:{P}
:Return
:
:.Get Pointer to current name length
:Lbl VNL
:{P-6}
:Return
:
:.Get Pointer to current entry name (backwards)
:Lbl VN
:P-7
:ReturnL1 should hold the number of the highest folder, but my routine only should work for the first 10 folders. :)
I wound up doing this...
:.VATCHK
:"%FLD"->Str1 // That [ shouldn't be there. It was a representation on my part.
:sub(VI)
:0->{L1+1}
:
:Goto A
:Repeat sub(VNX)
:Lbl A
:For(A,0,4)
:If {P+A-6}!={Str1+A}
:Goto B
:End
:End
:{P-1}->{L1}
:If {L1}>{L1+1}
:{L1}->{L1+1}
:End
:Lbl B
:End
:{L1}-48->L1
:Return
:
:.Initialize Vat pointer (using P as pointer)
:Lbl VI
:{E9830}r->P
:Return
:
:.Get Next Entry
:.Returns 1 if End of Vat or 0 otherwise
:Lbl VNX
:P-{P-6}-7->P>={E982E}r
:Return
:
:.Get current entry type
:Lbl VT
:{P}
:Return
:
:.Get Pointer to current name length
:Lbl VNL
:{P-6}
:Return
:
:.Get Pointer to current entry name (backwards)
:Lbl VN
:P-7
:Return
That seems to work, but I'll do more extensive testing. Can you please try it as well. I want to make sure it works on more than just my calc. And try to create more DCS folders and see if it changes the result (it should). Thanks alot.
-
It doesn't crash. That's a start. But it always returns the character e, no matter how many folders there are. Should it?
-
Try this:
:.VATCHK
:"%FLD"->Str1 // That [ shouldn't be there. It was a representation on my part.
:sub(VI)
:0->{L1+1}
:
:Goto A
:Repeat sub(VNX)
:Lbl A
:For(A,0,3)
:If {P-A-6}!={Str1+A}
:Goto B
:End
:End
:{P-10}->{L1}
:If {L1}>{L1+1}
:{L1}->{L1+1}
:End
:Lbl B
:End
:{L1}-48->L1
:Return
:
:.Initialize Vat pointer (using P as pointer)
:Lbl VI
:{E9830}r->P
:Return
:
:.Get Next Entry
:.Returns 1 if End of Vat or 0 otherwise
:Lbl VNX
:P-{P-6}-7->P>={E982E}r
:Return
:
:.Get current entry type
:Lbl VT
:{P}
:Return
:
:.Get Pointer to current name length
:Lbl VNL
:{P-6}
:Return
:
:.Get Pointer to current entry name (backwards)
:Lbl VN
:P-7
:Return
-
Nope. Same thing. It always returns the e as the next folder, even when I create a new one to see if it changes.
I got it working.
Repeat sub(VNX)
should be
While sub(VNX)