![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to chf.t1 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.t1 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: 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:
77: .text
78: .globl _MAIN_
79: .align 1
80: _MAIN_:
81: .word LWM1
82: subl3 $LF1,fp,sp
83: jbr L12
84: L13:
85: pushl $1
86: pushl $L19
87: pushl $1
88: addl3 $-53,fp,r0
89: pushl r0
90: callf $20,_getchr_
91: movb -53(fp),v.2-v.1(r11)
92: pushl $1
93: pushl $L19
94: pushl $1
95: addl3 $-54,fp,r0
96: pushl r0
97: callf $20,_getchr_
98: cmpb v.2-v.1(r11),-54(fp)
99: jeql L15
100: movl L18,v.3+12
101: pushl $v.3
102: callf $8,_s_wsfe
103: callf $4,_e_wsfe
104: L15:
105: pushl $0
106: pushl $L23
107: callf $12,_s_stop
108: L14:
109: ret#0
110: L12:
111: movl $v.1,r11
112: jbr L13
113: .set LF1,56
114: .set LWM1,0x1800
115: .text
116: .globl _getchr_
117: .align 1
118: _getchr_:
119: .word LWM2
120: subl3 $LF2,fp,sp
121: jbr L25
122: L27:
123: movl L31,v.5+12
124: pushl $v.5
125: callf $8,_s_wsfe
126: pushl $1
127: pushl 12(r12)
128: pushl $L33
129: callf $16,_do_fio
130: cvtbl *12(r12),r0
131: cvtbl r0,r0
132: movl r0,-56(fp)
133: pushl $4
134: addl3 $-56,fp,r0
135: pushl r0
136: pushl $L33
137: callf $16,_do_fio
138: callf $4,_e_wsfe
139: movb *12(r12),*4(r12)
140: jbr L26
141: L26:
142: ret#0
143: L25:
144: movl fp,r12
145: jbr L27
146: .set LF2,56
147: .set LWM2,0x1000
148: .text
149: .data 2
150: .align 2
151: v.3:
152: .long 0
153: .long 6
154: .space 8
155: v.2:
156: .space 1
157: .set v.1,v.2
158:
159: .align 2
160: v.5:
161: .long 0
162: .long 6
163: .space 8
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.