Return to Acvlf.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / sys / tahoe

Annotation of cci/sys/tahoe/Acvlf.c, revision 1.1

1.1     ! root        1: #include "../machine/alignment.h"
        !             2: cvlf(infop)    process_info *infop;
        !             3: /*
        !             4: /*     Convert integer to float (into accumulator).
        !             5: /*
        !             6: /******************************************************/
        !             7: {
        !             8:        register        long    Register_12;    /* Has to be first reg ! */
        !             9:        register        long    Register_11;
        !            10:        register        float   *Register_10;
        !            11:        /*
        !            12:        register        long    Register_9;
        !            13:        register        long    Register_8;
        !            14:        */
        !            15:        register struct oprnd *oppnt;
        !            16: 
        !            17:        Register_11 = operand(infop,0)->data;
        !            18:        Register_10 = (float *) &acc_high;
        !            19:        Register_12 = psl;
        !            20:        Set_psl (r12);  
        !            21:        asm ("  cvlf    r11");          /* Don't change the order !! */
        !            22:        asm ("  movpsl  r12");
        !            23:        asm ("  stf     (r10)");
        !            24:        New_cc ( Register_12 );
        !            25: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.