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

File: [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst / t18.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 L32: .long 0 .align 2 L33: .long 1 .align 2 L34: .long 18 .align 2 L35: .long 2 .align 2 L38: .long 3 .align 2 L41: .long 4 .align 2 L46: .long 5 .align 2 L53: .long 6 .align 2 L55: .long 7 .align 2 L58: .long 8 .align 2 L61: .long 15 .align 2 L62: .long 9 .align 2 L65: .long 10 .align 2 L67: .long 11 .align 2 L70: .long 12 .align 2 L74: .long 324 .align 2 L75: .long 13 .align 2 L78: .long 400 .align 2 L79: .long 14 .align 2 L82: .long 1369 .data 2 .data 1 .data 0 .data 2 .data 1 .data 0 .data 2 .data 1 .data 0 .data 2 .data 1 .data 0 .data 2 .data 1 .data 0 .data 2 .data 1 .data 0 .data 2 .data 1 .data 0 .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_ .globl _incr_ .globl _e_ .globl _decr_ .globl _double_ .globl _eval_ .globl _apply_ .globl _x1_ .globl _p1_ .globl _x2_ .globl _p0_ .comm _p1c_,4 .globl _p2_ .align 2 .stabs "t18.f",0x64,0,0,0 .text .globl _MAIN_ .align 1 _MAIN_: .word LWM1 subl3 $LF1,fp,sp jbr L12 L13: movl $10,v.3-v.1(r11) movl $20,v.4-v.1(r11) pushl $L32 callf $8,_incr_ cmpl r0,$1 jeql L15 pushl $L34 pushl $L33 callf $12,_e_ L15: addl3 $v.3-v.1,r11,r0 pushl r0 callf $8,_decr_ cmpl r0,$9 jeql L16 pushl $L34 pushl $L35 callf $12,_e_ L16: addl3 v.4-v.1(r11),v.3-v.1(r11),r0 movl r0,-72(fp) addl3 $-72,fp,r0 pushl r0 callf $8,_double_ cmpl r0,$60 jeql L17 pushl $L34 pushl $L38 callf $12,_e_ L17: addl3 $v.4-v.1,r11,r0 pushl r0 callf $8,_double_ movl r0,-76(fp) addl3 $-76,fp,r0 pushl r0 callf $8,_incr_ cmpl r0,$41 jeql L18 pushl $L34 pushl $L41 callf $12,_e_ L18: addl3 $v.3-v.1,r11,r0 pushl r0 callf $8,_double_ movl r0,-88(fp) addl3 $-88,fp,r0 pushl r0 callf $8,_incr_ movl r0,-84(fp) addl3 $-84,fp,r0 pushl r0 callf $8,_double_ movl r0,-80(fp) addl3 $-80,fp,r0 pushl r0 callf $8,_decr_ cmpl r0,$41 jeql L19 pushl $L34 pushl $L46 callf $12,_e_ L19: pushl $L46 callf $8,_incr_ movl r0,-104(fp) addl3 $-104,fp,r0 pushl r0 callf $8,_incr_ movl r0,-100(fp) addl3 $-100,fp,r0 pushl r0 callf $8,_incr_ movl r0,-96(fp) addl3 $-96,fp,r0 pushl r0 callf $8,_incr_ movl r0,-92(fp) addl3 $-92,fp,r0 pushl r0 callf $8,_incr_ cmpl r0,$10 jeql L20 pushl $L34 pushl $L53 callf $12,_e_ L20: addl3 $v.3-v.1,r11,r0 pushl r0 pushl $_incr_ callf $12,_eval_ cmpl r0,$11 jeql L21 pushl $L34 pushl $L55 callf $12,_e_ L21: pushl $L38 pushl $_decr_ callf $12,_eval_ cmpl r0,$2 jeql L22 pushl $L34 pushl $L58 callf $12,_e_ L22: pushl $L61 pushl $_double_ callf $12,_eval_ movl r0,-108(fp) addl3 $-108,fp,r0 pushl r0 callf $8,_incr_ cmpl r0,$31 jeql L23 pushl $L34 pushl $L62 callf $12,_e_ L23: pushl $L38 pushl $_incr_ callf $12,_apply_ cmpl r0,$4 jeql L24 pushl $L34 pushl $L65 callf $12,_e_ L24: addl3 $v.4-v.1,r11,r0 pushl r0 addl3 $v.3-v.1,r11,r0 pushl r0 pushl $_double_ callf $16,_x1_ cmpl v.4-v.1(r11),$40 jeql L25 pushl $L34 pushl $L67 callf $12,_e_ L25: addl3 $3,v.3-v.1(r11),r0 movl r0,-112(fp) addl3 $v.4-v.1,r11,r0 pushl r0 addl3 $-112,fp,r0 pushl r0 pushl $_incr_ callf $16,_x1_ cmpl v.4-v.1(r11),$27 jeql L26 pushl $L34 pushl $L70 callf $12,_e_ L26: pushl $L75 pushl $L74 pushl $L46 pushl $L38 callf $20,_p1_ pushl $L79 pushl $L78 pushl $L41 pushl $L65 callf $20,_p1_ pushl $L61 pushl $L82 pushl $L58 pushl $L33 callf $20,_p1_ movl $1,v.4-v.1(r11) addl3 $v.4-v.1,r11,r0 pushl r0 callf $8,_double_ movl r0,-56(fp) shll $1,-56(fp),r0 movl r0,-116(fp) addl3 $-116,fp,r0 pushl r0 callf $8,_incr_ movl r0,-60(fp) addl3 $1,-60(fp),r0 movl r0,-120(fp) addl3 $-120,fp,r0 pushl r0 callf $8,_double_ movl r0,-64(fp) shll $1,-64(fp),r0 movl r0,-124(fp) addl3 $-124,fp,r0 pushl r0 callf $8,_incr_ movl r0,-68(fp) addl3 $1,-68(fp),r0 cmpl r0,$26 jeql L27 pushl $L34 pushl $L75 callf $12,_e_ L27: L14: ret#0 L12: movl $v.1,r11 jbr L13 .set LF1,124 .set LWM1,0x1800 .text .globl _incr_ .align 1 _incr_: .word LWM2 subl3 $LF2,fp,sp jbr L90 L92: addl3 $1,*4(r12),r0 movl r0,-60(fp) L91: movl -60(fp),r0 ret#1 L90: movl fp,r12 jbr L92 .set LF2,60 .set LWM2,0x1000 .text .globl _decr_ .align 1 _decr_: .word LWM3 subl3 $LF3,fp,sp jbr L96 L98: addl3 $-1,*4(r12),r0 movl r0,-60(fp) L97: movl -60(fp),r0 ret#1 L96: movl fp,r12 jbr L98 .set LF3,60 .set LWM3,0x1000 .text .globl _double_ .align 1 _double_: .word LWM4 subl3 $LF4,fp,sp jbr L102 L104: shll $1,*4(r12),r0 movl r0,-60(fp) L103: movl -60(fp),r0 ret#1 L102: movl fp,r12 jbr L104 .set LF4,60 .set LWM4,0x1000 .text .globl _eval_ .align 1 _eval_: .word LWM5 subl3 $LF5,fp,sp jbr L108 L110: pushl 8(r12) calls $8,*4(r12) movl r0,-60(fp) L109: movl -60(fp),r0 ret#1 L108: movl fp,r12 jbr L110 .set LF5,60 .set LWM5,0x1000 .text .globl _apply_ .align 1 _apply_: .word LWM6 subl3 $LF6,fp,sp jbr L114 L116: pushl 8(r12) pushl 4(r12) callf $12,_eval_ movl r0,-60(fp) L115: movl -60(fp),r0 ret#1 L114: movl fp,r12 jbr L116 .set LF6,60 .set LWM6,0x1000 .text .globl _x1_ .align 1 _x1_: .word LWM7 subl3 $LF7,fp,sp jbr L120 L123: addl3 *8(r12),*8(r12),r0 movl r0,-56(fp) pushl 12(r12) addl3 $-56,fp,r0 pushl r0 pushl 4(r12) callf $16,_x2_ L122: L121: ret#0 L120: movl fp,r12 jbr L123 .set LF7,56 .set LWM7,0x1000 .text .globl _x2_ .align 1 _x2_: .word LWM8 subl3 $LF8,fp,sp jbr L127 L130: pushl 8(r12) pushl 4(r12) callf $12,_apply_ movl r0,*12(r12) L129: L128: ret#0 L127: movl fp,r12 jbr L130 .set LF8,52 .set LWM8,0x1000 .text .globl _p0_ .align 1 _p0_: .word LWM9 subl3 $LF9,fp,sp jbr L133 L136: tstl *12(r12) jneq L138 pushl 8(r12) calls $8,*4(r12) jbr L139 L138: addl3 *12(r12),*8(r12),r0 movl r0,-56(fp) addl3 $-1,*12(r12),r0 movl r0,-60(fp) addl3 $-60,fp,r0 pushl r0 addl3 $-56,fp,r0 pushl r0 pushl 4(r12) callf $16,_p0_ L139: L135: L134: ret#0 L133: movl fp,r12 jbr L136 .set LF9,60 .set LWM9,0x1000 .text .globl _p1_ .align 1 _p1_: .word LWM10 subl3 $LF10,fp,sp jbr L143 L146: clrl _p1c_ pushl 8(r12) pushl 4(r12) pushl $_p2_ callf $16,_p0_ cmpl _p1c_,*12(r12) jeql L148 pushl $L34 pushl 16(r12) callf $12,_e_ L148: L145: L144: ret#0 L143: movl fp,r12 jbr L146 .set LF10,52 .set LWM10,0x1000 .text .globl _p2_ .align 1 _p2_: .word LWM11 subl3 $LF11,fp,sp jbr L151 L154: mull3 *4(r12),*4(r12),r0 movl r0,_p1c_ L153: L152: ret#0 L151: movl fp,r12 jbr L154 .set LF11,52 .set LWM11,0x1000 .text .data 2 .align 2 v.4: .space 4 .align 2 v.2: .space 4 .align 2 v.3: .space 4 .set v.1,v.2

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