Author Topic: scripts and code snippets (Read 10972 times)

necro · « **on:** September 07, 2008, 04:44:32 am »

I thought it might be nice to have a place to put bits of useful code. Make sure to label whether its basic, psuedo code, asm, 68k c, etc. I should have more up soon.

ti-basic:

Code: (Odd or Even) [Select]

(Ans/2)=round((Ans/2),0

DJ Omnimaga · « **Reply #1 on:** September 07, 2008, 02:59:59 pm »

we might want to separate ASM from BASIC/hybrid though, else it will get cluttered fast for people who only need help on one of them and even get confusing since people might forget to specify for which calc and language it is.

I'll go with the simple, old but useful and undocumented tricks for TI-83+ BASIC

Quote

Circle(X,Y,Radius,{i}

adding the {i} as 4th argument to Circle commands makes circles display about 4x faster than normal. No more need for ASM routines to have fast circles ^.^

Quote

Text(-1,X,Y,"ENTER TEXT HERE

adding the -1 argument allows you to display text in bigger fonts on the graph screen (same fonts than on the home screen)

The following code is for both xLIB and Celtic III flash app usage, to detect if they are enabled or not. Put at the start of your BASIC game:

Quote

:1
:real(0
:If not(Ans:Then
:Disp "XLIB NOT ENABLED
:Stop
:End

Tribal · « **Reply #2 on:** September 07, 2008, 09:30:00 pm »

Let's see... I guess I'll put what I remember, I don't feel like rummaging trough my calc for them, I might later

;;TI-BASIC(non-hybrid)

A replacement for randInt((lowerbound), (upperbound)):

Code: [Select]

(lowerbound)+int((upperbound)rand)the only thing about this is if it's zero or below you have to modify upperbound, for example, if you want a 0 to be lowerbound and 1 to be upperbound you would have to do '0+int(2rand)'

If you want to do:

Code: [Select]

62->Ymax
94->Xmax

You could save a few bytes by doing:

Code: [Select]

1->ΔY
1->ΔX

storing a number to a variable without messing up Ans:

Code: [Select]

For((var), (#), 0)
End

;;END IF TI-BASIC(non-hybrid)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;ASM

when reseting the carry flag, use:

Code: [Select]

or Ainstead of:

Code: [Select]

scf
ccf

if you want to multiply the 'a' registry by 2 without effecting the zero flag, use:

Code: [Select]

rlca
;instead of
;add A, A

instead of assigning CurRow and CurCol to different values you could do:

Code: [Select]

ld bc,20*256+34
ld (CurRow), bc ;loads 20 into CurRow and 34 into CurCol

;;END IF ASM

tr1p1ea · « **Reply #3 on:** September 07, 2008, 10:31:09 pm »

rlca doesnt effect the z flag, but it wont always multiply by 2 since it rotates the bits left circularly.

DJ Omnimaga · « **Reply #4 on:** September 07, 2008, 11:29:30 pm »

Quote from: Tribal on September 07, 2008, 09:30:00 pm

If you want to do:
Code: [Select]
62->Ymax 94->XmaxYou could save a few bytes by doing:
Code: [Select]
1->ΔY 1->ΔX

mhmm it doesn't really works, because for me it sets Xmin to -10, Xmax to 84, Ymin to -10 and Ymax to 52

Tribal · « **Reply #5 on:** September 08, 2008, 07:58:43 am »

hm? that's weird... it works for me

EDIT: I think that Xmin and Ymin already have to be set to 0 >.<

DJ Omnimaga · « **Reply #6 on:** September 08, 2008, 02:48:37 pm »

mhmm maybe, I guess I'll try this again. Hopefully if it works I'll be able to save a few more bytes

Tribal · « **Reply #7 on:** September 09, 2008, 04:24:32 pm »

Yeah it does, I tried it right after I posted that, I would have re-edited but I had to go to my next class $:-\$

kalan_vod · « **Reply #8 on:** September 10, 2008, 01:06:21 pm »

Can we just repost the old code?

DJ Omnimaga · « **Reply #9 on:** September 10, 2008, 08:48:48 pm »

which old code? O.o

kalan_vod · « **Reply #10 on:** September 12, 2008, 04:06:35 am »

Just all the old tricks and tips..

DJ Omnimaga · « **Reply #11 on:** September 12, 2008, 04:09:16 am »

oh that, there are no problem, altough some might have been only on the old board, so it might take a while before we can retrieve them

bfr · « **Reply #12 on:** September 28, 2008, 09:51:04 pm »

Smallest possible TI-83+ basic quadratic solver (where the input is all done in the program, as opposed to storing inputs in variables first and then running the program, and the user doesn't have to input obscure things, like C/A into some variable):

Code: [Select]

Prompt Y1,A,C
solve(Y1,X,5
{Ans,C/A/Ans

38 bytes

I got this with the help of a little trick. Note that it can't handle not having two real roots or when the first root found is zero, and your input should look something like:

Quote

Y1=?"X^2+X-6"
A=?1
C=?-6

to solve the equation x^2+x-6=0, for example.

If you want it to work when the first root detected is zero, you can do:

Code: [Select]

Prompt Y1,A,B
solve(Y1,X,5
{Ans,-B/A-Ans

which is 39 bytes

EDIT: I accidentally was including the names of the programs when giving their sizes, so they're actually 33 and 34 bytes

DJ Omnimaga · « **Reply #13 on:** December 08, 2008, 03:54:39 pm »

There is a very unprofessional trick to slow down a loop in TI-BASIC but it takes so few RAM.

Let says you want to have a For loop to slow down a loop where there is an animation. Instead of doing "For(Z,0,99:End" for example, just do "Rand". If you want to slow it down even more use something like "RandRand" or even "RandRandRand". This might not be very accurate and it updates the Ans variable but you save a whole lot of RAM when doing this. You can also do stuff like "cos cos cos 1" on the TI-81,82,85 and 86 or "cos(cos(cos(1" on the TI-73,83 and 84+ but it won't cause as much of a delay as rand and it takes more space since you need to use more sin/cos/tan instructions

simplethinker · « **Reply #14 on:** December 08, 2008, 04:09:42 pm »

[Basic] Here's something for storing very large matrices in programs. If you do something like

Code: [Select]

:[[1,2,3,4,5][1,2,3,4,5],[1,2,3,4,5],....]]→[A]you'll get your matrix stored in [A], as well as in Ans. This means that until your next Ans-altering command the matrix you just stored will be taking double

the amount of RAM used. If your map is large, let's say 10kb, then you will need to have 20kb of free RAM at initialization, severely limiting your options. One way to get around this is something like

Code: [Select]

:{32,32→dim([A]
:For(A,1,32
:For(B,1,32
:Z→[A](A,B
:End:End

but it would be extremely slow.

Solution: Make the columns of the matrix into lists and use List▶matr

Code: [Select]

:List▶matr({1,1,1,...},{2,2,2,...},...,[A])For a 32x32 matrix this takes 1-2 seconds, but it saves you from having to make sure you have double the RAM needed for the matrix and certainly saves a ton of time compared with that little For( loop.

Author Topic: scripts and code snippets (Read 10972 times)

necro

scripts and code snippets

DJ Omnimaga

Re: scripts and code snippets

Tribal

Re: scripts and code snippets

tr1p1ea

Re: scripts and code snippets

DJ Omnimaga

Re: scripts and code snippets

Tribal

Re: scripts and code snippets

DJ Omnimaga

Re: scripts and code snippets

Tribal

Re: scripts and code snippets

kalan_vod

Re: scripts and code snippets

DJ Omnimaga

Re: scripts and code snippets

kalan_vod

Re: scripts and code snippets

DJ Omnimaga

Re: scripts and code snippets

bfr

Re: scripts and code snippets

DJ Omnimaga

Re: scripts and code snippets

simplethinker

Re: scripts and code snippets