cci/usr/src/usr.bin/f77/f77pass1/tst/t02.t0 - view

File: [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst / t02.t0
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 L16: .long 1 .align 2 L17: .long 2 .align 2 L22: .long 3 .align 2 L25: .long 4 .align 2 L28: .long 5 .align 2 L31: .long 6 .align 2 L34: .long 7 .align 2 L37: .long 8 .align 2 L40: .long 9 .align 2 L43: .long 10 .align 2 L46: .long 11 .align 2 L49: .long 13 .align 2 L52: .long 14 .align 2 L55: .long 15 .align 2 L58: .long 16 .align 2 L61: .long 17 .align 2 L64: .long 18 .align 2 L67: .long 19 .align 2 L70: .long 20 .align 2 L73: .long 21 .align 2 L76: .long 22 .align 2 L79: .long 23 .align 2 L82: .long 24 .data 2 .data 1 .data 0 .globl _MAIN_ .globl _e_ .globl _pow_ii .align 2 .stabs "t02.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.3-v.1(r11),v.2-v.1(r11),r0 cmpl r0,v.4-v.1(r11) jeql L15 pushl $L17 pushl $L16 callf $12,_e_ L15: addl3 v.4-v.1(r11),v.2-v.1(r11),r0 cmpl r0,v.5-v.1(r11) jeql L18 pushl $L17 pushl $L17 callf $12,_e_ L18: subl3 v.4-v.1(r11),v.3-v.1(r11),r0 mnegl v.2-v.1(r11),r1 cmpl r0,r1 jeql L21 pushl $L17 pushl $L22 callf $12,_e_ L21: addl3 v.4-v.1(r11),v.3-v.1(r11),r0 mull2 v.3-v.1(r11),r0 cmpl r0,v.6-v.1(r11) jeql L24 pushl $L17 pushl $L25 callf $12,_e_ L24: mnegl v.6-v.1(r11),r0 addl3 v.4-v.1(r11),v.4-v.1(r11),r1 addl2 v.5-v.1(r11),r1 mnegl r1,r1 cmpl r0,r1 jeql L27 pushl $L17 pushl $L28 callf $12,_e_ L27: divl3 v.2-v.1(r11),v.2-v.1(r11),r0 cmpl r0,$1 jeql L30 pushl $L17 pushl $L31 callf $12,_e_ L30: mull3 v.6-v.1(r11),v.6-v.1(r11),r0 divl2 v.6-v.1(r11),r0 cmpl r0,v.6-v.1(r11) jeql L33 pushl $L17 pushl $L34 callf $12,_e_ L33: mull3 $10,v.6-v.1(r11),r0 cmpl r0,$100 jeql L36 pushl $L17 pushl $L37 callf $12,_e_ L36: mull3 $-10,v.6-v.1(r11),r0 cmpl r0,$-100 jeql L39 pushl $L17 pushl $L40 callf $12,_e_ L39: divl3 v.4-v.1(r11),v.3-v.1(r11),r0 jeql L42 pushl $L17 pushl $L43 callf $12,_e_ L42: divl3 v.4-v.1(r11),$100,r0 cmpl r0,$33 jeql L45 pushl $L17 pushl $L46 callf $12,_e_ L45: mull3 v.4-v.1(r11),v.3-v.1(r11),r0 mull2 v.6-v.1(r11),r0 divl2 $6,r0 cmpl r0,$10 jeql L48 pushl $L17 pushl $L49 callf $12,_e_ L48: cmpl v.4-v.1(r11),$4 jgtr L9999 cmpl v.4-v.1(r11),$4 jgeq L9999 cmpl v.4-v.1(r11),$4 jneq L51 L9999: pushl $L17 pushl $L52 callf $12,_e_ L51: cmpl v.6-v.1(r11),v.3-v.1(r11) jlss L9998 cmpl v.6-v.1(r11),v.3-v.1(r11) jleq L9998 cmpl v.6-v.1(r11),v.3-v.1(r11) jneq L54 L9998: pushl $L17 pushl $L55 callf $12,_e_ L54: addl3 v.3-v.1(r11),v.2-v.1(r11),r0 cmpl v.4-v.1(r11),r0 jeql L57 pushl $L17 pushl $L58 callf $12,_e_ L57: cmpl v.3-v.1(r11),v.2-v.1(r11) jgeq L60 pushl $L17 pushl $L61 callf $12,_e_ L60: cmpl v.3-v.1(r11),v.2-v.1(r11) jgtr L63 pushl $L17 pushl $L64 callf $12,_e_ L63: cmpl v.3-v.1(r11),v.2-v.1(r11) jneq L66 pushl $L17 pushl $L67 callf $12,_e_ L66: cmpl v.3-v.1(r11),v.3-v.1(r11) jeql L69 pushl $L17 pushl $L70 callf $12,_e_ L69: cmpl v.2-v.1(r11),v.3-v.1(r11) jlss L72 pushl $L17 pushl $L73 callf $12,_e_ L72: cmpl v.2-v.1(r11),v.3-v.1(r11) jleq L75 pushl $L17 pushl $L76 callf $12,_e_ L75: mull3 v.4-v.1(r11),v.4-v.1(r11),r0 cmpl r0,$9 jeql L78 pushl $L17 pushl $L79 callf $12,_e_ L78: addl3 $v.4-v.1,r11,r0 pushl r0 addl3 $v.3-v.1,r11,r0 pushl r0 callf $12,_pow_ii cmpl r0,$8 jeql L81 pushl $L17 pushl $L82 callf $12,_e_ L81: L14: ret#0 L12: movl $v.1,r11 jbr L13 .set LF1,52 .set LWM1,0x1800 .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.