![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to t06.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 t06.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: L74: ! 4: .long 1 ! 5: .align 2 ! 6: L75: ! 7: .long 6 ! 8: .align 2 ! 9: L76: ! 10: .long 0xC5F25000 # .float -1938.5 ! 11: .align 2 ! 12: L77: ! 13: .long 0xC0000000 # .float -.5 ! 14: .align 2 ! 15: L78: ! 16: .long 0xC1D00000 # .float -6.5 ! 17: .align 2 ! 18: L79: ! 19: .long 0x00000000 # .float 0 ! 20: .align 2 ! 21: L80: ! 22: .long 0x3556BF95 # .float 2.e-07 ! 23: .align 2 ! 24: L83: ! 25: .long 2 ! 26: .align 2 ! 27: L85: ! 28: .long 3 ! 29: .align 2 ! 30: L87: ! 31: .long 4 ! 32: .align 2 ! 33: L89: ! 34: .long 0x40C00000, 0x00000000 # .double 1.5 ! 35: .align 2 ! 36: L90: ! 37: .long 0x3B83126E, 0x978D4FDF # .double .001 ! 38: .align 2 ! 39: L93: ! 40: .long 5 ! 41: .align 2 ! 42: L97: ! 43: .long 7 ! 44: .align 2 ! 45: L99: ! 46: .long 8 ! 47: .align 2 ! 48: L101: ! 49: .byte 0145,00 ! 50: .align 2 ! 51: L102: ! 52: .byte 0157,00 ! 53: .align 2 ! 54: L106: ! 55: .long 9 ! 56: .data 2 ! 57: .data 1 ! 58: .data 0 ! 59: .globl _MAIN_ ! 60: .globl _e_ ! 61: .align 2 ! 62: .stabs "t06.f",0x64,0,0,0 ! 63: .text ! 64: .globl _MAIN_ ! 65: .set LF1,72 ! 66: .set LWM1,0x1FC0 ! 67: .align 1 ! 68: _MAIN_:.word LWM1 ! 69: subl3 $LF1,fp,sp ! 70: movl $v.1,r11 ! 71: movl v.2-v.1(r11),r10 ! 72: mnegl $10,r10 ! 73: L15:mull3 r10,r10,v.3-v.1+40(r11)[r10] ! 74: aobleq $10,r10,L15 ! 75: movl r10,v.2-v.1(r11) ! 76: cmpl v.3-v.1(r11),$100 ! 77: jneq L9999 ! 78: cmpl v.3-v.1+76(r11),$81 ! 79: jeql L20 ! 80: L9999:pushl $L75 ! 81: pushl $L74 ! 82: callf $12,_e_ ! 83: L20:movl v.2-v.1(r11),r10 ! 84: movl $1939,r10 ! 85: L21:cvlf r10 ! 86: addf L76 ! 87: stf v.4-v.1+-7756(r11)[r10] ! 88: aobleq $1945,r10,L21 ! 89: movl r10,v.2-v.1(r11) ! 90: ldf v.4-v.1(r11) ! 91: addf L77 ! 92: stf -56(fp) ! 93: ldf v.4-v.1+24(r11) ! 94: addf L78 ! 95: stf -60(fp) ! 96: cmpf2 L79,-56(fp) ! 97: jgtr L9997 ! 98: movl -56(fp),r0 ! 99: jbr L9996 ! 100: L9997:lnf -56(fp) ! 101: stf r0 ! 102: L9996:cmpf2 r0,L80 ! 103: jgtr L9998 ! 104: cmpf2 L79,-60(fp) ! 105: jgtr L9995 ! 106: movl -60(fp),r0 ! 107: jbr L9994 ! 108: L9995:lnf -60(fp) ! 109: stf r0 ! 110: L9994:cmpf2 r0,L80 ! 111: jleq L26 ! 112: L9998:pushl $L75 ! 113: pushl $L83 ! 114: callf $12,_e_ ! 115: L26:movl $1,v.5-v.1+8(r11) ! 116: movl $1,v.5-v.1+4(r11) ! 117: cmpl v.5-v.1+8(r11),$1 ! 118: jeql L27 ! 119: pushl $L75 ! 120: pushl $L85 ! 121: callf $12,_e_ ! 122: L27:clrl v.5-v.1+8(r11) ! 123: clrl v.5-v.1+4(r11) ! 124: tstl v.5-v.1+8(r11) ! 125: jeql L28 ! 126: pushl $L75 ! 127: pushl $L87 ! 128: callf $12,_e_ ! 129: L28:movl L89+4,v.6-v.1+4(r11) ! 130: movl L89,v.6-v.1(r11) ! 131: movl L90+4,v.6-v.1+12(r11) ! 132: movl L90,v.6-v.1+8(r11) ! 133: cmpd2 v.6-v.1(r11),L89 ! 134: jneq L9991 ! 135: cmpd2 v.6-v.1+8(r11),L90 ! 136: jeql L29 ! 137: L9991:pushl $L75 ! 138: pushl $L93 ! 139: callf $12,_e_ ! 140: L29:movl v.2-v.1(r11),r10 ! 141: movl $1939,r10 ! 142: L30:addl3 $300,r10,r0 ! 143: mull3 $12,r10,r1 ! 144: movl r0,v.7+-93056[r1] ! 145: aobleq $1945,r10,L30 ! 146: movl r10,v.2-v.1(r11) ! 147: cmpl v.7-v.1+64(r11),$2240 ! 148: jeql L35 ! 149: pushl $L75 ! 150: pushl $L75 ! 151: callf $12,_e_ ! 152: L35:movl v.2-v.1(r11),r10 ! 153: movl $50,r10 ! 154: L36:addl3 $200,r10,v.7-v.1+16(r11)[r10] ! 155: aobleq $52,r10,L36 ! 156: movl r10,v.2-v.1(r11) ! 157: cmpl v.7-v.1+216(r11),$250 ! 158: jneq L9990 ! 159: cmpl v.7-v.1+224(r11),$252 ! 160: jeql L41 ! 161: L9990:pushl $L75 ! 162: pushl $L97 ! 163: callf $12,_e_ ! 164: L41:movl v.2-v.1(r11),r10 ! 165: mnegl $10,r10 ! 166: L42:clrl v.3-v.1+40(r11)[r10] ! 167: aobleq $10,r10,L42 ! 168: movl r10,v.2-v.1(r11) ! 169: movl -64(fp),r10 ! 170: movl v.2-v.1(r11),r9 ! 171: clrl r9 ! 172: L47:divl3 $2,r9,r10 ! 173: addl3 $1,r9,r0 ! 174: addl3 r10,r10,r1 ! 175: movl r0,v.3-v.1+40(r11)[r1] ! 176: aobleq $10,r9,L47 ! 177: movl r9,v.2-v.1(r11) ! 178: movl r10,-64(fp) ! 179: cmpl v.3-v.1+40(r11),$2 ! 180: jneq L9989 ! 181: tstl v.3-v.1+60(r11) ! 182: jneq L9989 ! 183: cmpl v.3-v.1+72(r11),$10 ! 184: jeql L52 ! 185: L9989:pushl $L75 ! 186: pushl $L99 ! 187: callf $12,_e_ ! 188: L52:movl v.9-v.1(r11),r10 ! 189: movl v.2-v.1(r11),r9 ! 190: movl v.8-v.1(r11),r8 ! 191: movl -68(fp),r7 ! 192: movl -72(fp),r6 ! 193: clrl r9 ! 194: L55:clrl r8 ! 195: L59:addl3 r8,r9,r7 ! 196: addl3 r8,r9,r6 ! 197: clrl r10 ! 198: L63:addl3 r10,r7,r0 ! 199: divl2 $2,r0 ! 200: addl2 r0,r0 ! 201: addl3 r10,r6,r1 ! 202: cmpl r0,r1 ! 203: jneq L66 ! 204: shll $2,r10,r0 ! 205: addl2 r8,r0 ! 206: mull2 $11,r0 ! 207: addl2 r9,r0 ! 208: movb L101,v.10-v.1(r11)[r0] ! 209: jbr L53 ! 210: L66:shll $2,r10,r0 ! 211: addl2 r8,r0 ! 212: mull2 $11,r0 ! 213: addl2 r9,r0 ! 214: movb L102,v.10-v.1(r11)[r0] ! 215: L53:aobleq $3,r10,L63 ! 216: aobleq $3,r8,L59 ! 217: aobleq $10,r9,L55 ! 218: movl r6,-72(fp) ! 219: movl r7,-68(fp) ! 220: movl r8,v.8-v.1(r11) ! 221: movl r9,v.2-v.1(r11) ! 222: movl r10,v.9-v.1(r11) ! 223: cmpb v.10-v.1+112(r11),L101 ! 224: jneq L9988 ! 225: cmpb v.10-v.1+156(r11),L102 ! 226: jneq L9988 ! 227: cmpb v.10-v.1+77(r11),L101 ! 228: jeql L14 ! 229: L9988:pushl $L75 ! 230: pushl $L106 ! 231: callf $12,_e_ ! 232: L14:ret#0 ! 233: ! 234: .data 2 ! 235: v.10: ! 236: .space 176 ! 237: .align 2 ! 238: v.4: ! 239: .space 28 ! 240: .align 2 ! 241: v.5: ! 242: .space 12 ! 243: .align 2 ! 244: v.8: ! 245: .space 4 ! 246: .align 2 ! 247: v.9: ! 248: .space 4 ! 249: .align 2 ! 250: v.2: ! 251: .space 4 ! 252: .align 2 ! 253: v.6: ! 254: .space 16 ! 255: .align 2 ! 256: v.3: ! 257: .space 84 ! 258: .align 2 ! 259: v.7: ! 260: .space 336 ! 261: .set v.1,v.9 ! 262:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.