![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to chf.t0 CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst|
Return to chf.t0 CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst |
1.1 root 1: .data 0
2: .align 2
3: L15:
4: .byte 0101,00
5: .align 2
6: L21:
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: L22:
26: .byte 00,00
27: .data 2
28: .data 1
29: .data 0
30: .align 2
31: L30:
32: .long 1
33: .align 2
34: L29:
35: .byte 050,02
36: .byte 0151,0156
37: .byte 040,0147
38: .byte 0145,0164
39: .byte 0143,0150
40: .byte 0162,040
41: .byte 0167,0151
42: .byte 0164,0150
43: .byte 040,0151
44: .byte 0143,0150
45: .byte 040,075
46: .byte 040,02
47: .byte 054,0141
48: .byte 061,054
49: .byte 02,040
50: .byte 050,02
51: .byte 054,061
52: .byte 066,0162
53: .byte 054,0151
54: .byte 066,056
55: .byte 062,054
56: .byte 02,051
57: .byte 02,051
58: .byte 00,00
59: .data 2
60: .data 1
61: .data 0
62: .globl _MAIN_
63: .globl _getchr_
64: .globl _s_wsfe
65: .globl _e_wsfe
66: .globl _s_stop
67: .globl _do_fio
68: .align 2
69: .stabs "chf.f",0x64,0,0,0
70:
71: .text
72: .globl _MAIN_
73: .align 1
74: _MAIN_:
75: .word LWM1
76: subl3 $LF1,fp,sp
77: jbr L12
78: L13:
79: pushl $1
80: pushl $L15
81: pushl $1
82: addl3 $-53,fp,r0
83: pushl r0
84: callf $20,_getchr_
85: movb -53(fp),v.2-v.1(r11)
86: pushl $1
87: pushl $L15
88: pushl $1
89: addl3 $-54,fp,r0
90: pushl r0
91: callf $20,_getchr_
92: cmpb v.2-v.1(r11),-54(fp)
93: jeql L17
94: pushl $v.3
95: callf $8,_s_wsfe
96: callf $4,_e_wsfe
97: L17:
98: pushl $0
99: pushl $L22
100: callf $12,_s_stop
101: L14:
102: ret#0
103: L12:
104: movl $v.1,r11
105: jbr L13
106: .set LF1,56
107: .set LWM1,0x1800
108: .text
109: .globl _getchr_
110: .align 1
111: _getchr_:
112: .word LWM2
113: subl3 $LF2,fp,sp
114: jbr L24
115: L26:
116: pushl $v.5
117: callf $8,_s_wsfe
118: pushl $1
119: pushl 12(r12)
120: pushl $L30
121: callf $16,_do_fio
122: cvtbl *12(r12),r0
123: cvtbl r0,r0
124: movl r0,-56(fp)
125: pushl $4
126: addl3 $-56,fp,r0
127: pushl r0
128: pushl $L30
129: callf $16,_do_fio
130: callf $4,_e_wsfe
131: movb *12(r12),*4(r12)
132: jbr L25
133: L25:
134: ret#0
135: L24:
136: movl fp,r12
137: jbr L26
138: .set LF2,56
139: .set LWM2,0x1000
140: .text
141: .data 2
142: .align 2
143: v.3:
144: .long 0
145: .long 6
146: .space 4
147: .long L21
148: v.2:
149: .space 1
150: .set v.1,v.2
151:
152: .align 2
153: v.5:
154: .long 0
155: .long 6
156: .space 4
157: .long L29
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.