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     ! 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.