From:	SMTP%"MACRO32%WKUVX1.BITNET@uu7.psi.com" 20-JUL-1993 09:01:25.98
To:	EVERHART
CC:	
Subj:	Re: Carl Lydick and attacks/swearing

X-Listname: "VMS Internals, MACRO, & BLISS Discussions" <MACRO32@WKUVX1.BITNET>
Warnings-To: <>
Errors-To: MacroMan%WKUVX1.BITNET@uu7.psi.com
Sender: MacroMan%WKUVX1.BITNET@uu7.psi.com
X-Newsgroups: vmsnet.internals
From: <sasjzs@falcon.unx.sas.com>
Subject: Re: Carl Lydick and attacks/swearing
Originator: sasjzs@falcon.unx.sas.com
Message-Id: <CA9DqG.Gxv@unx.sas.com>
Date: Fri, 16 Jul 1993 13:06:16 GMT
Reply-To: MACRO32%WKUVX1.BITNET@uu7.psi.com
Nntp-Posting-Host: falcon.unx.sas.com
Organization: Or lack thereof
Lines: 78
To: MACRO32@WKUVX1.BITNET
X-Gateway-Source-Info: USENET


Philisophical quote of the day:

 "Never argue with a fool. Bystanders will have a hard time
  figuring out which one is the fool."

  -author unknown to me, but sounds like something
   Mark Twain should have said!

Philisophical question of the day:

   "Why ask why?"    er, ah, sorry, that's a beer commercial.

   Why is it, when the first sentance of a post says:

   "the subject line says it all"

   there is a paragraph following that says it further?


Obligitory technical information:

Sometimes the FPA on VAX systems has errors that the diagnostics
don't catch. This program has, in the past, found some FPA errors
on VAX systems. This will NOT find all such errors. If the
generated results match the correct answer below, fine. If not,
call your service rep! It doesn't happen often, but hey, this
is just the obligitory technical information!

$ macro 'file'
$ link 'file'
$ run 'file'

;
;   Program to test a Floating Point Accelerator (FPA)
;
;   Correct answer - 0.161394870090E+10
;
.PSECT DATA
FAOI1:  .ASCID / A=!AS /        ; SYS$FAO to format the output
FAOO:   .LONG 79
        .ADDRESS FAOS
FAOS:   .BLKB 79
CVT1:   .LONG 40                ; OTS$CVTxxx to convert dfloat to text
        .ADDRESS CVTS1
CVTS1:  .BLKB 40
A:      .D_FLOATING 1.23456789012E5     ; Starting value
B:      .D_FLOATING 0                   ; temp storage

        .ENTRY TRY,^M<>
        MOVZWL  #1000,R2                ; Repeat 1000 times
        MOVL    #1, R3
        MOVQ    A,R4
1$:     MOVD    #1.05E2,R6
        DIVD3   R6,R4,R6
        BICPSW  #32
        EMODD   R6,#0,#8,R8,R8          ; EMODD does the exercising
        BEQL    3$
        BGTR    2$
        SUBD    #8,R6
2$:     SUBD2   R8,R6
3$:     BISPSW  #32
        ADDD2   R6, R4
        AOBLEQ  R2,R3,1$
        MOVQ    R4,B                    ; Convert dfloat to text
        PUSHL   #12
        PUSHAQ  CVT1
        PUSHAL  B
        CALLS   #03,G^OTS$CNVOUT
        $FAO_S  CTRSTR=FAOI1, OUTLEN=FAOO, OUTBUF=FAOO, P1=#CVT1
        PUSHAL  FAOO                    ; Print it
        CALLS   #01,G^LIB$PUT_OUTPUT
        RET
        .END TRY

Joe Slater
sasjzs@vms.sas.com
Mine opinion is just that.
