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

File: [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst / t02.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 L38: .long 1 .align 2 L39: .long 2 .align 2 L42: .long 3 .align 2 L44: .long 4 .align 2 L46: .long 5 .align 2 L48: .long 6 .align 2 L50: .long 7 .align 2 L52: .long 8 .align 2 L54: .long 9 .align 2 L56: .long 10 .align 2 L58: .long 11 .align 2 L60: .long 13 .align 2 L62: .long 14 .align 2 L64: .long 15 .align 2 L66: .long 16 .align 2 L68: .long 17 .align 2 L70: .long 18 .align 2 L72: .long 19 .align 2 L74: .long 20 .align 2 L76: .long 21 .align 2 L78: .long 22 .align 2 L80: .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 $L39 pushl $L38 callf $12,_e_ L15: addl3 v.4-v.1(r11),v.2-v.1(r11),r0 cmpl r0,v.5-v.1(r11) jeql L16 pushl $L39 pushl $L39 callf $12,_e_ L16: subl3 v.4-v.1(r11),v.3-v.1(r11),r0 mnegl v.2-v.1(r11),r1 cmpl r0,r1 jeql L17 pushl $L39 pushl $L42 callf $12,_e_ L17: 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 L18 pushl $L39 pushl $L44 callf $12,_e_ L18: 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 L19 pushl $L39 pushl $L46 callf $12,_e_ L19: divl3 v.2-v.1(r11),v.2-v.1(r11),r0 cmpl r0,$1 jeql L20 pushl $L39 pushl $L48 callf $12,_e_ L20: 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 L21 pushl $L39 pushl $L50 callf $12,_e_ L21: mull3 $10,v.6-v.1(r11),r0 cmpl r0,$100 jeql L22 pushl $L39 pushl $L52 callf $12,_e_ L22: mull3 $-10,v.6-v.1(r11),r0 cmpl r0,$-100 jeql L23 pushl $L39 pushl $L54 callf $12,_e_ L23: divl3 v.4-v.1(r11),v.3-v.1(r11),r0 jeql L24 pushl $L39 pushl $L56 callf $12,_e_ L24: divl3 v.4-v.1(r11),$100,r0 cmpl r0,$33 jeql L25 pushl $L39 pushl $L58 callf $12,_e_ L25: 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 L26 pushl $L39 pushl $L60 callf $12,_e_ L26: 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 L27 L9999: pushl $L39 pushl $L62 callf $12,_e_ L27: 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 L28 L9998: pushl $L39 pushl $L64 callf $12,_e_ L28: addl3 v.3-v.1(r11),v.2-v.1(r11),r0 cmpl v.4-v.1(r11),r0 jeql L29 pushl $L39 pushl $L66 callf $12,_e_ L29: cmpl v.3-v.1(r11),v.2-v.1(r11) jgeq L30 pushl $L39 pushl $L68 callf $12,_e_ L30: cmpl v.3-v.1(r11),v.2-v.1(r11) jgtr L31 pushl $L39 pushl $L70 callf $12,_e_ L31: cmpl v.3-v.1(r11),v.2-v.1(r11) jneq L32 pushl $L39 pushl $L72 callf $12,_e_ L32: cmpl v.3-v.1(r11),v.3-v.1(r11) jeql L33 pushl $L39 pushl $L74 callf $12,_e_ L33: cmpl v.2-v.1(r11),v.3-v.1(r11) jlss L34 pushl $L39 pushl $L76 callf $12,_e_ L34: cmpl v.2-v.1(r11),v.3-v.1(r11) jleq L35 pushl $L39 pushl $L78 callf $12,_e_ L35: mull3 v.4-v.1(r11),v.4-v.1(r11),r0 cmpl r0,$9 jeql L36 pushl $L39 pushl $L80 callf $12,_e_ L36: 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 L37 pushl $L39 pushl $L82 callf $12,_e_ L37: 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.