ec1 #include "ti83plus.inc" .org $9d93 .db $bb,$6d
start: bcall(_rclans) ld a,(hl) and $1f cp 4 ret nz ex de,hl inc hl inc hl ld bc,8 ld de,temp_str+1 ldir ld hl,temp_str rst 20h bcall(_chkfindsym) bcallnc(_delvararc) ld hl,800 bcall(_createprotprog) inc de inc de ld hl,code ld bc,32 ldir ld hl,plotsscreen ld bc,768 ldir ret temp_str: .db 6,"TEMPSTR",0 code: .db $bb,$6d
ah, thanks alot man!
EDIT: Is there a way to make it let the user choose a name for the new program, or does it do that already? (i don't know, since i don't have tasm and what not right now.)
It already does, Ans is the string it will use as the name. An Example:
c1-->CODE | ec1 :"PROGNAME":Asm(prgmMEH c2 |
ec2
Then you can run the outputted program with Asm( and it will copy the pic
Pardon the double-post.
Here's a version I've tested, and I KNOW it works.
c1-->CODE | ec1 #include "ti83plus.inc" .org $9d93 .db $bb,$6d
start: bcall(_rclans) ld a,(hl) and $1f cp 4 ret nz ex de,hl ld c,(hl) inc hl ld b,(hl) inc hl ld de,temp_str+1 ldir xor a ld (de),a ld hl,temp_str rst 20h bcall(_chkfindsym) bcallnc(_delvararc) ld hl,800 bcall(_createprotprog) inc de inc de ld hl,code ld bc,32 ldir ld hl,plotsscreen ld bc,768 ldir ret temp_str: .db 6,"TEMPSTR",0,0 code: .db $bb,$6d
Whee! Posting in something whose problem has already been solved. I'm a genious, aren't I? :P
But anyway, I think my fun, earlier project would work too, even if it seems a little bloated: http://www.unitedti.org/index.php?download=212
The ReadME should be helpful. The program has been tested for *some* semblance of reliability.
There was a program that did that on ticalc, not sure exactly the name of it though, let me find the link...
Here: http://www.ticalc.org/archives/files/fileinfo/171/17119.html
|
|