![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to texture32.os CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / jerq / src / lib / j|
Return to texture32.os CVS log | Up to [Research Unix] / researchv9 / jerq / src / lib / j |
1.1 ! root 1: .text ! 2: .globl texture32 ! 3: texture32: ! 4: cmph 8(%ap),4(%ap) # width in bits ! 5: BGB dxpos # width positive ?? ! 6: RET # NO!, return ! 7: dxpos: SAVE %r3 # lets save all the registers ! 8: addw2 &8,%sp # local vars ! 9: ! 10: PUSHW 0(%ap) # push pointer to bitmap ! 11: PUSHW 4(%ap) # push rect.origin ! 12: call &2,addr # calculate the address of the point ! 13: MOVW %r0,%r8 # %r8 = addr(bitmap,rect.origin) ! 14: ! 15: movw 0(%ap),%r7 # pointer to bitmap ! 16: llsw3 &2,4(%r7),%r7 # width of bitmap in bytes -> r7 ! 17: ! 18: movw 12(%ap),%r6 # r6 = pointer to texture ! 19: ! 20: subh3 6(%ap),10(%ap),%r4 # dy ! 21: ! 22: andh3 &0x1f,6(%ap),%r0 ! 23: llsw3 &2,%r0,%r3 # bit index into texture = r3 ! 24: ! 25: movh 4(%ap),%r2 # rec.origin.x -> r2 ! 26: lrsw3 %r2,&-1,0(%fp) # generate mask1 -> 0(%fp) ! 27: ! 28: subh3 &1,8(%ap),%r5 ! 29: arsw3 %r5,&0x80000000,4(%fp) # generate mask2 -> 4(%fp) ! 30: ! 31: lrsw3 &5,%r5,%r5 # (x + dx -1) >> WORDSHIFT ! 32: lrsw3 &5,%r2,%r2 # x >> WORDSHIFT ! 33: subw2 %r2,%r5 ! 34: DECW %r5 # inner word count ii ! 35: BGEB notnarrow # if ii == -1 then narrow ! 36: andw2 4(%fp),0(%fp) # narrow, combine both masks here ! 37: mcomw 0(%fp),4(%fp) # mask2 = ~mask1 ! 38: subw2 &4,%r7 # amount to get to next line ! 39: BRB restcode ! 40: notnarrow: ! 41: addw3 &1,%r5,%r0 # offset in words ! 42: llsw3 &2,%r0,%r0 # offset in bytes ! 43: subw2 %r0,%r7 # amount to get to next line ! 44: restcode: ! 45: ALSW3 &2,16(%ap),%r0 # code * 4 -> r0 ! 46: BLB end # bad if code less than 0 ! 47: cmpw %r0,&12 # see if code greater than 3 ! 48: jle *jmptbl(%r0) # jump to correct routine if ok ! 49: end: subw2 &8,%sp ! 50: RESTORE %r3 ! 51: RET ! 52: ! 53: ! 54: .data ! 55: jmptbl: .word FSTORE ! 56: .word FOR ! 57: .word FCLEAR ! 58: .word FXOR ! 59: .text ! 60: FXOR: DECW %r4 # number of lines ! 61: jl end # if neg. then done ! 62: addw3 %r6,%r3,%r2 ! 63: movw 0(%r2),%r2 # bits = map[bitindex] ! 64: addw2 &4,%r3 #bitindex += 1; ! 65: andw2 &0x7f,%r3 # bitindex = ( bitindex + 1) & WORDMASK ! 66: andw3 0(%fp),%r2,%r0 # ! 67: xorw2 %r0,0(%r8) #screenp ^= bits & mask1 ! 68: addw2 &4,%r8 # screenp++ ! 69: movw %r5,%r1 # i = ii ! 70: BLB restloop # if i = -1 then narrow ! 71: BEB mask2ok # if i = 0 then no inner words ! 72: lrsw3 &2,%r1,%r0 # i/4 ! 73: BLEB less4 # less than 4 inner words ! 74: more4: xorw2 %r2,0(%r8) # screenp ^= bits ! 75: xorw2 %r2,4(%r8) # screenp ^= bits ! 76: xorw2 %r2,8(%r8) # screenp ^= bits ! 77: xorw2 %r2,12(%r8) # screenp ^= bits ! 78: addw2 &16,%r8 # screenp += 4 ! 79: DECW %r0 ! 80: BGB more4 # more inner words ! 81: andw2 &3,%r1 # just how many are left ! 82: BLEB mask2ok # no more to do ! 83: less4: xorw2 %r2,0(%r8) # screenp ^= bits ! 84: addw2 &4,%r8 # screenp++ ! 85: DECW %r1 ! 86: BGB less4 # more inner words ! 87: mask2ok: ! 88: andw3 4(%fp),%r2,%r0 ! 89: xorw2 %r0,0(%r8) # screenp ^= (bits & mask2) ! 90: restloop: ! 91: addw2 %r7,%r8 # screenp += width ! 92: BRB FXOR ! 93: ! 94: FCLEAR: mcomw 0(%fp),0(%fp) ! 95: mcomw 4(%fp),4(%fp) ! 96: FCLR: DECW %r4 # number of lines ! 97: jl end # if neg. then done ! 98: addw3 %r6,%r3,%r2 ! 99: mcomw 0(%r2),%r2 # bits = ~map[bitindex] ! 100: addw2 &4,%r3 #bitindex += 1; ! 101: andw2 &0x7f,%r3 # bitindex = ( bitindex + 1) & WORDMASK ! 102: orw3 0(%fp),%r2,%r0 # ! 103: andw2 %r0,0(%r8) #screenp &= bits & mask1 ! 104: addw2 &4,%r8 # screenp++ ! 105: movw %r5,%r1 # i = ii ! 106: BLB restclr # if i = -1 then narrow ! 107: BEB msk2clr # if i = 0 then no inner words ! 108: lrsw3 &2,%r1,%r0 # i/4 ! 109: BLEB less4clr # less than 4 inner words ! 110: Fclr_4: andw2 %r2,0(%r8) # screenp ^= bits ! 111: andw2 %r2,4(%r8) # screenp ^= bits ! 112: andw2 %r2,8(%r8) # screenp ^= bits ! 113: andw2 %r2,12(%r8) # screenp ^= bits ! 114: addw2 &16,%r8 # screenp += 4 ! 115: DECW %r0 ! 116: BGB Fclr_4 # more inner words ! 117: andw2 &3,%r1 # just how many are left ! 118: BLEB msk2clr # no more to do ! 119: less4clr: ! 120: andw2 %r2,0(%r8) # screenp ^= bits ! 121: addw2 &4,%r8 # screenp++ ! 122: DECW %r1 ! 123: BGB less4clr # more inner words ! 124: msk2clr: ! 125: orw3 4(%fp),%r2,%r0 ! 126: andw2 %r0,0(%r8) # screenp ^= (bits & mask2) ! 127: restclr: ! 128: addw2 %r7,%r8 # screenp += width ! 129: BRB FCLR ! 130: ! 131: FOR: DECW %r4 # number of lines ! 132: jl end # if neg. then done ! 133: addw3 %r6,%r3,%r2 ! 134: movw 0(%r2),%r2 # bits = map[bitindex] ! 135: addw2 &4,%r3 #bitindex += 1; ! 136: andw2 &0x7f,%r3 # bitindex = ( bitindex + 1) & WORDMASK ! 137: andw3 0(%fp),%r2,%r0 # ! 138: orw2 %r0,0(%r8) #screenp ^= bits & mask1 ! 139: addw2 &4,%r8 # screenp++ ! 140: movw %r5,%r1 # i = ii ! 141: BLB rest_or # if i = -1 then narrow ! 142: BEB mask2or # if i = 0 then no inner words ! 143: lrsw3 &2,%r1,%r0 # i/4 ! 144: BLEB less4or # less than 4 inner words ! 145: For_4: orw2 %r2,0(%r8) # screenp ^= bits ! 146: orw2 %r2,4(%r8) # screenp ^= bits ! 147: orw2 %r2,8(%r8) # screenp ^= bits ! 148: orw2 %r2,12(%r8) # screenp ^= bits ! 149: addw2 &16,%r8 # screenp += 4 ! 150: DECW %r0 ! 151: BGB For_4 # more inner words ! 152: andw2 &3,%r1 # just how many are left ! 153: BLEB mask2or # no more to do ! 154: less4or: ! 155: orw2 %r2,0(%r8) # screenp ^= bits ! 156: addw2 &4,%r8 # screenp++ ! 157: DECW %r1 ! 158: BGB less4or # more inner words ! 159: mask2or: ! 160: andw3 4(%fp),%r2,%r0 ! 161: orw2 %r0,0(%r8) # screenp ^= (bits & mask2) ! 162: rest_or: ! 163: addw2 %r7,%r8 # screenp += width ! 164: BRB FOR ! 165: ! 166: FSTORE: DECW %r4 # number of lines ! 167: jl end # if neg. then done ! 168: addw3 %r6,%r3,%r2 ! 169: movw 0(%r2),%r2 # bits = map[bitindex] ! 170: addw2 &4,%r3 #bitindex += 1; ! 171: andw2 &0x7f,%r3 # bitindex = ( bitindex + 1) & WORDMASK ! 172: andw3 0(%fp),%r2,%r0 # ! 173: xorw3 0(%r8),%r2,%r0 #screenp = bits & mask1 ! 174: andw2 0(%fp),%r0 ! 175: xorw2 %r0,0(%r8) # ! 176: addw2 &4,%r8 # screenp++ ! 177: movw %r5,%r1 # i = ii ! 178: BLB stoloop # if i = -1 then narrow ! 179: BEB sto2ok # if i = 0 then no inner words ! 180: lrsw3 &2,%r1,%r0 # i/4 ! 181: BLEB st4less # less than 4 inner words ! 182: store4: movw %r2,0(%r8) # screenp = bits ! 183: movw %r2,4(%r8) # screenp = bits ! 184: movw %r2,8(%r8) # screenp = bits ! 185: movw %r2,12(%r8) # screenp = bits ! 186: addw2 &16,%r8 # screenp += 4 ! 187: DECW %r0 ! 188: BGB store4 # more inner words ! 189: andw2 &3,%r1 # just how many are left ! 190: BLEB sto2ok # no more to do ! 191: st4less: ! 192: movw %r2,0(%r8) # screenp ^= bits ! 193: addw2 &4,%r8 # screenp++ ! 194: DECW %r1 ! 195: BGB st4less # more inner words ! 196: sto2ok: ! 197: xorw3 0(%r8),%r2,%r0 #screenp = bits & mask2 ! 198: andw2 4(%fp),%r0 ! 199: xorw2 %r0,0(%r8) # ! 200: stoloop: ! 201: addw2 %r7,%r8 # screenp += width ! 202: BRB FSTORE
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.