[BACK]Return to chf.t0 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.t0
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
L15:
.byte 0101,00
	.align	2
L21:
.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
L22:
.byte 00,00
	.data	2
	.data	1
	.data	0
	.align	2
L30:
	.long	1
	.align	2
L29:
.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
	.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_
	.align	1
_MAIN_:
	.word	LWM1
	subl3	$LF1,fp,sp
	jbr	L12
L13:
	pushl	$1
	pushl	$L15
	pushl	$1
	addl3	$-53,fp,r0
	pushl	r0
	callf	$20,_getchr_
	movb	-53(fp),v.2-v.1(r11)
	pushl	$1
	pushl	$L15
	pushl	$1
	addl3	$-54,fp,r0
	pushl	r0
	callf	$20,_getchr_
	cmpb	v.2-v.1(r11),-54(fp)
	jeql	L17
	pushl	$v.3
	callf	$8,_s_wsfe
	callf	$4,_e_wsfe
L17:
	pushl	$0
	pushl	$L22
	callf	$12,_s_stop
L14:
	ret#0
L12:
	movl	$v.1,r11
	jbr	L13
	.set	LF1,56
	.set	LWM1,0x1800
.text
	.globl	_getchr_
	.align	1
_getchr_:
	.word	LWM2
	subl3	$LF2,fp,sp
	jbr	L24
L26:
	pushl	$v.5
	callf	$8,_s_wsfe
	pushl	$1
	pushl	12(r12)
	pushl	$L30
	callf	$16,_do_fio
	cvtbl	*12(r12),r0
	cvtbl	r0,r0
	movl	r0,-56(fp)
	pushl	$4
	addl3	$-56,fp,r0
	pushl	r0
	pushl	$L30
	callf	$16,_do_fio
	callf	$4,_e_wsfe
	movb	*12(r12),*4(r12)
	jbr	L25
L25:
	ret#0
L24:
	movl	fp,r12
	jbr	L26
	.set	LF2,56
	.set	LWM2,0x1000
.text
	.data	2
	.align	2
v.3:
	.long	0
	.long	6
	.space	4
	.long	L21
v.2:
	.space	1
	.set	v.1,v.2

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

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