I replaced the initial b_call(_chkFindSym( with rst 10h, that seems to have fixed it. I also shaved off a few more bytes with Iambian's help.
Updated source:
Code:
;HomeScreenPictures
nolist
#include "ti83plus.inc"
.list
.org $9D93
.db t2ByteTok, tAsmCmp
b_call(_RclAns) ;gets Ans
rst 10h ;b_call(_FindSym)
ld a,(hl) ;sees if Ans is a string or not, returns if not
and %00011111
cp StrngObj
ret nz
inc de
inc de
ex de,hl
ld de,listData
ld bc,5
ldir ;copies string in Ans to listdata
b_call(_ThetaName) ;theta holds function number
b_call(_RclVarSym) ; 0 = Recall
b_call(_convOP1) ; !0 = Store
or a
jr nz,stoShad
rclShad:
call getOP1
inc de
inc de
ex de,hl
ld de,savesscreen
ld bc,128
ldir
ex de,hl
ld (hl),b
b_call(_homeup)
res AppAutoScroll, (IY + AppFlags)
ld hl,savesscreen
b_call(_puts)
set AppAutoScroll, (IY + AppFlags)
b_call(_homeup)
ret
stoShad:
call getOP1
jr c,createList
b_call(_delVarArc)
createList:
ld hl,listName ;loads the name into OP1
b_call(_Mov9toOP1)
ld hl,14 ;creates a 13-element list, which is 128 bytes + [length of name]
b_call(_createRList)
inc de
inc de
ld hl,textShadow
ld bc,128
ldir
ret
getOP1: ;loads the name into OP1
ld hl,listname ;and calls FindSym
b_call(_Mov9toOP1)
b_call(_FindSym)
ret
listName: .db ListObj,tVarLst
listData: .db 0,0,0,0,0,0
.end
.end
I attached the most recent, non-who-reads-readmes version.
(@DarkerLine: Could you update it? Thanks)
Last edited by Guest on 11 Oct 2007 11:34:21 pm; edited 1 time in total |
Project Releases => Your Projects
