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

File: [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst / dob.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 L22: .long L21 .align 2 L21: .byte 050,02 .byte 0114,0157 .byte 0157,0160 .byte 040,0160 .byte 0141,0163 .byte 0163,02 .byte 054,0151 .byte 063,051 .byte 00,00 .align 2 L27: .long 1 .align 2 L28: .byte 00,00 .data 2 .data 1 .data 0 .data 2 .data 1 .data 0 .globl _bug1_ .globl _MAIN_ .globl _dummy_ .globl _s_wsfe .globl _do_fio .globl _e_wsfe .globl _s_stop .align 2 .stabs "dob.f",0x64,0,0,0 .text .globl _MAIN_ .align 1 _MAIN_: .word LWM1 subl3 $LF1,fp,sp jbr L12 L13: movl $2,v.2-v.1(r11) movl $3,v.3-v.1(r11) movl $4,v.4-v.1(r11) movl $5,v.5-v.1(r11) movl $6,v.6-v.1(r11) movl $7,v.7-v.1(r11) movl v.3-v.1(r11),-56(fp) movl v.2-v.1(r11),r10 movl v.4-v.1(r11),r9 movl v.5-v.1(r11),r8 movl v.7-v.1(r11),r7 movl v.6-v.1(r11),r6 movl $1,v.8-v.1(r11) cmpl v.8-v.1(r11),-56(fp) jgtr L16 L17: addl3 $1,r10,r0 movl r0,r10 addl3 $1,v.8-v.1(r11),r0 movl r0,-60(fp) movl -60(fp),r9 mull3 r10,r9,r0 movl r0,r10 addl3 $-1,r10,r0 movl r0,r9 mull3 v.8-v.1(r11),r9,r0 movl r0,r8 mull3 r8,r9,r0 movl r0,r6 subl3 r9,r8,r0 movl r0,r7 addl3 $3,r7,r0 movl r0,r8 divl3 r8,r7,r0 movl r0,r6 addl3 r6,r10,r0 movl r0,r7 addl3 $2,r10,r0 movl r0,-64(fp) addl3 $3,r9,r0 movl r0,-68(fp) addl3 $-68,fp,r0 pushl r0 addl3 $-64,fp,r0 pushl r0 addl3 $-60,fp,r0 pushl r0 callf $16,_dummy_ movl L22,v.9+12 pushl $v.9 callf $8,_s_wsfe pushl $4 addl3 $v.8-v.1,r11,r0 pushl r0 pushl $L27 callf $16,_do_fio callf $4,_e_wsfe L15: incl v.8-v.1(r11) cmpl v.8-v.1(r11),-56(fp) jleq L17 L16: movl r6,v.6-v.1(r11) movl r7,v.7-v.1(r11) movl r8,v.5-v.1(r11) movl r9,v.4-v.1(r11) movl r10,v.2-v.1(r11) pushl $0 pushl $L28 callf $12,_s_stop L14: ret#0 .align 1 _bug1_: .word LWM1 L12: movl $v.1,r11 jbr L13 .set LF1,68 .set LWM1,0x1FC0 .text .globl _dummy_ .align 1 _dummy_: .word LWM2 subl3 $LF2,fp,sp jbr L30 L33: jbr L32 L32: L31: ret#0 L30: movl fp,r12 jbr L33 .set LF2,52 .set LWM2,0x1000 .text .data 2 .align 2 v.9: .long 0 .long 6 .space 8 .align 2 v.2: .space 4 .align 2 v.4: .space 4 .align 2 v.6: .space 4 .align 2 v.7: .space 4 .align 2 v.5: .space 4 .align 2 v.3: .space 4 .align 2 v.8: .space 4 .set v.1,v.7

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