A83: please review my code
[Prev][Next][Index][Thread]
A83: please review my code
hi,
can anyone please tell me what's wrong with my following code? it
starts looping and when i press clear the calculator shuts down and
freezes. please email me as soon as possible. thank you.
sincerely,
sumit.
the code is:
.NOLIST
#define equ .equ
#define EQU .equ
#define end .end
#include "ti83asm.inc"
#include "tokens.inc"
.LIST
text_mem = savesscreen
graph_mem = plotsscreen
xcoor = text_mem
ycoor = text_mem + 1
.org 9327h
call _runIndicOff
call _clrLCDFull
call _grbufclr
ld hl,0
ld (xcoor),hl
ld hl,0
ld (ycoor),hl
ld hl,title
ld de,plotsscreen
ld bc,$300
ldir
call _grbufcpy_v
call mainloop
ret
mainloop:
ld a,0ffh
out (1),a
ld a,0fdh
out (1),a
in a,(1)
cp 191
call start
jp nz,mainloop
smallloop:
ld a,0ffh
out (1),a
ld a,0fdh
out (1),a
in a,(1)
cp 191
call quit
jp nz,smallloop
quit:
call _clrLCDFull
ret
start:
call _clrLCDFull
call _grbufclr
SET textinverse,(iy+textflags)
call _homeup
ld hl,bare1
call _puts
RES textinverse,(iy+textflags)
ld hl,0102h
ld (CURROW),hl
ld hl,bare2
call _puts
ld hl,0104h
ld (CURROW),hl
ld hl,bare3
call _puts
ld hl,0106h
ld (CURROW),hl
ld hl,bare4
call _puts
call smallloop
bare1:
.db "Your Choice is:",0
bare2:
.db "1. English Sys",0
bare3:
.db "2. Length/Area",0
bare4:
.db "3. Weight/Cap.",0
title:
.db
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.db
0,0,0,0,0,3,248,0,0,0,0,0,0,0,0,0,0,6,56,0,0,0,0,0,0,0,0,0,0,8,240
.db
124,32,9,223,140,1,207,31,8,0,17,240,194,51,181,51,147,130,81,48,140,224,17,1,185,44,150,83,22,66,209
.db
110,75,32,16,249,41,32,138,81,144,66,145,74,72,32,16,9,57,72,140,149,145,132,145,78,82,32,8,13,3,84
.db
134,151,38,152,145,64,213,32,4,60,134,51,3,16,186,145,31,33,140,192,3,240,124,1,1,31,139,143,14,31,0
.db
64,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.db
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.db
0,0,0,0,240,240,0,0,0,0,0,0,0,0,0,1,141,8,0,0,0,0,0,0,0,0,0,1,101,196,0
.db
0,0,0,0,0,0,0,0,1,100,196,0,0,0,0,0,0,0,0,0,1,105,12,0,0,0,0,0,0,0,0
.db
0,3,244,226,0,0,0,0,0,0,0,0,0,2,100,226,0,0,0,0,0,0,0,0,0,2,5,2,0,0,0
.db
0,0,0,0,0,0,1,13,6,0,0,0,0,0,0,0,0,0,0,241,248,0,0,0,0,0,0,0,0,0,0
.db
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.db
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,12,0,0,0,0,0,0,0,0,0,0,0,16,0
.db
0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0,0,0,0,32,0,0,0,0,0,0,0,0
.db
0,0,0,62,64,0,0,0,0,0,0,0,0,0,0,39,64,0,0,0,0,0,0,0,0,0,0,69,64,0,0
.db
0,0,0,0,0,0,0,0,73,128,0,0,0,0,0,0,0,0,0,0,113,128,0,0,0,0,0,0,0,0,0
.db
0,1,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,12,0,0,0,0,0
.db
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.db
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,63,0,0,0,0,0,0,0,0,0,0,0
.db
65,0,0,0,0,240,0,0,0,0,0,0,73,124,131,14,1,136,3,111,140,243,0,0,71,197,125,241,1,39,255
.db
179,243,13,128,0,97,22,76,129,1,102,18,210,99,4,128,0,113,150,12,231,1,70,82,208,233,36,128,0,220,150
.db
4,164,3,2,81,144,225,4,128,0,128,132,246,164,2,114,82,146,205,44,128,0,73,132,246,164,2,82,18,146,77
.db
164,128,0,62,127,159,188,3,223,255,255,255,255,128,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.db
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
.end
END
_________________________________________________________
DO YOU YAHOO!?
Get your free @yahoo.com address at http://mail.yahoo.com