![[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 |
Power 6/32 Unix version 1.21
.data 0 .align 2 L74: .long 1 .align 2 L75: .long 6 .align 2 L76: .long 0xC5F25000 # .float -1938.5 .align 2 L77: .long 0xC0000000 # .float -.5 .align 2 L78: .long 0xC1D00000 # .float -6.5 .align 2 L79: .long 0x00000000 # .float 0 .align 2 L80: .long 0x3556BF95 # .float 2.e-07 .align 2 L83: .long 2 .align 2 L85: .long 3 .align 2 L87: .long 4 .align 2 L89: .long 0x40C00000, 0x00000000 # .double 1.5 .align 2 L90: .long 0x3B83126E, 0x978D4FDF # .double .001 .align 2 L93: .long 5 .align 2 L97: .long 7 .align 2 L99: .long 8 .align 2 L101: .byte 0145,00 .align 2 L102: .byte 0157,00 .align 2 L106: .long 9 .data 2 .data 1 .data 0 .globl _MAIN_ .globl _e_ .align 2 .stabs "t06.f",0x64,0,0,0 .text .globl _MAIN_ .set LF1,72 .set LWM1,0x1FC0 .align 1 _MAIN_:.word LWM1 subl3 $LF1,fp,sp movl $v.1,r11 movl v.2-v.1(r11),r10 mnegl $10,r10 L15:mull3 r10,r10,v.3-v.1+40(r11)[r10] aobleq $10,r10,L15 movl r10,v.2-v.1(r11) cmpl v.3-v.1(r11),$100 jneq L9999 cmpl v.3-v.1+76(r11),$81 jeql L20 L9999:pushl $L75 pushl $L74 callf $12,_e_ L20:movl v.2-v.1(r11),r10 movl $1939,r10 L21:cvlf r10 addf L76 stf v.4-v.1+-7756(r11)[r10] aobleq $1945,r10,L21 movl r10,v.2-v.1(r11) ldf v.4-v.1(r11) addf L77 stf -56(fp) ldf v.4-v.1+24(r11) addf L78 stf -60(fp) cmpf2 L79,-56(fp) jgtr L9997 movl -56(fp),r0 jbr L9996 L9997:lnf -56(fp) stf r0 L9996:cmpf2 r0,L80 jgtr L9998 cmpf2 L79,-60(fp) jgtr L9995 movl -60(fp),r0 jbr L9994 L9995:lnf -60(fp) stf r0 L9994:cmpf2 r0,L80 jleq L26 L9998:pushl $L75 pushl $L83 callf $12,_e_ L26:movl $1,v.5-v.1+8(r11) movl $1,v.5-v.1+4(r11) cmpl v.5-v.1+8(r11),$1 jeql L27 pushl $L75 pushl $L85 callf $12,_e_ L27:clrl v.5-v.1+8(r11) clrl v.5-v.1+4(r11) tstl v.5-v.1+8(r11) jeql L28 pushl $L75 pushl $L87 callf $12,_e_ L28:movl L89+4,v.6-v.1+4(r11) movl L89,v.6-v.1(r11) movl L90+4,v.6-v.1+12(r11) movl L90,v.6-v.1+8(r11) cmpd2 v.6-v.1(r11),L89 jneq L9991 cmpd2 v.6-v.1+8(r11),L90 jeql L29 L9991:pushl $L75 pushl $L93 callf $12,_e_ L29:movl v.2-v.1(r11),r10 movl $1939,r10 L30:addl3 $300,r10,r0 mull3 $12,r10,r1 movl r0,v.7+-93056[r1] aobleq $1945,r10,L30 movl r10,v.2-v.1(r11) cmpl v.7-v.1+64(r11),$2240 jeql L35 pushl $L75 pushl $L75 callf $12,_e_ L35:movl v.2-v.1(r11),r10 movl $50,r10 L36:addl3 $200,r10,v.7-v.1+16(r11)[r10] aobleq $52,r10,L36 movl r10,v.2-v.1(r11) cmpl v.7-v.1+216(r11),$250 jneq L9990 cmpl v.7-v.1+224(r11),$252 jeql L41 L9990:pushl $L75 pushl $L97 callf $12,_e_ L41:movl v.2-v.1(r11),r10 mnegl $10,r10 L42:clrl v.3-v.1+40(r11)[r10] aobleq $10,r10,L42 movl r10,v.2-v.1(r11) movl -64(fp),r10 movl v.2-v.1(r11),r9 clrl r9 L47:divl3 $2,r9,r10 addl3 $1,r9,r0 addl3 r10,r10,r1 movl r0,v.3-v.1+40(r11)[r1] aobleq $10,r9,L47 movl r9,v.2-v.1(r11) movl r10,-64(fp) cmpl v.3-v.1+40(r11),$2 jneq L9989 tstl v.3-v.1+60(r11) jneq L9989 cmpl v.3-v.1+72(r11),$10 jeql L52 L9989:pushl $L75 pushl $L99 callf $12,_e_ L52:movl v.9-v.1(r11),r10 movl v.2-v.1(r11),r9 movl v.8-v.1(r11),r8 movl -68(fp),r7 movl -72(fp),r6 clrl r9 L55:clrl r8 L59:addl3 r8,r9,r7 addl3 r8,r9,r6 clrl r10 L63:addl3 r10,r7,r0 divl2 $2,r0 addl2 r0,r0 addl3 r10,r6,r1 cmpl r0,r1 jneq L66 shll $2,r10,r0 addl2 r8,r0 mull2 $11,r0 addl2 r9,r0 movb L101,v.10-v.1(r11)[r0] jbr L53 L66:shll $2,r10,r0 addl2 r8,r0 mull2 $11,r0 addl2 r9,r0 movb L102,v.10-v.1(r11)[r0] L53:aobleq $3,r10,L63 aobleq $3,r8,L59 aobleq $10,r9,L55 movl r6,-72(fp) movl r7,-68(fp) movl r8,v.8-v.1(r11) movl r9,v.2-v.1(r11) movl r10,v.9-v.1(r11) cmpb v.10-v.1+112(r11),L101 jneq L9988 cmpb v.10-v.1+156(r11),L102 jneq L9988 cmpb v.10-v.1+77(r11),L101 jeql L14 L9988:pushl $L75 pushl $L106 callf $12,_e_ L14:ret#0 .data 2 v.10: .space 176 .align 2 v.4: .space 28 .align 2 v.5: .space 12 .align 2 v.8: .space 4 .align 2 v.9: .space 4 .align 2 v.2: .space 4 .align 2 v.6: .space 16 .align 2 v.3: .space 84 .align 2 v.7: .space 336 .set v.1,v.9
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.