call an Application in basic
» > >
»
» View previous topic :: View next topic  
Hello,
I have made an application in z80, and i am searching about how i can launch this application from TI-basic and send 2 parameters/variables to this application.
I have heard about "parser hook", but i want to be able to use symbolic in my ti-basic application so i don't want to delete symbolic's parser hook ..

What is the simplest way to do that ?

Sorry for my english, i'm french, if you don't understand something, ask me...

Thanks,
Pierre.
Welcome to Cemetech, Pierre, hope you enjoy your stay. That's pretty easy, all you need is a z80 ASM program that you call from your TI-BASIC program that will launch the app. You can store the parameters that you want to pass to the application in two variables, such as A and B, and just recall those (the routines to do this are pretty simple). Does that make sense? I'll see if I can find some code around my hard drive to do this.
Alternatively, if you only care to support the 84-series, you could use OpenLib/ExecLib, which wouldn't require any additional support code beyond the hook in your app.

Wikiti has docs on that:
http://wikiti.brandonw.net/index.php?title=83Plus:Hooks:9B80
タリ ·· Ask questions the smart way ·· digipres.club
thanks for your really fast answers !
i have a 83 plus calculator so i will use the solution of KermMartian.
Great to hear. Let us know how it turns out, and if you need anymore help with it Smile
Thanks for your help this is the code i have made.


Code:
.module Program
ExecuteApp = 4C51h
Main

      
   ld hl, AppVarMaths      
   bcall(_Mov9toop1)           ;moves the name to OP1
   bcall(_ChkFindSym)           ;see if the var exist
   JP NC,modifierAppVar   ;if exist, modify
   
   JP creerAppVar   ;else create var


launchAPP
   
    ; LAUNCH APPLICATION
   ld hl,appMathsName
   ld de,progToEdit
   ld bc,5
   ldir
   bcall(ExecuteApp)
   ret

modifierAppVar
   
    inc de
    inc de
    ex de, hl
    push hl
    
    bcall(_RclAns)
   ld hl,1                                 ; 1st element
       bcall(_GetLtoOp1)               ; get element
   bcall(_ConvOp1)                 ; put result in de
   
    pop hl
    ld (hl), d
    inc hl
    ld (hl), e
    
    inc hl
    inc hl
    push hl
    
    bcall(_RclAns)
   ld hl,2                                 ; 2nd element
       bcall(_GetLtoOp1)               ; get element
   bcall(_ConvOp1)                 ; put result in de
   
    pop hl    
    
    ld (hl), d
    inc hl
    ld (hl), e
    
   jp launchAPP

creerAppVar
   ld hl,AppVarMaths
   rst rMOV9ToOP1
   ld hl,32
   bcall(_createAppVar)
    jp modifierAppVar

appMathsName
   .db "Maths"
   
   
AppVarMaths
   .db AppVarObj, "MathsVar", 0


.endmodule
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
call an Application in basic
»
» View previous topic :: View next topic  
Page 1 of 1
» All times are UTC - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement