prgmHEXFINDR

Forum Attachments

Summary:

A program for the Calcsys app. Created by: TI-Basic Dude

prgmHEXFINDR

(account deleted) 16 May 2017 16:29

Hey guys. So does anyone use Calcsys for your TI-Calc? I want to download it, but I could not during the weekend at my grandparents. I was really busy on HMWK. Anyway, for this program, if you can't find a table to find a hexadecimal string for your program name, this handy program is usefull. It works 100%, and there are no optimizations. (I think there is none.). Data about the program is listed below the code.

PROGRAM:HEXFINDR
:Lbl I
:Asm(prgmLWRCSEOF
:1→B
:Clear Entries
:ClrHome
:Disp "What are the","program letters?","(The program name)"
:Pause
:ClrHome
:Disp "Type in a space","if the prgm","name is less","than 8 chars.
:Pause
:ClrHome
:Disp "Letter:"
:Asm(prgmALPHA
:Input "1 ",Str1
:Asm(prgmALPHA
:Input "2 ",Str2
:Asm(prgmALPHA
:Input "3 ",Str3
:Asm(prgmALPHA
:Input "4 ",Str4
:Asm(prgmALPHA
:Input "5 ",Str5
:Asm(prgmALPHA
:Input "6 ",Str6
:Asm(prgmALPHA
:Input "7 ",Str7
:Asm(prgmALPHA
:Input "8 ",Str8
:ClrHome
:Disp "Is this the","program name?
:Output(3,1,"---------------- //16 Subtraction symbols-do this if you see any more of these in the program code.
:Output(4,1,"prgm
:Output(4,5,Str1
:Output(4,6,Str2
:Output(4,7,Str3
:Output(4,8,Str4
:Output(4,9,Str5
:Output(4,10,Str6
:Output(4,11,Str7
:Output(4,12,Str8
:Pause
:Menu("CONFIRM NAME?","No",N,"Yes",Y
:Lbl N:Goto I
:Lbl Y
:For(I,1,8
:If I=1
:Str1
:If I=2
:Str2
:If I=3
:Str3
:If I=4
:Str4
:If I=5
:Str5
:If I=6
:Str6
:If I=7
:Str7
:If I=8
:Str8
:If Ans="0
:"30
:If Ans="1
:"31
:If Ans="2
:"32
:If Ans="3
:"33
:If Ans="4
:"34
:If Ans="5
:"35
:If Ans="6
:"36
:If Ans="7
:"37
:If Ans="8
:"38
:If Ans="9
:"39
:If Ans="A
:"41
:If Ans="B
:"42
:If Ans="C
:"43
:If Ans="D
:"44
:If Ans="E
:"45
:If Ans="F
:"46
:If Ans="G
:"47
:If Ans="H
:"48
:If Ans="I
:"49
:If Ans="K
:"4A
:If Ans="L
:"4B
:If Ans="M
:"4C
:If Ans="N
:"4D
:If Ans="O
:"4F
:If Ans="P
:"50
:If Ans="Q
:"51
:If Ans="R
:"52
:If Ans="S
:"53
:If Ans="T
:"54
:If Ans="U
:"55
:If Ans="V
:"56
:If Ans="W
:"57
:If Ans="X
:"58
:If Ans="Y
:"59
:If Ans="Z
:"5A
:If Ans="θ
:"5B
:Output(1,1,"Calculating...  // please use the ASCII character of "..." The small 1x1 pixel dots instead of the 2x2 pixel dots.
:Output(5,B,Ans
:B+2→B
:End
:Output(1,1,"Calculating:Done
:Output(3,1,"Hexadecimal(5 spaces)String: 
:Output(8,1,"prgm
:Output(8,5,Str1
:Output(8,6,Str2
:Output(8,7,Str3
:Output(8,8,Str4
:Output(8,9,Str5
:Output(8,10,Str6
:Output(8,11,Str7
:Output(8,12,Str8
:Pause
:ClrHome
:Disp "Tip for Calcsys:","----------------
:Output(3,1,"Greatest=0000,00
:Output(4,1,"Least=FFFF,FF
:Output(5,1,"Guide:
:Output(6,1,"1111,22
:Output(7,1,"1's: Address No.
:Output(8,1,"2's: Page Number
:DelVar Str1Delvar Str2DelVar Str3DelVar Str4DelVar Str5 DelVar Str6DelVar Str7DelVar Str8DelVar Str00→A:0→B
:0
:Asm(prgmLWRCSEON

Information:

---

~ Compatible for all models with the Calcsys App
~ © 2017 TI-Basic Dude

---

If there is optimaztion, PLEASE tell me.

Can anyone send me a screenshot of the program for this website please? I want people to take a peek of what it looks like. (If you get a chance.) Send me the pic in a private message or post it in this thread.

---

Codes for programs ALPHA, LWRCSEON, and LWRCSEOF:

PROGRAM:LWRCSEON
:AsmPrgmFDCB24DEC9

PROGRAM:LWRCSEOF
:AsmPrgmFDCB249EC9

PROGRAM:ALPHA
:AsmPrgmFD361251C9

These codes are from TI-BD.

Last edited on 16 May 2017 17:32 by (account deleted) Show more

Re: prgmHEXFINDR

Xeda Elnara 16 May 2017 16:49

You have a few issues with your code (it looks like copy/paste mistakes).
Calcsys has a VAT search menu that displays the names of the programs, lists, appvars, and groups. When you select the variable, it displays info. Press [Alpha][V] to go to the VAT entry for that variable.

---

Z80 Assembly>English>TI-BASIC>Python>French>C>0