[A83] What is wrong with this APP-code
[Prev][Next][Index][Thread]
[A83] What is wrong with this APP-code
#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'
Follow-Ups: