![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to kerPPC.s CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / pari / src / kernel / ppc|
Return to kerPPC.s CVS log | Up to [local] / OpenXM_contrib / pari / src / kernel / ppc |
1.1 ! maekawa 1: ; $Id: kerPPC.s,v 1.1.1.1 1999/09/16 13:47:57 karim Exp $
! 2: import hiremainder,overflow
! 3:
! 4: toc
! 5: tc hiremainder[TC], hiremainder
! 6: tc overflow[TC], overflow
! 7:
! 8: export addll[DS],.addll[PR],addllx[DS],.addllx[PR]
! 9: export subll[DS],.subll[PR],subllx[DS],.subllx[PR]
! 10: export mulll[DS],.mulll[PR],addmul[DS],.addmul[PR]
! 11: export divll[DS],.divll[PR],bfffo[DS],.bfffo[PR]
! 12:
! 13: toc
! 14: tc addll[TC], addll[DS]
! 15: tc addllx[TC], addllx[DS]
! 16: tc subll[TC], subll[DS]
! 17: tc subllx[TC], subllx[DS]
! 18: tc mulll[TC], mulll[DS]
! 19: tc addmul[TC], addmul[DS]
! 20: tc divll[TC], divll[DS]
! 21: tc bfffo[TC], bfffo[DS]
! 22:
! 23: csect addll[DS]
! 24: dc.l .addll[PR]
! 25: dc.l TOC[tc0]
! 26: dc.l 0
! 27:
! 28: csect .addll[PR]
! 29: addc r3,r3,r4
! 30: subfe r5,r5,r5
! 31: addi r5,r5,1
! 32: lwz r6,overflow{TC}(RTOC)
! 33: stw r5,0x0000(r6)
! 34: blr
! 35:
! 36: csect addllx[DS]
! 37: dc.l .addllx[PR]
! 38: dc.l TOC[tc0]
! 39: dc.l 0
! 40:
! 41: csect .addllx[PR]
! 42: addc r3,r3,r4
! 43: subfe r5,r5,r5
! 44: lwz r6,overflow{TC}(RTOC)
! 45: lwz r7,0x0000(r6)
! 46: addc r3,r7,r3
! 47: subfe r8,r8,r8
! 48: addc r5,r8,r5
! 49: addi r5,r5,2
! 50: stw r5,0x0000(r6)
! 51: blr
! 52:
! 53: csect subll[DS]
! 54: dc.l .subll[PR]
! 55: dc.l TOC[tc0]
! 56: dc.l 0
! 57:
! 58: csect .subll[PR]
! 59: subfc r3,r4,r3
! 60: subfe r5,r5,r5
! 61: neg r5,r5
! 62: lwz r6,overflow{TC}(RTOC)
! 63: stw r5,0x0000(r6)
! 64: blr
! 65:
! 66: csect subllx[DS]
! 67: dc.l .subllx[PR]
! 68: dc.l TOC[tc0]
! 69: dc.l 0
! 70:
! 71: csect .subllx[PR]
! 72: subfc r3,r4,r3
! 73: subfe r5,r5,r5
! 74: lwz r6,overflow{TC}(RTOC)
! 75: lwz r7,0x0000(r6)
! 76: subfc r3,r7,r3
! 77: subfe r8,r8,r8
! 78: addc r5,r8,r5
! 79: neg r5,r5
! 80: stw r5,0x0000(r6)
! 81: blr
! 82:
! 83: csect mulll[DS]
! 84: dc.l .mulll[PR]
! 85: dc.l TOC[tc0]
! 86: dc.l 0
! 87:
! 88: csect .mulll[PR]
! 89:
! 90: ; version PowerPC, plus lente
! 91: ; mulhwu r5,r3,r4
! 92: ; lwz r6,hiremainder{TC}(RTOC)
! 93: ; stw r5,0x0000(r6)
! 94: ; mullw r3,r3,r4
! 95: ; blr
! 96: ; version POWER
! 97: lwz r6,hiremainder{TC}(RTOC)
! 98: dialect POWER
! 99: mul r5,r3,r4
! 100: dialect POWERPC
! 101: cmpwi r3,0
! 102: bge @1
! 103: add r5,r5,r4
! 104: @1 cmpwi r4,0
! 105: bge @2
! 106: add r5,r5,r3
! 107: @2 stw r5,0x0000(r6)
! 108: mfspr r3,mq
! 109: blr
! 110:
! 111: csect addmul[DS]
! 112: dc.l .addmul[PR]
! 113: dc.l TOC[tc0]
! 114: dc.l 0
! 115:
! 116: csect .addmul[PR]
! 117: ; version PowerPC, plus lente
! 118: ; mulhwu r5,r3,r4
! 119: ; mullw r3,r3,r4
! 120: ; lwz r6,hiremainder{TC}(RTOC)
! 121: ; lwz r7,0x0000(r6)
! 122: ; addc r3,r7,r3
! 123: ; addze r5,r5
! 124: ; stw r5,0x0000(r6)
! 125: ; blr
! 126: ; version POWER
! 127: lwz r6,hiremainder{TC}(RTOC)
! 128: dialect POWER
! 129: mul r5,r3,r4
! 130: dialect POWERPC
! 131: cmpwi r3,0
! 132: bge @1
! 133: add r5,r5,r4
! 134: @1 cmpwi r4,0
! 135: bge @2
! 136: add r5,r5,r3
! 137: @2 lwz r7,0x0000(r6)
! 138: mfspr r3,mq
! 139: addc r3,r7,r3
! 140: addze r5,r5
! 141: stw r5,0x0000(r6)
! 142: blr
! 143:
! 144: csect divll[DS]
! 145: dc.l .divll[PR]
! 146: dc.l TOC[tc0]
! 147: dc.l 0
! 148:
! 149: csect .divll[PR]
! 150:
! 151: ; version POWER
! 152: ; chargement de a puis a1 dans r5, b puis b1 dans r3 et c puis c1 dans r4
! 153: lwz r6,hiremainder{TC}(RTOC)
! 154: lwz r5,0x0000(r6)
! 155:
! 156: ; etape 1, f est code dans cr5, eb dans r7 et ec dans cr6
! 157: ; si f = 1, on garde une copie de c dans r10
! 158: cmpwi 5,r4,0
! 159: bge 5,@1
! 160: andi. r7,r4,1
! 161: mcrf 6,0
! 162: mr r10,r4
! 163: srwi r4,r4,1
! 164: andi. r7,r3,1
! 165: srwi r3,r3,1
! 166: rlwimi r3,r5,31,0,0
! 167: srwi r5,r5,1
! 168:
! 169: ; modif
! 170: cmplw r5,r4
! 171: bne @1
! 172: slwi r3,r3,1
! 173: add r3,r3,r7
! 174: addc r4,r3,r10
! 175: subfe. r5,r5,r5
! 176: li r3,-1
! 177: beq @5
! 178: subi r3,r3,1
! 179: add r4,r10,r4
! 180: b @5
! 181:
! 182: ; etape 2 r3 recoit q et mq recoit r
! 183: @1 add r8,r5,r5
! 184: addi r8,r8,1
! 185: cmplw r4,r8
! 186: bgt @2
! 187: bne @3
! 188: cmpwi r3,0
! 189: bge @2
! 190: @3 slwi r9,r4,31
! 191: srwi r8,r4,1
! 192: subfc r3,r9,r3
! 193: subfe r5,r8,r5
! 194: mtspr mq,r3
! 195: dialect POWER
! 196: div r3,r5,r4
! 197: dialect POWERPC
! 198: mfspr r4,mq
! 199: oris r3,r3,0x8000
! 200: b @4
! 201: @2 mtspr mq,r3
! 202: dialect POWER
! 203: div r3,r5,r4
! 204: dialect POWERPC
! 205: mfspr r4,mq
! 206:
! 207: ; etape 3 r4 recoit r
! 208: @4 bge 5,@5
! 209: slwi r4,r4,1
! 210: add r4,r4,r7
! 211: beq 6,@5
! 212:
! 213: ; etape 4 modifiee
! 214: subfc r4,r3,r4
! 215: subfe. r5,r5,r5
! 216: beq @5
! 217: subi r3,r3,1
! 218: addc r4,r4,r10
! 219: subfe. r5,r5,r5
! 220: beq @5
! 221: subi r3,r3,1
! 222: addc r4,r4,r10
! 223:
! 224: ; retour
! 225: @5 stw r4,0x0000(r6)
! 226: blr
! 227:
! 228: csect bfffo[DS]
! 229: dc.l .bfffo[PR]
! 230: dc.l TOC[tc0]
! 231: dc.l 0
! 232:
! 233: csect .bfffo[PR]
! 234: cntlzw r3,r3
! 235: blr
! 236: