Wow, that sounds really neat great story line and plan.  How big is the compiled program so far?

10306 bytes currently

That means it is an Application, right?

aeTIos: That's not the problem, this won't work too, I think:

Start:
  db $ef,$40,$45
  ld b,100
  ld a,0
Loop:
  add a,myNum
  djnz Loop
  ld l,a
  db $21,$01,$00
  db $ef,$07,$45
  B_CALL (_GetKey)  ;ef4972
  ret
myNum:
  db 1

Euh... those links were refered on google, through the epsstore.ti.com site

example in google : site:ti.com "TI-Nspire.tnc"
first result : http://epsstore.ti.com/OA_HTML/csksxvm.jsp?nSetNumber=27570

TI secret links on Google? Weird.

I don't think we could lose anymore activity DJ ha, we're pretty much at the low end of the spectrum already.

But you still have some good projects. Any idea when revsoft.org will be back?

Scout, since you are on Linux, it will be quite easy to get the development version of gimp (I don't think its that unstable).

Thanks for the idea

Quote from: Scout

Quote from: Freyaday on April 11, 2011, 10:38:31 am

What does it mean?

In Z80 Assembly, 'ret' means the end of a program. It closes when reaches a 'ret' instruction.

Still doesn't make sense because it sounds like "Prepare for the return of the world." RET is RETurn, as in returning control to wherever a routine was called. It could be used to quit a program, end a subroutine, or (in hackish code) jump somewhere random. In fact, it's more a data/hardware routine than anything else -- it simply pops the value at the top of the stack into PC. The closest thing to an actual end is the .end command in TASM, which signals the end of the file, but yeah, I keep reading it as "return of the world"

Don't spoil the fun

Ah cool, I like this, Scout. However, TASM can only handle so many extra arguments. For example, if this has three arguments:
 .dw $AA00,$BB00,$CC00
Then I cap it at 24 arguments per .dw, but I think 31 is the max. Also, if you could make a code for .db statements (also only handling 31 arguments), that might be easier for the code, too.

.db's would be much easier:

def hexToDb(hex):
"""Takes a big endian hex string and turns it to little endian"""
splitHex = [hex[x:x+2] for x in xrange(0,len(hex),2)]
finalString = ".db"
counter = 0
for i in range(0,len(splitHex)):
if counter==29:
finalString+=" $"+splitHex[i]+"\n.db"
counter = 0
else:
finalString+=" $"+splitHex[i]+","
counter+=1
return finalString[0:len(finalString)-1]

def main():
print "Choose:\n1. Type hexadecimal code\n2. Open from file"
option = input()
if option==1:
hexCode = raw_input("Type hexadecimal code: ")
g = open('dbCode.txt','w')
g.write(hexToDb(hexCode))
g.close()

else:
fileName = raw_input("Enter name of ASCII file: ")
f = open(fileName,'r')
hexCode = f.read().replace(' ','').replace('\n','').replace('\r','')
f.close()
g = open('dbCode.txt','w')
g.write(hexToDb(hexCode))
g.close()

if __name__=='__main__':
main()
It has the 31 arguments limit now, here's a sample return:

.db $EF, $40, $45, $FD, $CB, $00, $AE, $21, $00, $00, $22, $4B, $84, $21, $AC, $9D, $EF, $0A, $45, $EF, $2E, $45, $C9, $48, $65, $6C, $6C, $6F, $20, $77
.db $6F, $72, $6C, $64, $21, $00, $EF, $40, $45, $FD, $CB, $00, $AE, $21, $00, $00, $22, $4B, $84, $21, $AC, $9D, $EF, $0A, $45, $EF, $2E, $45, $C9
.db $48, $65, $6C, $6C, $6F, $20, $77, $6F, $72, $6C, $64, $21, $00, $EF, $40, $45, $FD, $CB, $00, $AE, $21, $00, $00, $22, $4B, $84, $21, $AC, $9D
.db $EF, $0A, $45, $EF, $2E, $45, $C9, $48, $65, $6C, $6C, $6F, $20, $77, $6F, $72, $6C, $64, $21, $00, $EF, $40, $45, $FD, $CB, $00, $AE, $21, $00
.db $00, $22, $4B, $84, $21, $AC, $9D, $EF, $0A, $45, $EF, $2E, $45, $C9, $48, $65, $6C, $6C, $6F, $20, $77, $6F, $72, $6C, $64, $21, $00, $EF, $40
.db $45, $FD, $CB, $00, $AE, $21, $00, $00, $22, $4B, $84, $21, $AC, $9D, $EF, $0A, $45, $EF, $2E, $45, $C9, $48, $65, $6C, $6C, $6F, $20, $77, $6F
.db $72, $6C, $64, $21, $00, $EF, $40, $45, $FD, $CB, $00, $AE, $21, $00, $00, $22, $4B, $84, $21, $AC, $9D, $EF, $0A, $45, $EF, $2E, $45, $C9, $48
.db $65, $6C, $6C, $6F, $20, $77, $6F, $72, $6C, $64, $21, $00, $EF, $40, $45, $FD, $CB, $00, $AE, $21, $00, $00, $22, $4B, $84, $21, $AC, $9D, $EF
.db $0A, $45, $EF, $2E, $45, $C9, $48, $65, $6C, $6C, $6F, $20, $77, $6F, $72, $6C, $64, $21, $00, $EF, $40, $45, $FD, $CB, $00, $AE, $21, $00, $00
.db $22, $4B, $84, $21, $AC, $9D, $EF, $0A, $45, $EF, $2E, $45, $C9, $48, $65, $6C, $6C, $6F, $20, $77, $6F, $72, $6C, $64, $21, $00, $EF, $40, $45
.db $FD, $CB, $00, $AE, $21, $00, $00, $22, $4B, $84, $21, $AC, $9D, $EF, $0A, $45, $EF, $2E, $45, $C9, $48, $65, $6C, $6C, $6F, $20, $77, $6F, $72
.db $6C, $64, $21, $00, $EF, $40, $45, $FD, $CB, $00, $AE, $21, $00, $00, $22, $4B, $84, $21, $AC, $9D, $EF, $0A, $45, $EF, $2E, $45, $C9, $48, $65
.db $6C, $6C, $6F, $20, $77, $6F, $72, $6C, $64, $21, $00, $EF, $40, $45, $FD, $CB, $00, $AE, $21, $00, $00, $22, $4B, $84, $21, $AC, $9D, $EF, $0A
.db $45, $EF, $2E, $45, $C9, $48, $65, $6C, $6C, $6F, $20, $77, $6F, $72, $6C, $64, $21, $00, $EF, $40, $45, $FD, $CB, $00, $AE, $21, $00, $00, $22
.db $4B, $84, $21, $AC, $9D, $EF, $0A, $45, $EF, $2E, $45, $C9, $48, $65, $6C, $6C, $6F, $20, $77, $6F, $72, $6C, $64, $21, $00, $EF, $40, $45, $FD
.db $CB, $00, $AE, $21, $00, $00, $22, $4B, $84, $21, $AC, $9D, $EF, $0A, $45, $EF, $2E, $45, $C9, $48, $65, $6C, $6C, $6F, $20, $77, $6F, $72, $6C
.db $64, $21, $00

I just tested it and I like the way it works, I have a file with raw hex code (210100EF0745...) and I get what's above just by typing the name of the file. Attached is the .db one.

I had an idea to change in Blockeat, however, unfortunately, I don't really get the code:

0
dim(40
Pause While getKey=9
Fill(0
Text(2,1,SELECT A DIFFICULTY:
Line(1,84,0,9,3
Text(10,0,EASY
Text(16,0,NORMAL
Text(22,0,HARD
0->A->B
While A!=8
Line(0,96,10+B*6,6,2
DispGraph
Line(0,96,10+B*6,6,2
Pause 5
getKey-1->A
A>=9
DS<(2
B
If A=0
+1
If A=3
-1
->B
B/3
Ans->B
End
1200-300*B->H
Fill(0
Text(0,0,LOADING...
DispGraph
Fill(0
95->A
While A
60->B
Line(A-4,3,B-4,3,1
B-5->B
DS<(2
A-5->A
End
6->A
While A
rand*rand
/17
5*1+Ans->C
rand*rand
/9
5*Ans->D
Line(C,5,D,15,1
A-1->A
End
6->A
While A
rand*rand
/15
5*1+Ans->C
rand*rand
/12
5*Ans->D
Line(C,15,D,5,1
A-1->A
End
0->D->G
3->C
While *D!=150
Line(A,5,B,5,0
Line(A+1,3,B,1,1
Line(A,5,B+1,1,1
Line(A+1,3,B+3,1,1
Pxl-On(B+2,A+4*C=2
If C=1
Pxl-On(B+2,A+4
If C=4
Line(A+1,4,B+2,1,1
Pxl-On(B+4,A
Pxl-On(B+4,A+4
DispGraph
Line(A,5,B,5,0
getKey-1->I
If I<4
I+1->C
A
If C=3
+5
If C=2
-5
->E
B
If C=1
+5
If C=4
-5
->F
If E=95
90->E
If E>=96
0->E
If F=60
55->F
If F>=65
0->F
If pxl-Test(F,E+2
A->E B->F
E!=A
If +F!=B
D+pxl-Test(F+2,E+2->D
E->A
F->B
G+1->G
I!=14
*G!=H
End
G->!Ans
D->!A
H->!B
Text(2,1,TIME UP!
Line(1,36,0,9,3
DispGraph
Pause While getKey!=9
Stop
ClrHome
Disp sub("LOSE!WIN! ",5(150=B)+1,5),"STEPS:",Ans,"BLOCKS:",A
Pause
Where is the main game loop? That's where I want to change stuff :S Thanks.