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

File: [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst / t15.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 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_ .set LF1,104 .set LWM1,0x1800 .align 1 _MAIN_:.word LWM1 subl3 $LF1,fp,sp movl $v.1,r11 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,-(sp) 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),-56(fp) addl3 $v.5-v.1,r11,-(sp) callf $8,_twice_ movl r0,-100(fp) subl3 $56,fp,-(sp) 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) subl3 $76,fp,-(sp) callf $8,_twice_ movl r0,-72(fp) subl3 $72,fp,-(sp) callf $8,_inc_ movl r0,-68(fp) subl3 $68,fp,-(sp) callf $8,_twice_ movl r0,-64(fp) subl3 $64,fp,-(sp) callf $8,_twice_ movl r0,-60(fp) subl3 $60,fp,-(sp) callf $8,_twice_ cmpl r0,$72 jeql L18 pushl $L24 pushl $L37 callf $12,_e_ L18:addl3 $v.4-v.1,r11,-(sp) callf $8,_inc_ movl r0,-100(fp) addl3 $v.4-v.1,r11,-(sp) callf $8,_inc_ addl3 $1,v.2-v.1(r11),r1 addl2 r1,r0 addl3 -100(fp),r0,-96(fp) pushl $L26 callf $8,_twice_ movl r0,-104(fp) subl3 $96,fp,-(sp) callf $8,_twice_ addl3 -104(fp),r0,-92(fp) subl3 $92,fp,-(sp) callf $8,_inc_ movl r0,-88(fp) subl3 $88,fp,-(sp) callf $8,_twice_ addl3 v.3-v.1(r11),r0,-84(fp) subl3 $84,fp,-(sp) callf $8,_inc_ movl r0,-80(fp) subl3 $80,fp,-(sp) 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_ addl3 $1,r0,-100(fp) cmpl $3,-100(fp) jeql L14 pushl $L24 pushl $L53 callf $12,_e_ L14:ret#0 .globl _twice_ .set LF2,60 .set LWM2,0x1000 .align 1 _twice_:.word LWM2 subl3 $LF2,fp,sp movl fp,r12 addl3 *4(r12),*4(r12),-60(fp) movl -60(fp),r0 ret#1 .globl _inc_ .set LF3,60 .set LWM3,0x1000 .align 1 _inc_:.word LWM3 subl3 $LF3,fp,sp movl fp,r12 addl3 $1,*4(r12),-60(fp) movl -60(fp),r0 ret#1 .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.