[A83] Re: What is wrong with this APP-code

To: assembly-83@lists.ticalc.org
Subject: [A83] Re: What is wrong with this APP-code
From: Peter-Martijn Kuipers <hyper@hbyte.net>
Date: Wed, 8 May 2002 16:40:12 +0200 (CEST)
In-Reply-To: <F2229xDbH8J0sca0Zkf000111bf@hotmail.com>
Reply-To: assembly-83@lists.ticalc.org


For one, you didn't use a correct app header, for two, I don't think you
started at 4000h with your org statement.

check out appguru.

--Peter-Martijn


On Wed, 8 May 2002, Maarten Z. wrote:

>  
> 
> #DEFINE APPNAME "coolcool"
> #DEFINE APPPAGES 1
> #INCLUDE "DWEDIT.INC"
> Prog_Start:
>  xor  a  ;acc to 0
>  bcall(_clrLCDFull)
>  ld   a,16  ;Character set starts at 16.
> New_Screen_Loop:
>  ld   b,7 ;7 lines w/o scrolling possible.
> Inner_Char_Loop:
>  push af  ;Remember A
>   bcall(_putc) ;ASCII character of A.
>   ld h,0
>   ld l,a  ;Load a to l.
>   bcall(_disphl)
>   bcall(_newline)
>  pop  af  ;Recall a.
>   inc  a  ;Increment it.
>   cp 242  ;If its 242 then...
>   jr  z,Exit  ;Exit!
>   djnz Inner_Char_Loop  ;Else, repeat.
>  push af  ;Getkey screws up acc.
>   bcall(_getkey) ;Wait for a key.
>   cp kClear
>   jr z,Quit
>   cp kUp
>   jr z,Go_Up
>  pop  af  ;Recall a, repeat...
> End_Loop:
>  jr New_Screen_Loop  ;...from outer loop
> Exit:
>  bcall(_getkey) ;Wait for a key.
>  bcall(_clrLCDFull)
>  bjump(_JForceCmdNoChar)
> Quit:
>  pop af
>  bcall(_clrLCDFull)
>  bjump(_JForceCmdNoChar)
> Go_Up:
>  pop af
>  sub 14
>  cp 16
>  jp c, Prog_Start
>  jr End_Loop
> .end 
> 
> This code is taken from ASMGuru but adapted to use on an ti83+. The TI83+
> IONversion works fine. But when I change the code too APP, it give the wrong
> output. Can anyone see whats wrong here?
> 
> ---------------------------------------------------------------------
> MaartenZwartbol - Maxcoderz Soft. - http://www.maxcoderz.com[1]
> --------------------------------------------------------------------- "If I
> have seen farther than others, it is because I was standing on the shoulders
> of giants." - scientist Sir Isaac Newton, in a letter to his colleague
> RobertHooke, February 1676. 
> 
> ----------------------------------------------------------------------------
> Chat with friends online, try MSN Messenger: Click Here[2]
> 
> 
> --- Links ---
>    1 http://www.maxcoderz.com
>    2 'http://g.msn.com/1HM100901/154'
>

References:

[A83] What is wrong with this APP-code

From: "Maarten Z." <m021085@hotmail.com>