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

File: [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst / g.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 L15: .long 0x00000000 # .float 0 .align 2 L16: .long 0x41C90FDB # .float 6.2831855 .align 2 L17: .long 0x3DA3D70A # .float .02 .align 2 L18: .long 0xC0800000 # .float -1 .align 2 L19: .long 0x40800000 # .float 1 .data 2 .data 1 .data 0 .align 2 L30: .long L29 .align 2 L33: .long L29 .align 2 L29: .byte 050,070 .byte 060,0141 .byte 061,051 .byte 00,00 .align 2 L43: .byte 040,00 .align 2 L44: .long 1 .align 2 L47: .byte 052,00 .data 2 .data 1 .data 0 .align 2 L55: .long 0x42400000 # .float 12 .data 2 .data 1 .data 0 .globl _MAIN_ .globl _graf_ .globl _xsin_ .globl _s_wsfe .globl _do_fio .globl _e_wsfe .align 2 .stabs "g.f",0x64,0,0,0 .text .globl _MAIN_ .set LF1,52 .set LWM1,0x1000 .align 1 _MAIN_:.word LWM1 subl3 $LF1,fp,sp pushl $L19 pushl $L18 pushl $L17 pushl $L16 pushl $L15 pushl $_xsin_ callf $28,_graf_ ret#0 .globl _graf_ .set LF2,60 .set LWM2,0x1E00 .align 1 _graf_:.word LWM2 subl3 $LF2,fp,sp movl $v.2,r11 movl fp,r12 movl *8(r12),v.3-v.2(r11) L26:addl3 $v.3-v.2,r11,-(sp) calls $8,*4(r12) movl r0,v.4-v.2(r11) cmpf2 r0,*20(r12) jlss L9999 cmpf2 r0,*24(r12) jleq L27 L9999:movl L30,v.5+12 pushl $v.5 callf $8,_s_wsfe movb L43,-53(fp) pushl $1 subl3 $53,fp,-(sp) jbr L2000002 L27:ldf v.4-v.2(r11) subf *20(r12) stf r0 ldf *24(r12) subf *20(r12) stf r1 ldf r0 divf r1 stf r0 cvlf $74 mulf r0 cvfl v.6-v.2(r11) movl L33,v.7+12 pushl $v.7 callf $8,_s_wsfe movl v.6-v.2(r11),-60(fp) movl -60(fp),r10 movl v.8-v.2(r11),r9 movl $1,r9 cmpl r9,r10 jgtr L35 L36:movb L43,-54(fp) pushl $1 subl3 $54,fp,-(sp) pushl $L44 callf $16,_do_fio aobleq r10,r9,L36 L35:movl r9,v.8-v.2(r11) movb L47,-55(fp) pushl $1 subl3 $55,fp,-(sp) L2000002:pushl $L44 callf $16,_do_fio callf $4,_e_wsfe ldf v.3-v.2(r11) addf *16(r12) stf v.3-v.2(r11) cmpf2 v.3-v.2(r11),*12(r12) jleq L26 ret#0 .globl _xsin_ .set LF3,60 .set LWM3,0x1000 .align 1 _xsin_:.word LWM3 subl3 $LF3,fp,sp movl fp,r12 ldf *4(r12) mulf L55 sinf stf r0 ldf *4(r12) sinf mulf r0 stf -60(fp) movl -60(fp),r0 ret#1 .data 2 .align 2 v.7: .long 0 .long 6 .space 8 .align 2 v.5: .long 0 .long 6 .space 8 .align 2 v.8: .space 4 .align 2 v.3: .space 4 .align 2 v.4: .space 4 .align 2 v.6: .space 4 .set v.2,v.4

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