![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to b7c.t0 CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst|
Return to b7c.t0 CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst |
1.1 ! root 1: .data 0 ! 2: .align 2 ! 3: L20: ! 4: .long 10 ! 5: .data 2 ! 6: .data 1 ! 7: .data 0 ! 8: .data 2 ! 9: .data 1 ! 10: .data 0 ! 11: .data 2 ! 12: .data 1 ! 13: .data 0 ! 14: .data 2 ! 15: .data 1 ! 16: .data 0 ! 17: .globl _MAIN_ ! 18: .comm _a_,40 ! 19: .globl _stat_ ! 20: .globl _gtmean_ ! 21: .globl _getmed_ ! 22: .align 2 ! 23: .stabs "b7c.f",0x64,0,0,0 ! 24: ! 25: .text ! 26: .globl _MAIN_ ! 27: .align 1 ! 28: _MAIN_: ! 29: .word LWM1 ! 30: subl3 $LF1,fp,sp ! 31: jbr L12 ! 32: L13: ! 33: movl $1,r10 ! 34: L17: ! 35: movl r10,v.2-v.1(r11) ! 36: L15: ! 37: pushl $L20 ! 38: callf $8,_stat_ ! 39: incl r10 ! 40: cmpl r10,$30000 ! 41: jleq L17 ! 42: L16: ! 43: movl r10,v.2-v.1(r11) ! 44: L14: ! 45: ret#0 ! 46: L12: ! 47: movl $v.1,r11 ! 48: jbr L13 ! 49: .set LF1,52 ! 50: .set LWM1,0x1C00 ! 51: .text ! 52: .globl _stat_ ! 53: .align 1 ! 54: _stat_: ! 55: .word LWM2 ! 56: subl3 $LF2,fp,sp ! 57: jbr L22 ! 58: L25: ! 59: clrl v.4-v.3(r11) ! 60: movl $1,r10 ! 61: movl *4(r12),-56(fp) ! 62: cmpl r10,-56(fp) ! 63: jgtr L28 ! 64: L29: ! 65: movl r10,v.5-v.3(r11) ! 66: L27: ! 67: addl3 _a_+-4[r10],v.4-v.3(r11),r0 ! 68: movl r0,v.4-v.3(r11) ! 69: incl r10 ! 70: cmpl r10,-56(fp) ! 71: jleq L29 ! 72: L28: ! 73: movl r10,v.5-v.3(r11) ! 74: addl3 $v.4-v.3,r11,r0 ! 75: pushl r0 ! 76: pushl 4(r12) ! 77: callf $12,_gtmean_ ! 78: movl r0,v.6-v.3(r11) ! 79: addl3 $v.4-v.3,r11,r0 ! 80: pushl r0 ! 81: pushl 4(r12) ! 82: callf $12,_getmed_ ! 83: L24: ! 84: L23: ! 85: ret#0 ! 86: L22: ! 87: movl $v.3,r11 ! 88: movl fp,r12 ! 89: jbr L25 ! 90: .set LF2,56 ! 91: .set LWM2,0x1C00 ! 92: .text ! 93: .globl _gtmean_ ! 94: .align 1 ! 95: _gtmean_: ! 96: .word LWM3 ! 97: subl3 $LF3,fp,sp ! 98: jbr L34 ! 99: L36: ! 100: clrl v.8-v.7(r11) ! 101: movl $1,r10 ! 102: movl *4(r12),-64(fp) ! 103: cmpl r10,-64(fp) ! 104: jgtr L40 ! 105: L41: ! 106: movl r10,v.9-v.7(r11) ! 107: L39: ! 108: mull3 r10,_a_+-4[r10],r0 ! 109: addl2 v.8-v.7(r11),r0 ! 110: movl r0,v.8-v.7(r11) ! 111: incl r10 ! 112: cmpl r10,-64(fp) ! 113: jleq L41 ! 114: L40: ! 115: movl r10,v.9-v.7(r11) ! 116: divl3 *8(r12),v.8-v.7(r11),r0 ! 117: movl r0,-60(fp) ! 118: jbr L35 ! 119: L35: ! 120: movl -60(fp),r0 ! 121: ret#1 ! 122: L34: ! 123: movl $v.7,r11 ! 124: movl fp,r12 ! 125: jbr L36 ! 126: .set LF3,64 ! 127: .set LWM3,0x1C00 ! 128: .text ! 129: .globl _getmed_ ! 130: .align 1 ! 131: _getmed_: ! 132: .word LWM4 ! 133: subl3 $LF4,fp,sp ! 134: jbr L46 ! 135: L49: ! 136: clrl v.11-v.10(r11) ! 137: movl $1,r10 ! 138: movl *4(r12),-56(fp) ! 139: cmpl r10,-56(fp) ! 140: jgtr L52 ! 141: L53: ! 142: movl r10,v.12-v.10(r11) ! 143: addl3 _a_+-4[r10],v.11-v.10(r11),r0 ! 144: movl r0,v.11-v.10(r11) ! 145: shar $2,*8(r12),r0 ! 146: cmpl v.11-v.10(r11),r0 ! 147: jleq L57 ! 148: jbr L58 ! 149: L57: ! 150: L51: ! 151: incl r10 ! 152: cmpl r10,-56(fp) ! 153: jleq L53 ! 154: L52: ! 155: movl r10,v.12-v.10(r11) ! 156: L58: ! 157: jbr L48 ! 158: L48: ! 159: L47: ! 160: ret#0 ! 161: L46: ! 162: movl $v.10,r11 ! 163: movl fp,r12 ! 164: jbr L49 ! 165: .set LF4,56 ! 166: .set LWM4,0x1C00 ! 167: .text ! 168: .data 2 ! 169: .align 2 ! 170: v.2: ! 171: .space 4 ! 172: .set v.1,v.2 ! 173: ! 174: .align 2 ! 175: v.4: ! 176: .space 4 ! 177: .align 2 ! 178: v.6: ! 179: .space 4 ! 180: .align 2 ! 181: v.5: ! 182: .space 4 ! 183: .set v.3,v.6 ! 184: ! 185: .align 2 ! 186: v.9: ! 187: .space 4 ! 188: .align 2 ! 189: v.8: ! 190: .space 4 ! 191: .set v.7,v.8 ! 192: ! 193: .align 2 ! 194: v.12: ! 195: .space 4 ! 196: .align 2 ! 197: v.11: ! 198: .space 4 ! 199: .set v.10,v.11 ! 200:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.