« previous next »
Pages: 1 [2] 3   Go Down

Author Topic: TI-84+ SE Menu  (Read 20134 times)

0 Members and 1 Guest are viewing this topic.

Offline TexasInstruments84

  • LV2 Member (Next: 40)
  • **
  • Posts: 24
  • Rating: +0/-0
    • View Profile
Re: TI-84+ SE Menu
« Reply #15 on: November 10, 2012, 10:51:09 am »
Quote from: aeTIos on November 10, 2012, 06:20:33 am
I can make this too, when thepenguin can give me the asm codes to use with Axe.

Once you complete it, can you share it? Thanks!
Logged

Offline DJ Omnimaga

  • Clacualters are teh gr33t
  • CoT Emeritus
  • LV15 Omnimagician (Next: --)
  • *
  • Posts: 55943
  • Rating: +3154/-232
  • CodeWalrus founder & retired Omnimaga founder
    • View Profile
    • Dream of Omnimaga Music
Re: TI-84+ SE Menu
« Reply #16 on: November 10, 2012, 07:52:55 pm »
That reminds me, if you made that screen like the 89T startup on RAM clears, then added PrettyPrint app and other apps making your calc almost like a CAS, then you could almost completely turn your TI-84+ into some sort of TI-89 lol.
Logged

Offline willrandship

  • Omnimagus of the Multi-Base.
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2953
  • Rating: +98/-13
  • Insert sugar to begin programming subroutine.
    • View Profile
Re: TI-84+ SE Menu
« Reply #17 on: November 10, 2012, 08:38:41 pm »
StartUp can run Apps, but yes, I'll acknowledge zStart's superiority. :P
Logged

Offline TexasInstruments84

  • LV2 Member (Next: 40)
  • **
  • Posts: 24
  • Rating: +0/-0
    • View Profile
Re: TI-84+ SE Menu
« Reply #18 on: November 10, 2012, 08:42:57 pm »
Quote from: DJ_O on November 10, 2012, 07:52:55 pm
That reminds me, if you made that screen like the 89T startup on RAM clears, then added PrettyPrint app and other apps making your calc almost like a CAS, then you could almost completely turn your TI-84+ into some sort of TI-89 lol.

That's the idea! :D
Logged

Offline thepenguin77

  • z80 Assembly Master
  • LV10 31337 u53r (Next: 2000)
  • **********
  • Posts: 1594
  • Rating: +823/-5
  • The game in my avatar is bit.ly/p0zPWu
    • View Profile
Re: TI-84+ SE Menu
« Reply #19 on: November 10, 2012, 08:45:23 pm »
Quote from: Hayleia on November 10, 2012, 06:21:41 am
Quote from: aeTIos on November 10, 2012, 06:20:33 am
I can make this too, when thepenguin can give me the asm codes to use with Axe.
Same, I want those codes, please share *.*

Make me a list of what you want.
Logged
zStart v1.3.013 9-20-2013 
All of my utilities
TI-Connect Help
You can build a statue out of either 1'x1' blocks or 12'x12' blocks. The 1'x1' blocks will take a lot longer, but the final product is worth it.
       -Runer112

Offline Hayleia

  • Programming Absol
  • Coder Of Tomorrow
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3367
  • Rating: +393/-7
    • View Profile
Re: TI-84+ SE Menu
« Reply #20 on: November 12, 2012, 01:08:34 pm »
Quote from: thepenguin77 on November 10, 2012, 08:45:23 pm
Quote from: Hayleia on November 10, 2012, 06:21:41 am
Quote from: aeTIos on November 10, 2012, 06:20:33 am
I can make this too, when thepenguin can give me the asm codes to use with Axe.
Same, I want those codes, please share *.*

Make me a list of what you want.
I just thought about some problem there could be: if I use some of your hex code that makes something (like running a program or going to the graph editor), will it come back to my custom menu afterwards ?

Anyway, I think that the most useful codes would be:
- running a program through zStart when its name is in a string pointed by hl (maybe some people use their calcs for calculating or graphing but that is the code I'd use most :P)
- graph editor
- graph viewer
Logged
I own: 83+ ; 84+SE ; 76.fr ; CX CAS ; Prizm ; 84+CSE
Sorry if I answer with something that seems unrelated, English is not my primary language and I might not have understood well. Sorry if I make English mistakes too.

click here to know where you got your last +1s

Offline aeTIos

  • Nonbinary computing specialist
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3915
  • Rating: +184/-32
    • View Profile
    • wank.party
Re: TI-84+ SE Menu
« Reply #21 on: November 12, 2012, 01:16:45 pm »
-jump to edit program list?
Logged
I'm not a nerd but I pretend:

Offline thepenguin77

  • z80 Assembly Master
  • LV10 31337 u53r (Next: 2000)
  • **********
  • Posts: 1594
  • Rating: +823/-5
  • The game in my avatar is bit.ly/p0zPWu
    • View Profile
Re: TI-84+ SE Menu
« Reply #22 on: November 12, 2012, 03:06:46 pm »
Quote from: Hayleia on November 12, 2012, 01:08:34 pm
Quote from: thepenguin77 on November 10, 2012, 08:45:23 pm
Quote from: Hayleia on November 10, 2012, 06:21:41 am
Quote from: aeTIos on November 10, 2012, 06:20:33 am
I can make this too, when thepenguin can give me the asm codes to use with Axe.
Same, I want those codes, please share *.*

Make me a list of what you want.
I just thought about some problem there could be: if I use some of your hex code that makes something (like running a program or going to the graph editor), will it come back to my custom menu afterwards ?

Anyway, I think that the most useful codes would be:
- running a program through zStart when its name is in a string pointed by hl (maybe some people use their calcs for calculating or graphing but that is the code I'd use most :P)
- graph editor
- graph viewer

Ok, lol, I take that back. You don't want these codes. They are going to be like 50 bytes long (100 chars) and will work in really funky ways. Some return, others don't, and some just straight up crash. To make these work requires very specific hacks, and you don't want that.

I'll make you a zStart axiom. It will let you run and edit programs using zStart's asm API.
Logged
zStart v1.3.013 9-20-2013 
All of my utilities
TI-Connect Help
You can build a statue out of either 1'x1' blocks or 12'x12' blocks. The 1'x1' blocks will take a lot longer, but the final product is worth it.
       -Runer112

Offline thepenguin77

  • z80 Assembly Master
  • LV10 31337 u53r (Next: 2000)
  • **********
  • Posts: 1594
  • Rating: +823/-5
  • The game in my avatar is bit.ly/p0zPWu
    • View Profile
Re: TI-84+ SE Menu
« Reply #23 on: November 15, 2012, 12:10:50 am »
Quote from: thepenguin77 on November 12, 2012, 03:06:46 pm
I'll make you a zStart axiom. It will let you run and edit programs using zStart's asm API.

I said I would deliver, and I did.
Logged
+3/-0 karm for this message
zStart v1.3.013 9-20-2013 
All of my utilities
TI-Connect Help
You can build a statue out of either 1'x1' blocks or 12'x12' blocks. The 1'x1' blocks will take a lot longer, but the final product is worth it.
       -Runer112

Offline Hayleia

  • Programming Absol
  • Coder Of Tomorrow
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3367
  • Rating: +393/-7
    • View Profile
Re: TI-84+ SE Menu
« Reply #24 on: November 21, 2012, 01:40:39 pm »
Ok, I haven't used any function from zStaxe (read: my program actually does nothing :P) yet but I have something that starts looking like a menu. So if anyone wants to make the project but doesn't know how to start, feel free to use my source code :)

For now, you use the arrow keys to navigate and Clear to quit.

It may not be in its most optimized form (I am sure the A--+1??→A line is optimizable but I like it as it is :P), but as long as it works... ;)
Source (TokenIDE) in spoiler and in attachement, and screenshot.

Spoiler For source:
.AA
Fix 5
ClrDraw

Lbl Sprit
[]->Str1
[FFFF8001880188058805B8098C098A118A11BFFD8A2189C1880188018001FFFF].graph
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF].cross

Lbl Text
[]->GDB1
"Choice 0"[00]
"Choice 1"[00]
"Choice 2"[00]
"Choice 3"[00]
"Choice 4"[00]
"Choice 5"[00]
"Choice 6"[00]
"Choice 7"[00]
"Choice 8"[00]
"Choice 9"[00]
"Choice A"[00]
"Choice B"[00]
"Choice C"[00]
"Choice D"[00]
"Choice E"[00]


Lbl Code
ClrDraw(L1)

While 1
 getKey(3)-getKey(2)+X+3^3->X
 If getKey(1)
  B++
  !If -2
   B--
   A<3+A->A
  End
 End
 If getKey(4)
  B--
  !If +1
   ->B
   A--+1??->A
  End
 End
 ClrDraw
 For(Z,0,5)
  For(theta,0,15)
   {A*3+Z->r1*16+theta*2+Str1}^^r->{Z/3*26+theta*3+(Z^3)*4+L6+1}^^r
  End
  Text(Z^3*32,Z/3*26+16,stdDev(GDB1,r1)
 End
 RectI(X*32,B*26,32,26)
 Text(0,57,A+B*3+X>Dec)
 DispGraph
EndIf getKey(15)

Lbl RET
Return

Lbl WKP
Pause 200
Lbl WLP
While 1
EndIf getKey(0)
Return
« Last Edit: November 21, 2012, 03:18:14 pm by Hayleia »
Logged
I own: 83+ ; 84+SE ; 76.fr ; CX CAS ; Prizm ; 84+CSE
Sorry if I answer with something that seems unrelated, English is not my primary language and I might not have understood well. Sorry if I make English mistakes too.

click here to know where you got your last +1s

Offline TexasInstruments84

  • LV2 Member (Next: 40)
  • **
  • Posts: 24
  • Rating: +0/-0
    • View Profile
Re: TI-84+ SE Menu
« Reply #25 on: November 21, 2012, 03:09:51 pm »
Looks really awesome. I'll try experimenting with it soon :D
Logged

Offline Hayleia

  • Programming Absol
  • Coder Of Tomorrow
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3367
  • Rating: +393/-7
    • View Profile
Re: TI-84+ SE Menu
« Reply #26 on: November 21, 2012, 03:17:26 pm »
Quote from: TexasInstruments84 on November 21, 2012, 03:09:51 pm
Looks really awesome. I'll try experimenting with it soon :D
Thanks. I hope you'll manage to do something with it because I really would like to have a custom menu on my calc :D

(also, I edited my previous post to tell things about keys and rearrange indentation :P)
« Last Edit: November 21, 2012, 03:18:36 pm by Hayleia »
Logged
I own: 83+ ; 84+SE ; 76.fr ; CX CAS ; Prizm ; 84+CSE
Sorry if I answer with something that seems unrelated, English is not my primary language and I might not have understood well. Sorry if I make English mistakes too.

click here to know where you got your last +1s

Offline Hayleia

  • Programming Absol
  • Coder Of Tomorrow
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3367
  • Rating: +393/-7
    • View Profile
Re: TI-84+ SE Menu
« Reply #27 on: November 24, 2012, 11:53:57 am »
Yay, double post ! :P
Update, now with the time displayed on the top right corner, thanks to Jacobly's librairy :D
The current choice is also displayed on top of the screen (not very useful but there is that on the 89 T so I've put it here too).
I added an icon (that does nothing, like the others :P) that will lead to an option to set the clock :)
(note that the "F1:Menu" doesn't mean anything, pressing F1 will do nothing, it is just that the 89 T has it too :P)

I also tried if the program was fast enough to handle greyscale, to have a custom background, but seems like there are too many Text commands :(
As usual, source in spoiler and in download, and screenie ;)

Spoiler For Spoiler:
.AA
L1+710->°SEC
L1+708->°MIN
L1+706->°HOUR
L1+704->°DAY
L1+702->°MONTH
L1+700->°YEAR

Fix 5
ClrDraw

Lbl Sprit
[]->Str1
[FFFF8001880188058805B8098C098A118A11BFFD8A2189C1880188018001FFFF].graph
[C1839C392244424287E18911900960062004B1EDA105A1059009891187E1F66F].clock
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF].cross

Lbl Text
[]->GDB1
"Graph"[00]
"Set Clock"[00]
"Choice 2"[00]
"Choice 3"[00]
"Choice 4"[00]
"Choice 5"[00]
"Choice 6"[00]
"Choice 7"[00]
"Choice 8"[00]
"Choice 9"[00]
"Choice A"[00]
"Choice B"[00]
"Choice C"[00]
"Choice D"[00]
"Choice E"[00]

Zeros(768)->°BG

Lbl Code
ClrDraw(L1)
ClrDraw(L3)
Fill(°BG+96,384,255)

Text(0,,"F1:Menu")
RectI(0,7,96,1)
StorePic

While 1
getKey(3)-getKey(2)+X+3^3->X
If getKey(1)
 B++
 !If -2
  B--
  A<3+A->A
 End
End
If getKey(4)
 B--
 !If +1
  ->B
  A--+1??->A
 End
End
RecallPic
TIME()
Lbl FOR2
For(Z,0,5)
 A*3+Z->r1*32+Str1->r2
 Z/3*26->r4*3+(Z^3->r5)*4+L6+133->r3
 For(theta,0,15)
{theta*2+r2}^^r->{theta*12+r3}^^r
 End
 Text(r5*32+1,r4+27,stdDev(GDB1,r1)
End
RectI(X*32,B*26+9,32,25)
Text(32,0,stdDev(GDB1,A+B*3+X)
.DispGraph(L6,°BG)^^r
DispGraph
EndIf getKey(15)

Lbl RET
Return

Lbl TIME
°YEAR
GetDT()
Text(77,0,HOUR/10>Dec)
Text(81,0,HOUR^10>Dec)
Text(85,0,":")
Text(87,0,MIN/10>Dec)
Text(91,0,MIN^10>Dec)
Return

Lbl WKP
Pause 200
Lbl WLP
While 1
EndIf getKey(0)
Return

..CLOCK LIBRARY
Data(31,28,31,30,31,30,31,31,30,31,30,31)->GDB0DPM

Lbl ClkOf
Asm(DB02E620C8AFD340)
Return

Lbl ClkOn
Asm(DB02E620C83E01D340)
Return

Lbl IsClk
Asm(DB02E6202804DB40E6016F)^256
.returns 1 if  clock is on, 0  if off
Return

Lbl GetDT
->r6
°r1GetRT()
60->r3
Div21()
r4->{r6+10}^^r
Div21()
r4->{r6+8}^^r
24->r3
Div21()
r4->{r6+6}^^r
r2>=37679+r2->r1
^1461->r2
/365+(r2!=1460-1)+(r1/1461*4)+1997->{r6}^^r
r2>=1095+28->{GDB0DPM+1}
1->r1:(r2=1460??r2^365,365)->r2
While >={r1-1+GDB0DPM}:r1++
r2-{r1-2+GDB0DPM}->r2:End
r1->{r6+2}^^r
r2+1->{r6+4}^^r
28->{GDB0DPM+1}
Return

Lbl GetRT
Asm(DB02E620280F0E47EDA20CEDA20E45EDA20CEDA2C90604772310FC)
Return

Lbl SetDT
Select(Select(r1-1997,/2/2*1461-1+r3->r3)^4,*365+r3->r3)=3-1
+1+28->{GDB0DPM+1}
While r2-1->r2
{-1+GDB0DPM}+r3->r3:End:->r1
r3<37679-1+r3->r2
28->{GDB0DPM+1}
24->r3
Mul21():r2+r4->r2<r4+r1->r1
60->r3
Mul21():r2+r5->r2<r5+r1->r1
Mul21():r2+r6->r2<r6+r1->r1
°r1

Lbl SetRT
Asm(DB02E620C80E43EDA30CEDA30E41EDA30CEDA33E01D3403E03D340)
Return

Lbl DOfWk
Select(Select(r1-1997,/2/2*1461-1+r3->r3)^4,*365+r3->r3)=3-1
+1+28->{GDB0DPM+1}
While r2-1->r2
{-1+GDB0DPM}+r3->r3:End
28->{GDB0DPM+1}
Return r3<37679-1+r3+3^7+1

Lbl Mul21
r1*r3+(r2*^r3)->r1:r2*r3->r2
Return

Lbl Div21
0->r4^^r
For(4)
r4*256+{°r1+1}->r4
r1*256+{°r2+1}->r1
r2*256+(r4/r3)->r2
r4^r3->r4
End
Return
« Last Edit: November 24, 2012, 11:55:27 am by Hayleia »
Logged
I own: 83+ ; 84+SE ; 76.fr ; CX CAS ; Prizm ; 84+CSE
Sorry if I answer with something that seems unrelated, English is not my primary language and I might not have understood well. Sorry if I make English mistakes too.

click here to know where you got your last +1s

Offline Hayleia

  • Programming Absol
  • Coder Of Tomorrow
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3367
  • Rating: +393/-7
    • View Profile
Re: TI-84+ SE Menu
« Reply #28 on: November 24, 2012, 03:40:27 pm »
Yay ! triple post :P
(but it is for an update, so I guess it is right)

Greyscale can work if there is no Text command in the loop, here is the proof :D
To "display text" below the icons, I had to have them as part of the icons.

Now with a background ! :D

Spoiler For Spoiler:
.AA

L1+710->°SEC
L1+708->°MIN
L1+706->°HOUR
L1+704->°DAY
L1+702->°MONTH
L1+700->°YEAR

Fix 5
ClrDraw

Lbl Sprit
[]->Str1
[FFFF8001880188058805B8098C098A118A11BFFD8A2189C1880188018001FFFF][0000][600480048DB6AAADAAB569A5].graph
[C1839C392244424287E18911900960062004B1EDA105A1059009891187E1F66F][0000][580C880489158AA68AA56D15].clock
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF][0000][38081008126C154816281364].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF][0000][38081008126C154816281364].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF][0000][38081008126C154816281364].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF][0000][38081008126C154816281364].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF][0000][38081008126C154816281364].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF][0000][38081008126C154816281364].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF][0000][38081008126C154816281364].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF][0000][38081008126C154816281364].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF][0000][38081008126C154816281364].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF][0000][38081008126C154816281364].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF][0000][38081008126C154816281364].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF][0000][38081008126C154816281364].cross
[FFFFC003A0059009881184218241818181818241842188119009A005C003FFFF][0000][38081008126C154816281364].cross

Lbl BG
[]->°BG
[000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000F000007E0200600000000003CC0FF800188070000000000300000000062030000000000000F00000181000000000000002000000020400000000000008000000012200000000000000000000005000000000000000010000F02000000000000000010000FE0000000000000003F10000FF800000000000000FFE0000FCC00000000000002C7E0000FFCC00000000000007FF000083C0000000000000000700003001000000000000000100003007000000000000E00100001E3E0000000000003981000007F00000000000001F8100000000000000000000DE0700000003000000000100C01C0078000F71A400000150C038001DF03C7DA4000001C1C07803CC00F0612400000091E02C07DC0FC0C30C000000C5E00600583EC1C20C00000063DC03E007C0CF819800000063DE01C03F00DF823000000023D7C003FE01FB00700000002391FFFC020FC600C000000023918304033FC4018000000000D3030000FECC000000000000FFC20000F0D8000000000000FFFF000080F0000000000000FFFF000080600000000000007FFF000081C0000000000000FFFF00008380000000000000EFFF0000C700000000000000F6610000FC00000000000000F2610000786200000000000073310000E1940000000000001FF90000062300000000000003FF000008C7000000000000000F0000311C0000000000002000000018F00000000000001000000061E0000000000000080000008780000000000060800000603C0000000000006040000780F0000000000000602007F801C0000000000000300000000E00000000000000300000003C0000000000000018000003F0000000000000000E0000FE0000000000000000078007F0000000000000000001FFFF80000000000000000000000000000000000000000000000000000000000000]

Lbl Text
[]->GDB1
"Graph"[00]
"Set Clock"[00]
"Choice 2"[00]
"Choice 3"[00]
"Choice 4"[00]
"Choice 5"[00]
"Choice 6"[00]
"Choice 7"[00]
"Choice 8"[00]
"Choice 9"[00]
"Choice A"[00]
"Choice B"[00]
"Choice C"[00]
"Choice D"[00]
"Choice E"[00]

Lbl Code
ClrDraw(L1)

Text(0,,"F1:Menu")
RectI(0,7,96,1)
StorePic

While 1
If T++^2
 getKey(3)-getKey(2)+X+3^3->X
 If getKey(1)
  B++
  !If -2
   B--
   A<3+A->A
  End
 End
 If getKey(4)
  B--
  !If +1
   ->B
   A--+1??->A
  End
 End
End
.of T^
RecallPic
TIME()
Lbl FOR2
For(Z,0,5)
 A*3+Z->r1*46+Str1->r2
 Z/3*26->r4*3+(Z^3->r5)*2*2+L6+133->r3
 65535->theta
 For(23)
  {theta++*2+r2}^^r
  ->{theta*12+r3}^^r
 End
.Text(r5*2*2*2*2*2+1,r4+27,stdDev(GDB1,r1)
End
RectI(X*2*2*2*2*2,B*26+9,32,26)
Text(32,0,stdDev(GDB1,A+B*3+X)
DispGraph(L6,°BG)^^r
EndIf getKey(15)

Lbl RET
Return

Lbl TIME
°YEAR
GetDT()
Text(77,0,HOUR/10>Dec)
Text(81,0,HOUR^10>Dec)
Text(85,0,":")
Text(87,0,MIN/10>Dec)
Text(91,0,MIN^10>Dec)
Return

Lbl WKP
Pause 200
Lbl WLP
While 1
EndIf getKey(0)
Return

. . .
[]->Str1D
"lundi"[00]
"mardi"[00]
"mercedi"[00]
"jeudi"[00]
"vendredi"[00]
"samedi"[00]
"dimanche"[00]

[]->Str1M
"janvier"[00]
"fevrier"[00]
"mars"[00]
"avril"[00]
"mai"[00]
"juin"[00]
"juillet"[00]
"aout"[00]
"septembre"[00]
"octobre"[00]
"novembre"[00]
"decembre"[00]
. . .

..CLOCK LIBRARY
Data(31,28,31,30,31,30,31,31,30,31,30,31)->GDB0DPM

Lbl ClkOf
Asm(DB02E620C8AFD340)
Return

Lbl ClkOn
Asm(DB02E620C83E01D340)
Return

Lbl IsClk
Asm(DB02E6202804DB40E6016F)^256
.returns 1 if  clock is on, 0  if off
Return

Lbl GetDT
->r6
°r1GetRT()
60->r3
Div21()
r4->{r6+10}^^r
Div21()
r4->{r6+8}^^r
24->r3
Div21()
r4->{r6+6}^^r
r2>=37679+r2->r1
^1461->r2
/365+(r2!=1460-1)+(r1/1461*4)+1997->{r6}^^r
r2>=1095+28->{GDB0DPM+1}
1->r1:(r2=1460??r2^365,365)->r2
While >={r1-1+GDB0DPM}:r1++
r2-{r1-2+GDB0DPM}->r2:End
r1->{r6+2}^^r
r2+1->{r6+4}^^r
28->{GDB0DPM+1}
Return

Lbl GetRT
Asm(DB02E620280F0E47EDA20CEDA20E45EDA20CEDA2C90604772310FC)
Return

Lbl SetDT
Select(Select(r1-1997,/2/2*1461-1+r3->r3)^4,*365+r3->r3)=3-1
+1+28->{GDB0DPM+1}
While r2-1->r2
{-1+GDB0DPM}+r3->r3:End:->r1
r3<37679-1+r3->r2
28->{GDB0DPM+1}
24->r3
Mul21():r2+r4->r2<r4+r1->r1
60->r3
Mul21():r2+r5->r2<r5+r1->r1
Mul21():r2+r6->r2<r6+r1->r1
°r1

Lbl SetRT
Asm(DB02E620C80E43EDA30CEDA30E41EDA30CEDA33E01D3403E03D340)
Return

Lbl DOfWk
Select(Select(r1-1997,/2/2*1461-1+r3->r3)^4,*365+r3->r3)=3-1
+1+28->{GDB0DPM+1}
While r2-1->r2
{-1+GDB0DPM}+r3->r3:End
28->{GDB0DPM+1}
Return r3<37679-1+r3+3^7+1

Lbl Mul21
r1*r3+(r2*^r3)->r1:r2*r3->r2
Return

Lbl Div21
0->r4^^r
For(4)
r4*256+{°r1+1}->r4
r1*256+{°r2+1}->r1
r2*256+(r4/r3)->r2
r4^r3->r4
End
Return
« Last Edit: November 24, 2012, 03:56:33 pm by Hayleia »
Logged
+2/-0 karm for this message
I own: 83+ ; 84+SE ; 76.fr ; CX CAS ; Prizm ; 84+CSE
Sorry if I answer with something that seems unrelated, English is not my primary language and I might not have understood well. Sorry if I make English mistakes too.

click here to know where you got your last +1s

Offline TexasInstruments84

  • LV2 Member (Next: 40)
  • **
  • Posts: 24
  • Rating: +0/-0
    • View Profile
Re: TI-84+ SE Menu
« Reply #29 on: November 25, 2012, 05:13:08 pm »
When I try to execute the program, it either says "error: archived", or "error: syntax" if it's in RAM. How do I properly execute it?

A little off-topic, but what font are you using?
Logged
Pages: 1 [2] 3   Go Up
« previous next »