![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to g.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 g.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: L15: ! 4: .long 0x00000000 # .float 0 ! 5: .align 2 ! 6: L16: ! 7: .long 0x41C90FDB # .float 6.2831855 ! 8: .align 2 ! 9: L17: ! 10: .long 0x3DA3D70A # .float .02 ! 11: .align 2 ! 12: L18: ! 13: .long 0xC0800000 # .float -1 ! 14: .align 2 ! 15: L19: ! 16: .long 0x40800000 # .float 1 ! 17: .data 2 ! 18: .data 1 ! 19: .data 0 ! 20: .align 2 ! 21: L30: ! 22: .long L29 ! 23: .align 2 ! 24: L33: ! 25: .long L29 ! 26: .align 2 ! 27: L29: ! 28: .byte 050,070 ! 29: .byte 060,0141 ! 30: .byte 061,051 ! 31: .byte 00,00 ! 32: .align 2 ! 33: L43: ! 34: .byte 040,00 ! 35: .align 2 ! 36: L44: ! 37: .long 1 ! 38: .align 2 ! 39: L47: ! 40: .byte 052,00 ! 41: .data 2 ! 42: .data 1 ! 43: .data 0 ! 44: .align 2 ! 45: L55: ! 46: .long 0x42400000 # .float 12 ! 47: .data 2 ! 48: .data 1 ! 49: .data 0 ! 50: .globl _MAIN_ ! 51: .globl _graf_ ! 52: .globl _xsin_ ! 53: .globl _s_wsfe ! 54: .globl _do_fio ! 55: .globl _e_wsfe ! 56: .align 2 ! 57: .stabs "g.f",0x64,0,0,0 ! 58: .text ! 59: .globl _MAIN_ ! 60: .set LF1,52 ! 61: .set LWM1,0x1000 ! 62: .align 1 ! 63: _MAIN_:.word LWM1 ! 64: subl3 $LF1,fp,sp ! 65: pushl $L19 ! 66: pushl $L18 ! 67: pushl $L17 ! 68: pushl $L16 ! 69: pushl $L15 ! 70: pushl $_xsin_ ! 71: callf $28,_graf_ ! 72: ret#0 ! 73: .globl _graf_ ! 74: .set LF2,60 ! 75: .set LWM2,0x1E00 ! 76: .align 1 ! 77: _graf_:.word LWM2 ! 78: subl3 $LF2,fp,sp ! 79: movl $v.2,r11 ! 80: movl fp,r12 ! 81: movl *8(r12),v.3-v.2(r11) ! 82: L26:addl3 $v.3-v.2,r11,-(sp) ! 83: calls $8,*4(r12) ! 84: movl r0,v.4-v.2(r11) ! 85: cmpf2 r0,*20(r12) ! 86: jlss L9999 ! 87: cmpf2 r0,*24(r12) ! 88: jleq L27 ! 89: L9999:movl L30,v.5+12 ! 90: pushl $v.5 ! 91: callf $8,_s_wsfe ! 92: movb L43,-53(fp) ! 93: pushl $1 ! 94: subl3 $53,fp,-(sp) ! 95: jbr L2000002 ! 96: L27:ldf v.4-v.2(r11) ! 97: subf *20(r12) ! 98: stf r0 ! 99: ldf *24(r12) ! 100: subf *20(r12) ! 101: stf r1 ! 102: ldf r0 ! 103: divf r1 ! 104: stf r0 ! 105: cvlf $74 ! 106: mulf r0 ! 107: cvfl v.6-v.2(r11) ! 108: movl L33,v.7+12 ! 109: pushl $v.7 ! 110: callf $8,_s_wsfe ! 111: movl v.6-v.2(r11),-60(fp) ! 112: movl -60(fp),r10 ! 113: movl v.8-v.2(r11),r9 ! 114: movl $1,r9 ! 115: cmpl r9,r10 ! 116: jgtr L35 ! 117: L36:movb L43,-54(fp) ! 118: pushl $1 ! 119: subl3 $54,fp,-(sp) ! 120: pushl $L44 ! 121: callf $16,_do_fio ! 122: aobleq r10,r9,L36 ! 123: L35:movl r9,v.8-v.2(r11) ! 124: movb L47,-55(fp) ! 125: pushl $1 ! 126: subl3 $55,fp,-(sp) ! 127: L2000002:pushl $L44 ! 128: callf $16,_do_fio ! 129: callf $4,_e_wsfe ! 130: ldf v.3-v.2(r11) ! 131: addf *16(r12) ! 132: stf v.3-v.2(r11) ! 133: cmpf2 v.3-v.2(r11),*12(r12) ! 134: jleq L26 ! 135: ret#0 ! 136: .globl _xsin_ ! 137: .set LF3,60 ! 138: .set LWM3,0x1000 ! 139: .align 1 ! 140: _xsin_:.word LWM3 ! 141: subl3 $LF3,fp,sp ! 142: movl fp,r12 ! 143: ldf *4(r12) ! 144: mulf L55 ! 145: sinf ! 146: stf r0 ! 147: ldf *4(r12) ! 148: sinf ! 149: mulf r0 ! 150: stf -60(fp) ! 151: movl -60(fp),r0 ! 152: ret#1 ! 153: ! 154: .data 2 ! 155: .align 2 ! 156: v.7: ! 157: .long 0 ! 158: .long 6 ! 159: .space 8 ! 160: .align 2 ! 161: v.5: ! 162: .long 0 ! 163: .long 6 ! 164: .space 8 ! 165: .align 2 ! 166: v.8: ! 167: .space 4 ! 168: .align 2 ! 169: v.3: ! 170: .space 4 ! 171: .align 2 ! 172: v.4: ! 173: .space 4 ! 174: .align 2 ! 175: v.6: ! 176: .space 4 ! 177: .set v.2,v.4 ! 178:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.