Count to 10,000 in ASM

[nxtboy III]

Hi,
I was wondering if somebody could make me a .8xp in ASM that counts to 10,000 and displays the number it is on on the screen. This is so I can test the speed of my calc and compare it to other stuff.

Thanks, and have a nice day,
nxtboy III

[Deep Thought]

Well, you could use this, but how are you planning to test speed with it?

#include    "ti83plus.inc"
#define     progStart   $9D95
.org        progStart-2
.db         $BB,$6D
   bcall(_ClrLCDFull)
   bcall(_HomeUp)
    ld  HL, 0
Loop:
    push    HL
    bcall(_DispHL)
    bcall(_NewLine)
    pop     HL
    inc HL
    ld  DE, 10000
    xor A
    sbc HL, DE
    add HL, DE
    jr  nz, Loop
    ret

Generated by the BBify'r (http://clrhome.org/resources/bbify/)

But it's not very useful at all, since most of the time it takes is to display the number, so it's not much faster than doing it in TI-BASIC (left side is ASM, right side is BASIC):

[nxtboy III]

Is there a way to make it not display a new line each time? Just on the same line?

[Deep Thought]

It would just keep going to the right, and after three numbers you wouldn't be able to see any more.

[nxtboy III]

Oh. Well I was doing this so I could test the speed between my NXT and my calc.

[Yeong]

maybe add extra clrLCDFull somewhere in the loop? even though it will slow things down? or set pencol or whatever it's called?

[nxtboy III]

I made a program for it on my NXT in assembly that counts and displays the number.(It displays the number in the same place the whole time.) It counts to 10,000 in about 4 seconds.

EDIT: i'm sorry. i accidentally hit the modify button instead of quote =/
*shmibs

[Runer112]

Without displaying numbers, an optimized z80 assembly loop structure could count to 10000 in about 1/30th of a second. Although I would not recommend comparing processor/language speed by seeing how fast they can count to 10000, simply because there are multiple variables that will skew the results an extreme amount; display or not, scroll or not, how fast the system text routine is, how the screen is updated, and so on. If you have a project in mind, I would say the best way to compare speed is simply to start coding the project for both platforms and compare simplified, test versions of them.

[nxtboy III]

Are you sure it can count to 10,000 in about 1/30th of a second?
That seems super fast.......
Well, here it is for my NXT:(Sorry it's an avi)

For the calc one:
Could you edit the TI 84 program so it stops when it gets to 10,000?

[Yeong]

you could add this at the end of the loop: If Ans=10000:Stop

[nxtboy III]

Do you think you could add it and compile it to an 8xp for me? I don't know how.

[Yeong]

I don't have the source file XP

[nxtboy III]

Well there's this if this helps:

#include    "ti83plus.inc"
#define     progStart   $9D95
.org        progStart-2
.db         $BB,$6D
   bcall(_ClrLCDFull)
   bcall(_HomeUp)
    ld  HL, 0
Loop:
    push    HL
    bcall(_DispHL)
    bcall(_NewLine)
    pop     HL
    inc HL
    ld  DE, 10000
    xor A
    sbc HL, DE
    add HL, DE
    jr  nz, Loop
    ret

[Yeong]

oh. I thought you were asking about TI-BASIC file
sorry, I don't have a compiler.

[nxtboy III]

What about in BASIC?
Is there another easy way I can compare speed?


EDIT: My NXT counts to 1 million in about 39 seconds in assembly.