Re: Comet32.444 discrepancy


[ Follow Ups ] [ Post Followup ] [ Signature.net Forum ]

Posted by Jim Guerber on July 19, 2011 at 08:17:06:

In Reply to: Re: Comet32.444 discrepancy posted by Grant Foraker on July 19, 2011 at 06:49:28:

OK, So, I put your code into a test program and got a strange result under comet16 (and compiled with c16 running on c32).

the statement

XACC000F = XACC000F + XACCNUM1

results in 0. If I compile in c32, I get 700.

Cut and paste the following code and explain what I did wrong?? I dont see the problem and we will not change comet16 to "fix" this.


length 3.0 & local work
LENGTH 254 & LOCAL STRACC$ begin$
LENGTH 16.0 & LOCAL XACC000F
LENGTH 16.8 & LOCAL XACCNUM0
LOCAL XACCNUM1
clear
print(et)

begin$ = '700'

LET WORK = NUM(BEGIN$,ERR)
IF ERR NE 0 GOTO excp
LET BEGIN$ = STR(WORK)
print begin$
wait


begin$ = '700'
1025
XACCNUM0 = NUM(BEGIN$,ERR)
print xaccnum0;'xaccnum0'
XACC000F = INT(XACCNUM0) * 100000000
print XACC000F;'XACC000F'
XACCNUM1 = XACCNUM0 * 100000000
print XACCNUM1;'XACCNUM1'
XACC000F = XACC000F + XACCNUM1
print XACC000F;'XACC000F'
XACC000F = XACC000F * .00000001
print XACC000F;'XACC000F'
WORK = XACC000F
XACC000F = ERR
XACC000F = (XACC000F - 1)
IF XACC000F NE 0 GOTO 1030
print 'error' & goto done
1030
STRACC$ = STR(WORK)
BEGIN$ = STRACC$
1035
PRINT begin$;work


done:
print 'done'
wait
stop

excp:
print 'got excp';excp
wait
stop



Follow Ups:



Post a Followup

Name:
E-Mail:

Subject:

What is the name of the main Signature System's Product?  

Comments:

Optional Link URL:
Link Title:
Optional Image URL:

You may attach up to 5 files to your followup (see below):





Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.


[ Follow Ups ] [ Post Followup ] [ Signature.net Forum ]