*  EXPTEST --- SEE WHERE DOUBLE FLOATING EXPONENT IS LOCATED
*
*     Eugene Spafford
*     School of Information and Computer Science
*     Georgia Institute of Technology
*     Atlanta, GA 30332
*
*
*  To assemble, load and run this test, copy lines 16 to 31
*  into a file named "exptest.cpl" and remove the "*" from
*  the first column of each line.  Then type (in Primos):
*
*       cpl  exptest
*
*
* /* exptest.cpl --- assemble, load and run the exponent test
*
* pma exptest.pma -l yes -b yes
*
* &data seg
* vload exptest.seg
* load exptest.bin
* library
* map 6
* save
* quit
* &end
*
* seg exptest.seg
*
* &stop
*
*
            SEG
            SUBR     MAIN

            LINK
MAIN        ECB      START
            PROC

START       EQU      *
            DFLD     =2.5D0
            LDLR     PB% + '13
            BNE      HIGH_HALF

            CALL     IOA$
            AP       LOWM,S
            AP       =99,SL
            PRTN

HIGH_HALF   EQU      *
            CALL     IOA$
            AP       HIGHM,S
            AP       =99,SL
            PRTN


LOWM        BCI      'Exponent is in the low half (2nd 16 bits).%.'
HIGHM       BCI      'Exponent is in the high half (1st 16 bits).%.'

            END      MAIN
            SEG
            DYNT     IOA$
            END