cci/usr/src/usr.bin/f77/f77pass1/tst/b7c.t2 - view

File: [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst / b7c.t2
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Sun Jul 28 12:26:07 2019 UTC (7 years ago) by root
Branches: bsd, MAIN
CVS tags: v121, HEAD

Power 6/32 Unix version 1.21

.data 0 .align 2 L20: .long 10 .data 2 .data 1 .data 0 .data 2 .data 1 .data 0 .data 2 .data 1 .data 0 .data 2 .data 1 .data 0 .globl _MAIN_ .comm _a_,40 .globl _stat_ .globl _gtmean_ .globl _getmed_ .align 2 .stabs "b7c.f",0x64,0,0,0 .text .globl _MAIN_ .set LF1,52 .set LWM1,0x1C00 .align 1 _MAIN_:.word LWM1 subl3 $LF1,fp,sp movl $v.1,r11 movl v.2-v.1(r11),r10 movl $1,r10 L15:pushl $L20 callf $8,_stat_ aobleq $30000,r10,L15 movl r10,v.2-v.1(r11) ret#0 .globl _stat_ .set LF2,56 .set LWM2,0x1F00 .align 1 _stat_:.word LWM2 subl3 $LF2,fp,sp movl $v.3,r11 movl fp,r12 clrl v.4-v.3(r11) movl *4(r12),-56(fp) movl v.4-v.3(r11),r10 movl v.5-v.3(r11),r9 movl -56(fp),r8 movl $1,r9 cmpl r9,r8 jgtr L28 L27:addl2 _a_+-4[r9],r10 aobleq r8,r9,L27 L28:movl r9,v.5-v.3(r11) movl r10,v.4-v.3(r11) addl3 $v.4-v.3,r11,-(sp) pushl 4(r12) callf $12,_gtmean_ movl r0,v.6-v.3(r11) addl3 $v.4-v.3,r11,-(sp) pushl 4(r12) callf $12,_getmed_ ret#0 .globl _gtmean_ .set LF3,64 .set LWM3,0x1F00 .align 1 _gtmean_:.word LWM3 subl3 $LF3,fp,sp movl $v.7,r11 movl fp,r12 clrl v.8-v.7(r11) movl *4(r12),-64(fp) movl v.9-v.7(r11),r10 movl v.8-v.7(r11),r9 movl -64(fp),r8 movl $1,r10 cmpl r10,r8 jgtr L40 L39:mull3 r10,_a_+-4[r10],r0 addl2 r0,r9 aobleq r8,r10,L39 L40:movl r9,v.8-v.7(r11) movl r10,v.9-v.7(r11) divl3 *8(r12),r9,-60(fp) movl -60(fp),r0 ret#1 .globl _getmed_ .set LF4,60 .set LWM4,0x1F80 .align 1 _getmed_:.word LWM4 subl3 $LF4,fp,sp movl $v.10,r11 movl fp,r12 clrl v.11-v.10(r11) movl *4(r12),-56(fp) shar $2,*8(r12),-60(fp) movl v.11-v.10(r11),r10 movl -56(fp),r9 movl -60(fp),r8 movl v.12-v.10(r11),r7 movl $1,r7 cmpl r7,r9 jgtr L52 L53:addl2 _a_+-4[r7],r10 cmpl r10,r8 jleq L51 movl r10,v.11-v.10(r11) movl r7,v.12-v.10(r11) L47:ret#0 L51:aobleq r9,r7,L53 L52:movl r7,v.12-v.10(r11) movl r10,v.11-v.10(r11) jbr L47 .data 2 .align 2 v.2: .space 4 .set v.1,v.2 .align 2 v.4: .space 4 .align 2 v.6: .space 4 .align 2 v.5: .space 4 .set v.3,v.6 .align 2 v.9: .space 4 .align 2 v.8: .space 4 .set v.7,v.8 .align 2 v.12: .space 4 .align 2 v.11: .space 4 .set v.10,v.11

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.