Return to arith.S CVS log

Up to [Research Unix] / researchv9 / jerq / src / lib / j / drek

Annotation of researchv9/jerq/src/lib/j/drek/arith.S, revision 1.1.1.1

1.1       root        1:        .globl  add
                      2: add:
                      3:        addh3   0(%ap),4(%ap),0(%r2)
                      4:        addh3   2(%ap),6(%ap),2(%r2)
                      5:        MOVW    %r2,%r0
                      6:        RET
                      7: 
                      8:        .globl  sub
                      9: sub:
                     10:        SUBH3   4(%ap),0(%ap),0(%r2)
                     11:        SUBH3   6(%ap),2(%ap),2(%r2)
                     12:        MOVW    %r2,%r0
                     13:        RET
                     14: 
                     15:        .globl  inset
                     16: inset:
                     17:        MOVH    10(%ap),%r0
                     18:        ADDH3   0(%ap),%r0,0(%r2)
                     19:        ADDH3   2(%ap),%r0,2(%r2)
                     20:        SUBH3   %r0,4(%ap),4(%r2)
                     21:        SUBH3   %r0,6(%ap),6(%r2)
                     22:        MOVW    %r2,%r0
                     23:        RET
                     24: 
                     25:        .globl  div
                     26: div:
                     27:        MOVH    6(%ap),%r1
                     28:        MOVH    0(%ap),%r0
                     29:        DIVH2   %r1,%r0
                     30:        MOVH    %r0,0(%r2)
                     31:        MOVH    2(%ap),%r0
                     32:        DIVH2   %r1,%r0
                     33:        MOVH    %r0,2(%r2)
                     34:        MOVW    %r2,%r0
                     35:        RET
                     36: 
                     37:        .globl  mul
                     38: mul:
                     39:        MOVH    6(%ap),%r1
                     40:        MOVH    0(%ap),%r0
                     41:        MULH2   %r1,%r0
                     42:        MOVH    %r0,0(%r2)
                     43:        MOVH    2(%ap),%r0
                     44:        MULH2   %r1,%r0
                     45:        MOVH    %r0,2(%r2)
                     46:        MOVW    %r2,%r0
                     47:        RET
                     48: 
                     49:        .globl  rsubp
                     50: rsubp:
                     51:        SUBH3   8(%ap),0(%ap),0(%r2)
                     52:        SUBH3   10(%ap),2(%ap),2(%r2)
                     53:        SUBH3   8(%ap),4(%ap),4(%r2)
                     54:        SUBH3   10(%ap),6(%ap),6(%r2)
                     55:        MOVW    %r2,%r0
                     56:        RET
                     57: 
                     58:        .globl  raddp
                     59: raddp:
                     60:        ADDH3   0(%ap),8(%ap),0(%r2)
                     61:        ADDH3   2(%ap),10(%ap),2(%r2)
                     62:        ADDH3   4(%ap),8(%ap),4(%r2)
                     63:        ADDH3   6(%ap),10(%ap),6(%r2)
                     64:        MOVW    %r2,%r0
                     65:        RET
                     66: 
                     67:        .globl  eqpt
                     68: eqpt:
                     69:        CLRW    %r0
                     70:        CMPW    0(%ap),4(%ap)
                     71:        BNEB    nteqpt
                     72:        INCW    %r0
                     73: nteqpt:        RET
                     74: 
                     75:        .globl  eqrect
                     76: eqrect:
                     77:        CLRW    %r0
                     78:        CMPW    0(%ap),8(%ap)
                     79:        BNEB    neqrct
                     80:        CMPW    4(%ap),12(%ap)
                     81:        BNEB    neqrct
                     82:        INCW    %r0
                     83: neqrct:        RET

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