![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to b7c.t2 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.t2 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: .text ! 25: .globl _MAIN_ ! 26: .set LF1,52 ! 27: .set LWM1,0x1C00 ! 28: .align 1 ! 29: _MAIN_:.word LWM1 ! 30: subl3 $LF1,fp,sp ! 31: movl $v.1,r11 ! 32: movl v.2-v.1(r11),r10 ! 33: movl $1,r10 ! 34: L15:pushl $L20 ! 35: callf $8,_stat_ ! 36: aobleq $30000,r10,L15 ! 37: movl r10,v.2-v.1(r11) ! 38: ret#0 ! 39: .globl _stat_ ! 40: .set LF2,56 ! 41: .set LWM2,0x1F00 ! 42: .align 1 ! 43: _stat_:.word LWM2 ! 44: subl3 $LF2,fp,sp ! 45: movl $v.3,r11 ! 46: movl fp,r12 ! 47: clrl v.4-v.3(r11) ! 48: movl *4(r12),-56(fp) ! 49: movl v.4-v.3(r11),r10 ! 50: movl v.5-v.3(r11),r9 ! 51: movl -56(fp),r8 ! 52: movl $1,r9 ! 53: cmpl r9,r8 ! 54: jgtr L28 ! 55: L27:addl2 _a_+-4[r9],r10 ! 56: aobleq r8,r9,L27 ! 57: L28:movl r9,v.5-v.3(r11) ! 58: movl r10,v.4-v.3(r11) ! 59: addl3 $v.4-v.3,r11,-(sp) ! 60: pushl 4(r12) ! 61: callf $12,_gtmean_ ! 62: movl r0,v.6-v.3(r11) ! 63: addl3 $v.4-v.3,r11,-(sp) ! 64: pushl 4(r12) ! 65: callf $12,_getmed_ ! 66: ret#0 ! 67: .globl _gtmean_ ! 68: .set LF3,64 ! 69: .set LWM3,0x1F00 ! 70: .align 1 ! 71: _gtmean_:.word LWM3 ! 72: subl3 $LF3,fp,sp ! 73: movl $v.7,r11 ! 74: movl fp,r12 ! 75: clrl v.8-v.7(r11) ! 76: movl *4(r12),-64(fp) ! 77: movl v.9-v.7(r11),r10 ! 78: movl v.8-v.7(r11),r9 ! 79: movl -64(fp),r8 ! 80: movl $1,r10 ! 81: cmpl r10,r8 ! 82: jgtr L40 ! 83: L39:mull3 r10,_a_+-4[r10],r0 ! 84: addl2 r0,r9 ! 85: aobleq r8,r10,L39 ! 86: L40:movl r9,v.8-v.7(r11) ! 87: movl r10,v.9-v.7(r11) ! 88: divl3 *8(r12),r9,-60(fp) ! 89: movl -60(fp),r0 ! 90: ret#1 ! 91: .globl _getmed_ ! 92: .set LF4,60 ! 93: .set LWM4,0x1F80 ! 94: .align 1 ! 95: _getmed_:.word LWM4 ! 96: subl3 $LF4,fp,sp ! 97: movl $v.10,r11 ! 98: movl fp,r12 ! 99: clrl v.11-v.10(r11) ! 100: movl *4(r12),-56(fp) ! 101: shar $2,*8(r12),-60(fp) ! 102: movl v.11-v.10(r11),r10 ! 103: movl -56(fp),r9 ! 104: movl -60(fp),r8 ! 105: movl v.12-v.10(r11),r7 ! 106: movl $1,r7 ! 107: cmpl r7,r9 ! 108: jgtr L52 ! 109: L53:addl2 _a_+-4[r7],r10 ! 110: cmpl r10,r8 ! 111: jleq L51 ! 112: movl r10,v.11-v.10(r11) ! 113: movl r7,v.12-v.10(r11) ! 114: L47:ret#0 ! 115: L51:aobleq r9,r7,L53 ! 116: L52:movl r7,v.12-v.10(r11) ! 117: movl r10,v.11-v.10(r11) ! 118: jbr L47 ! 119: ! 120: .data 2 ! 121: .align 2 ! 122: v.2: ! 123: .space 4 ! 124: .set v.1,v.2 ! 125: ! 126: .align 2 ! 127: v.4: ! 128: .space 4 ! 129: .align 2 ! 130: v.6: ! 131: .space 4 ! 132: .align 2 ! 133: v.5: ! 134: .space 4 ! 135: .set v.3,v.6 ! 136: ! 137: .align 2 ! 138: v.9: ! 139: .space 4 ! 140: .align 2 ! 141: v.8: ! 142: .space 4 ! 143: .set v.7,v.8 ! 144: ! 145: .align 2 ! 146: v.12: ! 147: .space 4 ! 148: .align 2 ! 149: v.11: ! 150: .space 4 ! 151: .set v.10,v.11 ! 152:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.