A83: Storing to strings

To: assembly-83@lists.ticalc.org
Subject: A83: Storing to strings
From: Ian Graf <ian_graf@geocities.com>
Date: Thu, 21 May 1998 19:54:14 -0700
Delivered-To: assembly-83-outgoing@towerguard.unix.edu.sollentuna.se
Reply-To: assembly-83@lists.ticalc.org


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