Re: A86: Re: sqrtKEY-FORM!! sqrtFORM!
[Prev][Next][Index][Thread]
Re: A86: Re: sqrtKEY-FORM!! sqrtFORM!
um, ok. this is mine, being not david's.
this was under the name "err", but that's completely unimportant. run
once to install, again to remove. (or delete sqrtFORM from a shell that
lets you do that sort of thing)
if you want david's, i've got that too, but if i have it, it must be
available on ticalc.org or something.
-josh
On Tue, 9 Nov 1999 18:44:57 -0800 (PST) Matt C <snoborder420@yahoo.com>
writes:
>
>could you please post that???
>or email it to me
>snoborder420@yahoo.com
>
#include "asm86.h"
#include "ti86asm.inc"
#include "ti86abs.inc"
#include "ti86ops.inc"
_formreal equ $5191
_pop_fp equ $479f
_stoans equ $4c9f
.org _asm_exec_ram
ld hl,name
rst $20
rst $10
jr c,install
call _delvar
res 1,(iy+$24)
ret
install:
ld hl,myformend-myform
call _CREATEPROG
xor a
ld hl,2
add hl,de
adc a,b
call _SET_ABS_DEST_ADDR
xor a
ld hl,myform-2
call _SET_ABS_SRC_ADDR
ld hl,myformend-myform
call _SET_MM_NUM_BYTES
call _mm_ldir
set 1,(iy+$24)
ret
name: .db $12,$05,$10,"FORM"
.db $8e,$28
myform: call _pop_fp
ld a,(_OP1)
and $1e ;ignore not real/cplx
jr nz,mf0
rst 18h
ld hl,_OP1+3
ld b,7
mf1: ld a,(hl)
or a
jr z,nochange
ld c,a
ld a,r
and $11
xor c
ld (hl),a
nochange:
inc hl
djnz mf1
call _stoans
call _pop_fp
mf0: cp a
ret
myformend:
.end
___________________________________________________________________
Get the Internet just the way you want it.
Free software, free e-mail, and free Internet access for a month!
Try Juno Web: http://dl.www.juno.com/dynoget/tagj.