- TI-84 Plus CE Routines for Making/Enhancing Shells in ICE
- 13 Apr 2019 09:27:46 am
- Last edited by calclover2514 on 05 Aug 2019 07:32:09 am; edited 10 times in total
I was wondering if I could get a few "simple" routines (as in simple in C and ASM) that will work in ICE (eZ80 hex code subroutines included).
To help other people, I am including the solutions in this first post:
Real-time Clock:
Code:
Suggested by PT_
Battery Status:
Code:
Suggested by Ti64CLi
Detecting whether a program is ASM or BASIC:
Code:
Suggested by me
Running a BASIC or ASM program given it's name in a string:
Code:
Suggested by LAX18, optimized and enhancd by me
Alphabetizing VAT Pointers:
Code:
Suggested (A.K.A taken out of one of his programs) by LAX18, who, in turn, was helped with this by Mateo
If anyone can help, that would be great.
I will give you credit in my shell.
Thanks,
- ▪ ITEM - Priority
▪ Battery Level - SOLVED
▪ Real-time Date - High
▪ Real-time Clock - SOLVED
▪ Setting Time - Medium
▪ Setting Date - Medium
▪ Alphabetizing VAT Pointers - SOLVED
▪ Detecting whether a program is ASM or BASIC -SOLVED
▪ Running a BASIC or ASM program given it's name in a string - SOLVED
To help other people, I am including the solutions in this first post:
Real-time Clock:
Code:
*{|EF30008}→HOUR
*{|EF30004}→MINUTE
*{|EF30000}→SECOND
Suggested by PT_
Battery Status:
Code:
*{|ED02A86}→STATUS
Suggested by Ti64CLi
Detecting whether a program is ASM or BASIC:
Code:
0→POS
iFor ASM
DetectVar(°POS, 0, 6)→PROG
OpenVar(PROG, 0, 6)→SLOT
i --OR--
iFor BASIC
DetectVar(°POS, 0, 5)→PROG
OpenVar(PROG, 0, 5)→SLOT
Suggested by me
Running a BASIC or ASM program given it's name in a string:
Code:
"NAME"→PROGRAM
1 (ASM) or 2 (BASIC)→TYPE
End()
CloseAll()
OpenVar("θθθθTEMP", "w", 5)→SLOT
If TYPE=1
Write('Asm(prgm', 3, 1, SLOT)
Seek(3, 0, SLOT)
Else
Write('prgm', 1, 1, SLOT)
Seek(1, 0, SLOT)
End
Write(PROGRAM, length(PROGRAM), 1, SLOT)
CloseAll()
Asm(CD9C0E02)
prgmθθθθTEMP
Asm(CD9C0E02)
Asm(CD3C1A02)
Asm(CD100802)
ClrHome
End()
ClrHome
DeleteVar("θθθθTEMP", 5)
Begin()
CloseAll()
Suggested by LAX18, optimized and enhancd by me
Alphabetizing VAT Pointers:
Code:
"FDCB21862A9D25D0CDDD31D1D0FDCB2146CA5831D1E5CD7931D1D1E52A0832D11815CD7931D1ED4B0B32D1B7E5ED42E1281401FAFFFF09E5D5CD8331D1D1E130E10106000009EB7EC60701060000094FED430E32D1ED531132D1D5E5B7ED52E1D12846E5112332D1EDB82A1132D1C1C5B7ED42E5C1E123E5ED5B0E32D1B7ED52EBE1EDB0212332D1ED4B0E32D1ED5B1132D1EDB82A0B32D1ED4B0E32D1B7ED42220B32D1E1C3AE30D1E1220B32D1C3AE30D1FDCB21C6220832D1CD7931D1220B32D1C3AE30D101FAFFFF09CD7931D1C3DD31D1010000004E0CB7ED42C9FDCB218EFDCB21962B1B06407EB830068077FDCB21CE1AB830068012FDCB21D6E5D52313461A0E00B8280430020C472B1B1ABE200C10F8D1E1CDC631D10DC03FC9D1E1F5FDCB214E28047ED64077FDCB215628041AD64012F1C9EB2A9A25D0B7ED52C8EB7EE61FE5210532D101030000EDB1E1C26C31D12B2B2B5E2B562B7E2B37C9050615"→SORTVAT
Copy(|ED130A6,SORTVAT,354)
Asm(CDA630D1)
Suggested (A.K.A taken out of one of his programs) by LAX18, who, in turn, was helped with this by Mateo
If anyone can help, that would be great.
I will give you credit in my shell.
Thanks,