this?

I would love a version of this that loops forever.

While doing some research for WikiTI I have found this: http://frank_y.scripts.mit.edu/pages/z80qsort/

Here is the code for quicksort:
;
; >>> Quicksort routine v1.1 <<<
; by Frank Yaul 7/14/04
;
; Usage: bc->first, de->last,
;        call qsort
; Destroys: abcdefhl
;
qsort:  ld      hl,0
        push    hl
qsloop: ld      h,b
        ld      l,c
        or      a
        sbc     hl,de
        jp      c,next1 ;loop until lo<hi
        pop     bc
        ld      a,b
        or      c
        ret     z       ;bottom of stack
        pop     de
        jp      qsloop
next1:  push    de      ;save hi,lo
        push    bc
        ld      a,(bc)  ;pivot
        ld      h,a
        dec     bc
        inc     de
fleft:  inc     bc      ;do i++ while cur<piv
        ld      a,(bc)
        cp      h
        jp      c,fleft
fright: dec     de      ;do i-- while cur>piv
        ld      a,(de)
        ld      l,a
        ld      a,h
        cp      l
        jp      c,fright
        push    hl      ;save pivot
        ld      h,d     ;exit if lo>hi
        ld      l,e
        or      a
        sbc     hl,bc
        jp      c,next2
        ld      a,(bc)  ;swap (bc),(de)
        ld      h,a
        ld      a,(de)
        ld      (bc),a
        ld      a,h
        ld      (de),a
        pop     hl      ;restore pivot
        jp      fleft
next2:  pop     hl      ;restore pivot
        pop     hl      ;pop lo
        push    bc      ;stack=left-hi
        ld      b,h
        ld      c,l     ;bc=lo,de=right
        jp      qsloop
;
; >>> end Quicksort <<<
;

I hope some z80 junkies enjoy. And discuss.

Yes, we have memes on TV in Europe. Unfortunately... And all from one single tv show. Only SIC to repeat that tv show that comes from a weird Asiatic idea. Ok, funny at first and up to ~10 shows but becomes stupid after repeating and exhausted repetition.
Enough complaining.

Can you hear this... uh... thing until the end?

Starting by this one:


EDIT:
This one actually brings some good happy times to many people:


EDIT2: these ones are more audible relatively to my culture, Brazilian songs, and yes, turned into memes

Finally found them. I don't know why my 2 first searches were not productive. I searched for mere (I like the word) curiosity and maybe a lot time later see them.
These are some links for ARM assembly programming tutorials, books and instruction set.

Tutorials:
http://www.heyrick.co.uk/assembler/
http://www.armtutorial.com/
(note these tutorials do not seem for beginners in assembly, I read a bit to verify)

Books:
http://www.arm.com/support/resources/arm-books/index.php
http://www.freetechbooks.com/arm-assembly-language-programming-t729.html

Instruction set:
http://wiki.4hv.org/index.php/Instruction_set:_ARM
http://infocenter.arm.com/help/topic/com.arm.doc.qrc0001l/QRC0001_UAL.pdf

Nspire related links:
http://hackspire.unsads.com/
http://hackspire.unsads.com/wiki/index.php/Hardware

Some other tips:
      DIY: Compile some piece of C-Code and analyze the disassembly.
      Game Boy Advance (and possibly Nintendo DS) Homebrew web-sites have lots of material.
      Acorn Archimedes Nostalgia Web-sites often have nice assembler code-snippets.
      see http://www.pocketmatrix.com/ for assembly gems

This is an experiment I am doing mostly for my fun. It is intended only for SE calculators because of speed. It has some flicker but for Pure TI-BASIC is actually cool.
This will give use to my recent utility of hidden tokens, too.

The base code of is:
:While 1
:Dispgraph
:Disp
:End
This should enlighten who knows pretty well TI-BASIC. (at least I instantly knew how to make this code work) See the demo code for further understanding of the technique.

I already have a demo and screenie for the more skeptic.
But I need a idea for the game. It has to be with ASCII graphics, simple, a bit slow paced but fun. (if possible addictive too)
EDIT: puzzle or board games genres is the way to go.

Due to the discussion and recent add of other languages sub-forum in Omnimaga, I finally started to learn some French and German.

I want to discuss about how some of you learn a new language alone and useful resources for it.

Things that come right now in my mind:
tutorials for that languages (websites any?)
Dictionary
spell checker (might be a bad habit to use early or maybe only if you use the suggestions without trying to correct yourself first, making errors and correcting them is actually a good thing for learning)
translator (http://translate.google.com/)
books for beginners (don't forget the ebooks)
software for pronunciation (http://translate.google.com/)
games (suggestions: Pokemon Blue/Red)

Playing a game in a foreign language is fun and educational, preferentially RPGs or any game that have a history to learn/search new vocabulary.
I found Pokemon Red/Blue amazingly easy to understand in German, I had 3 years of German, 3 years ago and I remembered already lots of stuff and figured out some new.

SLB, SLB, SLB, SLB, glorioso, SLBêeeé, glorioso, SLB!!! *from heart and using from full lung*

I couldn't resist. I am not from any fan club or "claque" but I this season was a good one. I enjoy following the matches when there is decent and exciting football matches being played and that happened with Benfica, Sporting de Braga and Porto this season. Unfortunately Sporting (Sporting de Braga is a different team of Sporting and was a surprise) is in pretty bad state...
Note: glorioso means glorious and SLB is Sport Lisboa e Benfica.

Now there is the world cup. Let's see how Cristiano Ronaldo gets back its title of best player of the world. ^^ (or not)

Btw, since there is no other portuguese around here (there a good probability of portuguese descent being of Benfica, though) but what teams and sports, you watch games? In europe football is the sport of masses. In US, I know most things from movies and culture.

Coded this morning. Not that useful but just some practise and wanted to do.
This is an assembly version of DelVar ADelVar B(...)DelVar /theta/.

Features for now:
- custom builds
- small, fast and stable
- TI-83+ and some TI-83 compatibility

Suggested uses:
 - include in your custom asm library to TI-BASIC, this is a faster and smaller way to clean up variables after use
 - can be also used in APPS that allocate memory, through bcall(_InsertMem), and in the case it has not enough memory (prompting the user or not is up to you),
try to free enough memory to execute.

Source Code:

Make sure you have a complete ti83plus.inc and ti83.inc. especially the ti83.inc. Check the src folder in the zip file attached.

- Deletes variables real and complex variables from A to Z and Theta
#ifdef TI83
#undefine DELARCVARS ; bcall(_DelVarArc) not documented in TI83
#undefine ZEROANS
#endif

;Delete Real and Complex Vars from A to Z and Theta
deleteAtoZaTheta:
#ifdef ZEROANS
bcall(_OP1Set0) ; This will set OP1 to FP 0 ( .db 0,$80,0,0,0,0,0,0,0)
bcall(_StoAns) ; Ans will be equal 0 (Ans can be a huge list or string and take huge space)
#else
bcall(_ZeroOP1) ; OP1 needs to be zeroed or it will not work for some reason
#endif
call deleteAZ ; (OP1) = RealObj = $00 because OP1 is zeroed
deleteAZcplx:
ld a,CplxObj
ld (OP1+0),a
deleteAZ:
ld a,tA
deleteAZloop:
push af
ld (OP1+1),a
bcall(_FindSym) ; look up
jr c,sdelarcAZ
#ifndef DELARCVARS
#ifndef TI83 ; TI-83 does not have flash
inc b ;\
dec b ; | if b!=0 (it is in flash), then skip
jr nz,sdelarcAZ ;/
#endif
bcall(_DelVar) ; delete variable only if in RAM
#else
bcall(_DelVarArc)
#endif
sdelarcAZ:
pop af
inc a
cp tTheta+1
jr nz,deleteAZloop
ret

;OPTIMIZE TRY: use ld hl,OP1, push and pop hl in deleAZloop
;and other changes but is exactly the same size

deleteAtoZaThetaEnd:

 .echo "code size: ",deleteAtoZaThetaEnd-deleteAtoZaTheta

- Deletes many variables: A-Z and Theta, L1-L6, [A]-[Z], Y1-Y6, X1T-X6T, Y1T-Y6T, r1-r6 and u-w.
- DOES NOT WORK WITH TI-83 besides has some #if's for TI-83 in my attempt to work
;Clean Up Basic Variables
;all numbers A-Z and /theta/, lists L1 to L6, matrices [A]-[J], Ans, graphics functions
;detects real and complex numbers or lists
CleanUpBASICvars:
#ifndef TI83
bcall(_CleanAll) ; delete all temp variables
#endif
#ifdef ZEROANS
bcall(_OP1Set0) ; This will set OP1 to FP 0 ( .db 0,$80,0,0,0,0,0,0,0)
bcall(_StoAns) ; Ans will be equal 0 (Ans can be a huge list or string and take huge space)
#else
bcall(_ZeroOP1) ; OP1 needs to be zeroed or it will not work for some reason
#endif
ld ix,OP1 ; the pointer
ld d,0 ; a flag for activate equ create with 0 bytes (needed to not crash TI-OS)
; it is preserved in deletevars2
ld c,d ; c = RealObj = $00
ld a,tA ; (OP1+0) = $00 = RealObj, already
ld b,tTheta+1
call deletevars2
ld c,CplxObj
ld a,tA
; ld b,tTheta+1 ; it was preserved!
call deletevars2

;these vars have 3 bytes, so a smart solution is coded
inc ix
ld e,d ; e = RealObj = $00
ld c,tVarLst
ld a,tL1
ld b,tL6+1
call deletevars3
ld e,CListObj
; ld c,tVarLst ; it was preserved!
ld a,tL1
; ld b,tL6+1 ; it was preserved!
call deletevars3
ld e,MatObj
ld c,tVarMat
ld a,tMatA
ld b,tMatJ+1
call deletevars3

inc d ; activate bcall(_Create0Equ)
ld e,EquObj
ld c,tVarEqu
ld a,tY1
ld b,tY0+1
call deletevars3
; ld e,EquObj
; ld c,tVarEqu ; it was preserved!
ld a,tX1T ;\tX1T to tX6T
ld b,tY6T+1 ;/tY1T to tY6T
call deletevars2
; ld e,EquObj
; ld c,tVarEqu ; it was preserved!
ld a,tR1
ld b,tR6+1
call deletevars2
; ld e,EquObj
; ld c,tVarEqu ; it was preserved!
ld a,tun
ld b,twn+1
;fall back

deletevars3:
ld (ix-1),e
deletevars2:
ld (ix+0),c
deletevarloop:
push af
push bc
push de ; all preserved
ld (ix+1),a
bcall(_FindSym) ; look up
jr c,sdelarc ; if doesn't exist, then skip
#ifndef DELARCVARS
#ifndef TI83 ; TI-83 does not have flash
inc b ;\
dec b ; | if b!=0 (it is in flash), then skip
jr nz,sdelarc ;/
#endif
bcall(_DelVar) ; delete variable only if in RAM
#else
bcall(_DelVarArc) ; delete variable archived or not
#endif
sdelarc:
pop de
inc d ;\
dec d ; | if d=0, then we don't need to recreate the equation var
jr z,notequvar ;/
bcall(_Create0Equ) ; OP1 destroyed, OP4 has variable name
bcall(_OP4toOP1) ; restore OP1 ^^
notequvar:
pop bc
pop af
inc a
cp b ; b holds the end value
jr nz,deletevarloop ; if we arrived b, then return
ret

; ld hl,OPFomarts
; rst 20h ; rMov9ToOP1 ; OP1 is variable
;OPFomarts:
; .db RealObj,tA,0,0,0,0,0,0,0
; .db CplxObj,tTheta,0,0
; .db RealObj,tVarLst,tL1,0
; .db CListObj,tVarLst,tL6,0
; .db MatObj, tVarMat, tMatA, 0
; .db MatObj, tVarMat, tMatJ, 0
; .db EquObj, tVarEqu, tY1, 0
; tY1 to tY9 and tY0, tX1T to tX6T, tY1T to tY6T, tR1 to tR6, tun, tvn, twn
; if graph equations do not exist, TI-OS will crash
;delete with bcall(_DelVar) and bcall(_Create0Equ)
; NewEquObj, what it does???

;ToDo:
;ClearEntries
;clear GDBs, Pics, Strs
;LRESID
;http://wikiti.brandonw.net/?title=83Plus:BCALLs:5041

cleanupBASICvarsend:

 .echo "code size: ",cleanupBASICvarsend-cleanupBASICvars

EDIT: rewritten post with recent code