[BACK]Return to chf.t2 CVS log [TXT] [DIR] Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst
File:  [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.bin / f77 / f77pass1 / tst / chf.t2
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
L18:
	.long	L17
	.align	2
L17:
.byte 050,02
.byte 0105,0162
.byte 0162,0157
.byte 0162,040
.byte 0151,0156
.byte 040,0143
.byte 0150,0141
.byte 0162,0141
.byte 0143,0164
.byte 0145,0162
.byte 040,0146
.byte 0165,0156
.byte 0143,0164
.byte 0151,0157
.byte 0156,0163
.byte 02,051
.byte 00,00
	.align	2
L19:
.byte 0101,00
	.align	2
L23:
.byte 00,00
	.data	2
	.data	1
	.data	0
	.align	2
L31:
	.long	L30
	.align	2
L30:
.byte 050,02
.byte 0151,0156
.byte 040,0147
.byte 0145,0164
.byte 0143,0150
.byte 0162,040
.byte 0167,0151
.byte 0164,0150
.byte 040,0151
.byte 0143,0150
.byte 040,075
.byte 040,02
.byte 054,0141
.byte 061,054
.byte 02,040
.byte 050,02
.byte 054,061
.byte 066,0162
.byte 054,0151
.byte 066,056
.byte 062,054
.byte 02,051
.byte 02,051
.byte 00,00
	.align	2
L33:
	.long	1
	.data	2
	.data	1
	.data	0
	.globl	_MAIN_
	.globl	_getchr_
	.globl	_s_wsfe
	.globl	_e_wsfe
	.globl	_s_stop
	.globl	_do_fio
	.align	2
	.stabs	"chf.f",0x64,0,0,0
.text
.globl	_MAIN_
.set	LF1,56
.set	LWM1,0x1800
.align	1
_MAIN_:.word	LWM1
subl3	$LF1,fp,sp
movl	$v.1,r11
pushl	$1
pushl	$L19
pushl	$1
subl3	$53,fp,-(sp)
callf	$20,_getchr_
movb	-53(fp),v.2-v.1(r11)
pushl	$1
pushl	$L19
pushl	$1
subl3	$54,fp,-(sp)
callf	$20,_getchr_
cmpb	v.2-v.1(r11),-54(fp)
jeql	L15
movl	L18,v.3+12
pushl	$v.3
callf	$8,_s_wsfe
callf	$4,_e_wsfe
L15:pushl	$0
pushl	$L23
callf	$12,_s_stop
ret#0
.globl	_getchr_
.set	LF2,56
.set	LWM2,0x1000
.align	1
_getchr_:.word	LWM2
subl3	$LF2,fp,sp
movl	fp,r12
movl	L31,v.5+12
pushl	$v.5
callf	$8,_s_wsfe
pushl	$1
pushl	12(r12)
pushl	$L33
callf	$16,_do_fio
cvtbl	*12(r12),r0
cvtbl	r0,-56(fp)
pushl	$4
subl3	$56,fp,-(sp)
pushl	$L33
callf	$16,_do_fio
callf	$4,_e_wsfe
movb	*12(r12),*4(r12)
ret#0

	.data	2
	.align	2
v.3:
	.long	0
	.long	6
	.space	8
v.2:
	.space	1
	.set	v.1,v.2

	.align	2
v.5:
	.long	0
	.long	6
	.space	8
unix.superglobalmegacorp.com

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