Return to sparc.s CVS log

Up to [PGP] / pgp / src

Annotation of pgp/src/sparc.s, revision 1.1.1.1

1.1       root        1: !
                      2: ! SPARC assembler primitives for rsalib.c
                      3: ! written by Branko Lankester, [email protected]     8/29/91
                      4: !
                      5: ! other sources must be compiled with UNIT32 and HIGHFIRST defined
                      6: !
                      7:        .seg    "text"
                      8:         .proc   4
                      9:         .global _P_SETP
                     10: _P_SETP:
                     11:        retl
                     12:        nop
                     13: 
                     14: 
                     15:         .proc   4
                     16:         .global _P_ADDC
                     17: _P_ADDC:
                     18:        sethi   %hi(_global_precision), %o3
                     19:        ldsh    [%o3+%lo(_global_precision)], %o3
                     20:        and     %o2, 1, %o2
                     21:        dec     %o3
                     22:        sll     %o3, 2, %o3
                     23:        ld      [%o0+%o3], %o4
                     24: add_loop:
                     25:        ld      [%o1+%o3], %o5
                     26:        subcc   %g0, %o2, %g0
                     27:        addxcc  %o4, %o5, %o4
                     28:        addx    %g0, %g0, %o2
                     29:        st      %o4, [%o0+%o3]
                     30:        subcc   %o3, 4, %o3
                     31:        bge,a   add_loop
                     32:        ld      [%o0+%o3], %o4
                     33:        retl
                     34:        mov     %o2, %o0                ! return carry
                     35: 
                     36: 
                     37:         .proc   4
                     38:         .global _P_SUBB
                     39: _P_SUBB:
                     40:        sethi   %hi(_global_precision), %o3
                     41:        ldsh    [%o3+%lo(_global_precision)], %o3
                     42:        and     %o2, 1, %o2
                     43:        dec     %o3
                     44:        sll     %o3, 2, %o3
                     45:        ld      [%o0+%o3], %o4
                     46: sub_loop:
                     47:        ld      [%o1+%o3], %o5
                     48:        subcc   %g0, %o2, %g0
                     49:        subxcc  %o4, %o5, %o4
                     50:        addx    %g0, %g0, %o2
                     51:        st      %o4, [%o0+%o3]
                     52:        subcc   %o3, 4, %o3
                     53:        bge,a   sub_loop
                     54:        ld      [%o0+%o3], %o4
                     55:        retl
                     56:        mov     %o2, %o0
                     57: 
                     58: 
                     59:         .proc   4
                     60:         .global _P_ROTL
                     61: _P_ROTL:
                     62:        sethi   %hi(_global_precision), %o3
                     63:        ldsh    [%o3+%lo(_global_precision)], %o3
                     64:        and     %o1, 1, %o1
                     65:        dec     %o3
                     66:        sll     %o3, 2, %o3
                     67:        ld      [%o0+%o3], %o4
                     68: rot_loop:
                     69:        sll     %o4, 1, %o5
                     70:        or      %o5, %o1, %o5
                     71:        st      %o5, [%o0+%o3]
                     72:        srl     %o4, 31, %o1
                     73:        subcc   %o3, 4, %o3
                     74:        bge,a   rot_loop
                     75:        ld      [%o0+%o3], %o4
                     76:        retl
                     77:        mov     %o1, %o0
                     78: 
                     79:        .seg    "data"
                     80: 

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