A83: Re: Storing to strings


[Prev][Next][Index][Thread]

A83: Re: Storing to strings




Dammit Ian...you're brilliant.  The two things I really need, you've told
us all.  :)

OK, now try this one...don't suppose you know anything about using the
lists and matrices on the TI do you?  As in [A], [B], and L1, L2 etc.  I've
asked this question God knows how many times...:)

Thanks again for the strings stuff,

James.

____________________

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
____________________________________

----------
> From: Ian Graf <ian_graf@geocities.com>
> To: assembly-83@lists.ticalc.org
> Subject: A83: Storing to strings
> Date: Friday, May 22, 1998 11:54 AM
> 
> 
> guess what!
> 
> i also have a program that i made that will store to strings. it works
> _just_ like the create program one. all you have to change is that you
> copy
> the data out of the string and into the program. (hint hint use ldir)
> also note that the first two bytes of a string are the length
> 
> if you have any other questions, or any major struggles, e mail me and i
> could
> make the program for you
> 
> 
> .NOLIST
> #define equ .equ
> #define EQU .equ
> #define end .end
> #include "ti83asm.inc"
> #include "tokens.inc"
> .LIST
> 
> _createstrng .equ 4472h
> STRNGOBJ .equ 04h
> 
> .org 9327h
> 
>      call _zerooop1     ; load var name
>      ld hl,strngname    ;
>      ld de,op1          ;
>      ld bc,3            ;
>      ldir               ;
>      call _chkfindsym   ; look it up
>      call nc,_delvar    ; if it is there delete it
>      ld hl,13           ; length of string
>      call _createstrng  ; create it
>      inc de             ; skip 1st length byte
>      inc de             ; skip 2nd length byte
>      ld hl,strng        ; string data
>      ld bc,13           ; string size
>      ldir               ; copy data
>      ret
> 
> strngname:
> 
>      .db STRNGOBJ,TVARSTRNG,TSTR1  ; object type strng, var type strng,
> var Str1
> 
> strng:
> 
>      .db "IAN",tSpace,"IS",tSpace,"A",tSpace,"PIMP"  ; IAN IS A PIMP
> 
> .end
> END