Re: A86: Re: sqrtKEY-FORM!! sqrtFORM!
[Prev][Next][Index][Thread]
Re: A86: Re: sqrtKEY-FORM!! sqrtFORM!
all this does is hide the answer from being displayed.
when exactly is this called?
whenever enter is pressed on the home screen?
and could you please post david's original because it
is NOT on ticalc.org
--- Joshua J Seagoe <rabidcow@juno.com> wrote:
>
> 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.
> #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
__________________________________________________
Do You Yahoo!?
Bid and sell for free at http://auctions.yahoo.com