Return to com.t2 CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst

Annotation of cci/usr/src/usr.bin/f77/f77pass1/tst/com.t2, revision 1.1.1.1

1.1       root        1:        .data   0
                      2:        .align  2
                      3: L15:
                      4:        .long   3
                      5:        .align  2
                      6: L16:
                      7:        .long   1
                      8:        .align  2
                      9: L17:
                     10: .byte 00,00
                     11:        .data   2
                     12:        .data   1
                     13:        .data   0
                     14:        .globl  _com_
                     15:        .globl  _MAIN_
                     16:        .comm   _x_,16
                     17:        .globl  _s_wsle
                     18:        .globl  _do_lio
                     19:        .globl  _e_wsle
                     20:        .globl  _s_stop
                     21:        .align  2
                     22:        .stabs  "com.f",0x64,0,0,0
                     23: .text
                     24: .globl _MAIN_
                     25: .set   LF1,52
                     26: .set   LWM1,0x1800
                     27: .align 1
                     28: _MAIN_:.word   LWM1
                     29: subl3  $LF1,fp,sp
                     30: jbr    L12
                     31: .align 1
                     32: _com_:.word    LWM1
                     33: L12:movl       $v.1,r11
                     34: movl   $2,_x_
                     35: movl   $3,_x_+4
                     36: movl   $4,_x_+8
                     37: movl   $5,_x_+12
                     38: mull3  _x_+4,_x_,r0
                     39: mull3  _x_+12,_x_+8,r1
                     40: addl3  r1,r0,v.2-v.1(r11)
                     41: pushl  $v.3
                     42: callf  $8,_s_wsle
                     43: pushl  $4
                     44: addl3  $v.2-v.1,r11,-(sp)
                     45: pushl  $L16
                     46: pushl  $L15
                     47: callf  $20,_do_lio
                     48: callf  $4,_e_wsle
                     49: pushl  $0
                     50: pushl  $L17
                     51: callf  $12,_s_stop
                     52: ret#0
                     53: 
                     54:        .data   2
                     55:        .align  2
                     56: v.3:
                     57:        .long   0
                     58:        .long   6
                     59:        .space  4
                     60:        .long   0
                     61:        .align  2
                     62: v.2:
                     63:        .space  4
                     64:        .set    v.1,v.2
                     65: 

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