A83: Lists...floating point.

To: "Assembly 83 List" <assembly-83@lists.ticalc.org>
Subject: A83: Lists...floating point.
From: "James Matthews" <matthews@tkb.att.ne.jp>
Date: Fri, 12 Jun 1998 19:03:22 +0900
Delivered-To: assembly-83-outgoing@towerguard.unix.edu.sollentuna.se
Reply-To: assembly-83@lists.ticalc.org


Here's a program that stores a floating point number (or integer) to the
first element in list James.  Again, its just about Ian's program with a
tiny modification...this is what I used in my tutorials, and since Ian said
he didn't know about floating points, well, here it is!

zlist.z80:

.NOLIST
#define equ .equ
#define EQU .equ
#define end .end
#include "ti83asm.inc"
#include "tokens.inc"
.LIST

_errundefined .equ 467Bh

.org 9327h

     call _zerooop1         ; clear op1
     ld hl,listname         ; where to copy name from
     ld de,op1              ; where to copy name to
     ld bc,8                ; length of name
     ldir                   ; all set, copy it
     call _chkfindsym       ; look up list
     jp c,_errundefined     ; error if not found
     push de                ; save de
     call _rclX             ; Recall from user variable X.
     pop de                 ; restore de
     ld hl,1                ; # of element to get (1-999)
     call _puttol           ; store it
     ret

listname:

     .db $01,$5D,"JAMES"    ; the user list IAN

.end
END

Hope that helps...

James.

Prev: A83: $AA...sorry, kinda obvious ;)
Next: Re: A83: $AA...sorry, kinda obvious ;)
Index(es):
- Main
- Thread