Return to chf.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/chf.t2, revision 1.1.1.1

1.1       root        1:        .data   0
                      2:        .align  2
                      3: L18:
                      4:        .long   L17
                      5:        .align  2
                      6: L17:
                      7: .byte 050,02
                      8: .byte 0105,0162
                      9: .byte 0162,0157
                     10: .byte 0162,040
                     11: .byte 0151,0156
                     12: .byte 040,0143
                     13: .byte 0150,0141
                     14: .byte 0162,0141
                     15: .byte 0143,0164
                     16: .byte 0145,0162
                     17: .byte 040,0146
                     18: .byte 0165,0156
                     19: .byte 0143,0164
                     20: .byte 0151,0157
                     21: .byte 0156,0163
                     22: .byte 02,051
                     23: .byte 00,00
                     24:        .align  2
                     25: L19:
                     26: .byte 0101,00
                     27:        .align  2
                     28: L23:
                     29: .byte 00,00
                     30:        .data   2
                     31:        .data   1
                     32:        .data   0
                     33:        .align  2
                     34: L31:
                     35:        .long   L30
                     36:        .align  2
                     37: L30:
                     38: .byte 050,02
                     39: .byte 0151,0156
                     40: .byte 040,0147
                     41: .byte 0145,0164
                     42: .byte 0143,0150
                     43: .byte 0162,040
                     44: .byte 0167,0151
                     45: .byte 0164,0150
                     46: .byte 040,0151
                     47: .byte 0143,0150
                     48: .byte 040,075
                     49: .byte 040,02
                     50: .byte 054,0141
                     51: .byte 061,054
                     52: .byte 02,040
                     53: .byte 050,02
                     54: .byte 054,061
                     55: .byte 066,0162
                     56: .byte 054,0151
                     57: .byte 066,056
                     58: .byte 062,054
                     59: .byte 02,051
                     60: .byte 02,051
                     61: .byte 00,00
                     62:        .align  2
                     63: L33:
                     64:        .long   1
                     65:        .data   2
                     66:        .data   1
                     67:        .data   0
                     68:        .globl  _MAIN_
                     69:        .globl  _getchr_
                     70:        .globl  _s_wsfe
                     71:        .globl  _e_wsfe
                     72:        .globl  _s_stop
                     73:        .globl  _do_fio
                     74:        .align  2
                     75:        .stabs  "chf.f",0x64,0,0,0
                     76: .text
                     77: .globl _MAIN_
                     78: .set   LF1,56
                     79: .set   LWM1,0x1800
                     80: .align 1
                     81: _MAIN_:.word   LWM1
                     82: subl3  $LF1,fp,sp
                     83: movl   $v.1,r11
                     84: pushl  $1
                     85: pushl  $L19
                     86: pushl  $1
                     87: subl3  $53,fp,-(sp)
                     88: callf  $20,_getchr_
                     89: movb   -53(fp),v.2-v.1(r11)
                     90: pushl  $1
                     91: pushl  $L19
                     92: pushl  $1
                     93: subl3  $54,fp,-(sp)
                     94: callf  $20,_getchr_
                     95: cmpb   v.2-v.1(r11),-54(fp)
                     96: jeql   L15
                     97: movl   L18,v.3+12
                     98: pushl  $v.3
                     99: callf  $8,_s_wsfe
                    100: callf  $4,_e_wsfe
                    101: L15:pushl      $0
                    102: pushl  $L23
                    103: callf  $12,_s_stop
                    104: ret#0
                    105: .globl _getchr_
                    106: .set   LF2,56
                    107: .set   LWM2,0x1000
                    108: .align 1
                    109: _getchr_:.word LWM2
                    110: subl3  $LF2,fp,sp
                    111: movl   fp,r12
                    112: movl   L31,v.5+12
                    113: pushl  $v.5
                    114: callf  $8,_s_wsfe
                    115: pushl  $1
                    116: pushl  12(r12)
                    117: pushl  $L33
                    118: callf  $16,_do_fio
                    119: cvtbl  *12(r12),r0
                    120: cvtbl  r0,-56(fp)
                    121: pushl  $4
                    122: subl3  $56,fp,-(sp)
                    123: pushl  $L33
                    124: callf  $16,_do_fio
                    125: callf  $4,_e_wsfe
                    126: movb   *12(r12),*4(r12)
                    127: ret#0
                    128: 
                    129:        .data   2
                    130:        .align  2
                    131: v.3:
                    132:        .long   0
                    133:        .long   6
                    134:        .space  8
                    135: v.2:
                    136:        .space  1
                    137:        .set    v.1,v.2
                    138: 
                    139:        .align  2
                    140: v.5:
                    141:        .long   0
                    142:        .long   6
                    143:        .space  8

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