cci/usr/src/usr.bin/f77/f77pass1/tst/t15.t1 - view

File: [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst / t15.t1
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 L23: .long 1 .align 2 L24: .long 15 .align 2 L26: .long 2 .align 2 L29: .long 3 .align 2 L37: .long 4 .align 2 L45: .long 5 .align 2 L50: .long 6 .align 2 L53: .long 7 .align 2 L55: .long 8 .data 2 .data 1 .data 0 .data 2 .data 1 .data 0 .data 2 .data 1 .data 0 .globl _MAIN_ .globl _twice_ .globl _e_ .globl _inc_ .align 2 .stabs "t15.f",0x64,0,0,0 .text .globl _MAIN_ .align 1 _MAIN_: .word LWM1 subl3 $LF1,fp,sp jbr L12 L13: movl $1,v.2-v.1(r11) movl $2,v.3-v.1(r11) movl $3,v.4-v.1(r11) movl $4,v.5-v.1(r11) movl $10,v.6-v.1(r11) addl3 $v.4-v.1,r11,r0 pushl r0 callf $8,_twice_ subl3 v.5-v.1(r11),v.6-v.1(r11),r1 cmpl r0,r1 jeql L15 pushl $L24 pushl $L23 callf $12,_e_ L15: pushl $L23 callf $8,_twice_ cmpl r0,$2 jeql L16 pushl $L24 pushl $L26 callf $12,_e_ L16: addl3 $1,v.4-v.1(r11),r0 movl r0,-56(fp) addl3 $v.5-v.1,r11,r0 pushl r0 callf $8,_twice_ movl r0,-100(fp) addl3 $-56,fp,r0 pushl r0 callf $8,_twice_ cmpl r0,-100(fp) jeql L17 pushl $L24 pushl $L29 callf $12,_e_ L17: pushl $L29 callf $8,_inc_ movl r0,-76(fp) addl3 $-76,fp,r0 pushl r0 callf $8,_twice_ movl r0,-72(fp) addl3 $-72,fp,r0 pushl r0 callf $8,_inc_ movl r0,-68(fp) addl3 $-68,fp,r0 pushl r0 callf $8,_twice_ movl r0,-64(fp) addl3 $-64,fp,r0 pushl r0 callf $8,_twice_ movl r0,-60(fp) addl3 $-60,fp,r0 pushl r0 callf $8,_twice_ cmpl r0,$72 jeql L18 pushl $L24 pushl $L37 callf $12,_e_ L18: addl3 $v.4-v.1,r11,r0 pushl r0 callf $8,_inc_ movl r0,-100(fp) addl3 $v.4-v.1,r11,r0 pushl r0 callf $8,_inc_ addl3 $1,v.2-v.1(r11),r1 addl2 r1,r0 addl2 -100(fp),r0 movl r0,-96(fp) pushl $L26 callf $8,_twice_ movl r0,-104(fp) addl3 $-96,fp,r0 pushl r0 callf $8,_twice_ addl2 -104(fp),r0 movl r0,-92(fp) addl3 $-92,fp,r0 pushl r0 callf $8,_inc_ movl r0,-88(fp) addl3 $-88,fp,r0 pushl r0 callf $8,_twice_ addl2 v.3-v.1(r11),r0 movl r0,-84(fp) addl3 $-84,fp,r0 pushl r0 callf $8,_inc_ movl r0,-80(fp) addl3 $-80,fp,r0 pushl r0 callf $8,_twice_ cmpl r0,$106 jeql L19 pushl $L24 pushl $L45 callf $12,_e_ L19: pushl $L29 callf $8,_twice_ movl r0,-100(fp) pushl $L23 callf $8,_twice_ movl r0,-104(fp) pushl $L26 callf $8,_twice_ mull2 -100(fp),r0 addl2 -104(fp),r0 cmpl r0,$26 jeql L20 pushl $L24 pushl $L50 callf $12,_e_ L20: pushl $L23 callf $8,_twice_ incl r0 movl r0,-100(fp) cmpl $3,-100(fp) jeql L21 pushl $L24 pushl $L53 callf $12,_e_ L21: jbr L22 pushl $L24 pushl $L55 callf $12,_e_ L22: L14: ret#0 L12: movl $v.1,r11 jbr L13 .set LF1,104 .set LWM1,0x1800 .text .globl _twice_ .align 1 _twice_: .word LWM2 subl3 $LF2,fp,sp jbr L58 L60: shll $1,*4(r12),r0 movl r0,-60(fp) L59: movl -60(fp),r0 ret#1 L58: movl fp,r12 jbr L60 .set LF2,60 .set LWM2,0x1000 .text .globl _inc_ .align 1 _inc_: .word LWM3 subl3 $LF3,fp,sp jbr L64 L66: addl3 $1,*4(r12),r0 movl r0,-60(fp) L65: movl -60(fp),r0 ret#1 L64: movl fp,r12 jbr L66 .set LF3,60 .set LWM3,0x1000 .text .data 2 .align 2 v.3: .space 4 .align 2 v.5: .space 4 .align 2 v.6: .space 4 .align 2 v.4: .space 4 .align 2 v.2: .space 4 .set v.1,v.6

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