A83: More Code...

To: "Assembly 83 List" <assembly-83@lists.ticalc.org>
Subject: A83: More Code...
From: "James Matthews" <matthews@tkb.att.ne.jp>
Date: Tue, 18 Aug 1998 06:31:12 +0900
Delivered-To: assembly-83-outgoing@towerguard.unix.edu.sollentuna.se
Reply-To: assembly-83@lists.ticalc.org


What am I doing wrong?  All I want it to do is run an assembly program
stored in Ans...thanks.

James.

.NOLIST
#define equ .equ
#define EQU .equ
#define end .end
#include "ti83asm.inc"
#include "tokens.inc"
.LIST
_exec_assembly equ 5102h
_FINDSYM equ 442Eh
PROGOBJ equ 05h
strngobj equ 04h
.org 9327h

  call _zerooop1
  ld   a,tAns
  ld   (op1+1),a
  call _findsym
  jr   c,quit
;  call _rclsystok

  and     1fh
  cp      strngobj
  jr      nz,quit

  ld   hl,op1
  ld   (hl),progobj
  inc  h
  ld   a,(de)           ; get size of name
  ld   c,a
  ld   b,0
  inc  de
  inc  de               ; (de) = 1st byte of prog name
  ex   de,hl
  ldir                     ; name to op1
  call _chkfindsym      ; look up

  call _exec_assembly
quit:

  ret
.end
END

____________________

James Matthews.
E-mail (family):    matthews@tkb.att.ne.jp
E-mail (private):  james_matthews@hotmail.com

Homepage:  http://home.att.ne.jp/gold/tomcat21/index.html
ICQ:  7413754
____________________________________

Prev: Re: A83: Re: 83link and James' tutorials
Next: A83: Re: 83link and James' tutorials
Index(es):
- Main
- Thread