Re: A83: Ian...

To: assembly-83@lists.ticalc.org
Subject: Re: A83: Ian...
From: Ian Graf <ian_graf@geocities.com>
Date: Sat, 13 Jun 1998 00:11:27 -0500
Delivered-To: assembly-83-outgoing@towerguard.unix.edu.sollentuna.se
References: <19980612220012.441AA15236@towerguard.unix.edu.sollentuna.se>
Reply-To: assembly-83@lists.ticalc.org


here it is. maybe i will post this under miscelleanous assembly programs
on ticalc.

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

_createprog .equ 448Ah
PROGOBJ .equ 05h

.org 9327h

     call _zerooop1    ; load var name
     ld hl,progname    ;
     ld de,op1         ;
     ld bc,5           ;
     ldir              ;
     call _chkfindsym  ; look it up
     call nc,_delvar   ; if it is there delete it
     ld hl,15          ; length of program
     call _createprog  ; create it
     inc de            ; skip 1st length byte
     inc de            ; skip 2nd length byte
     ld hl,prog        ; program data
     ld bc,15          ; program size
     ldir              ; copy data
     ret

progname:

     .db PROGOBJ,"IAN",0  ; object type prog, name "IAN", 0 terminator

prog:

     .db tDisp,tString,"IAN",tSpace,"IS",tSpace,"A",tSpace,"PIMP"  ;
Disp "IAN IS A PIMP

.end
END

References:

From:

Prev: Re: A83: Lists...floating point.
Next: A83: wish list
Index(es):
- Main
- Thread