[BACK]Return to util.s CVS log [TXT] [DIR] Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / sys / stand / vdfmt
File:  [Power 6/32 Unix Tahoe 4.2BSD] / cci / sys / stand / vdfmt / util.s
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Sun Jul 28 12:29:50 2019 UTC (7 years ago) by root
Branches: bsd, MAIN
CVS tags: v121, HEAD
Power 6/32 Unix version 1.21

	.file	"util.c"
	.data
.L83:
	.byte	0xa,0x44,0x72,0x69,0x76,0x65,0x20,0x69
	.byte	0x73,0x20,0x6e,0x6f,0x74,0x20,0x72,0x65
	.byte	0x61,0x64,0x79,0x21,0x0
.L86:
	.byte	0xa,0x49,0x6e,0x76,0x61,0x6c,0x69,0x64
	.byte	0x20,0x64,0x69,0x73,0x6b,0x20,0x61,0x64
	.byte	0x64,0x72,0x65,0x73,0x73,0x20,0x69,0x73
	.byte	0x73,0x75,0x65,0x64,0x21,0x0
.L89:
	.byte	0xa,0x4e,0x6f,0x6e,0x2d,0x65,0x78,0x69
	.byte	0x73,0x74,0x65,0x6e,0x74,0x20,0x6d,0x65
	.byte	0x6d,0x6f,0x72,0x79,0x20,0x65,0x72,0x72
	.byte	0x6f,0x72,0x21,0x0
.L92:
	.byte	0xa,0x4d,0x61,0x69,0x6e,0x20,0x6d,0x65
	.byte	0x6d,0x6f,0x72,0x79,0x20,0x70,0x61,0x72
	.byte	0x69,0x74,0x79,0x20,0x65,0x72,0x72,0x6f
	.byte	0x72,0x21,0x0
.L95:
	.byte	0xa,0x43,0x50,0x55,0x20,0x61,0x62,0x6f
	.byte	0x72,0x74,0x65,0x64,0x20,0x6f,0x70,0x65
	.byte	0x72,0x61,0x74,0x69,0x6f,0x6e,0x21,0x0
.L98:
	.byte	0xa,0x44,0x72,0x69,0x76,0x65,0x20,0x69
	.byte	0x73,0x20,0x77,0x72,0x69,0x74,0x65,0x20
	.byte	0x70,0x72,0x6f,0x74,0x65,0x63,0x74,0x65
	.byte	0x64,0x21,0x0
.L101:
	.byte	0xa,0x44,0x69,0x73,0x6b,0x20,0x73,0x65
	.byte	0x65,0x6b,0x20,0x65,0x72,0x72,0x6f,0x72
	.byte	0x21,0x0
.L103:
	.byte	0xa,0x4e,0x6f,0x74,0x20,0x6f,0x6e,0x20
	.byte	0x63,0x79,0x6c,0x69,0x6e,0x64,0x65,0x72
	.byte	0x20,0x65,0x72,0x72,0x6f,0x72,0x21,0x0
.L104:
	.byte	0x20,0x20,0x20,0x20,0x53,0x74,0x61,0x74
	.byte	0x75,0x73,0x20,0x3d,0x20,0x25,0x6c,0x78
	.byte	0xa,0x0
	.set	.R76,0x0
	.set	.R105,0x0
.L113:
	.byte	0x66,0x74,0x20,0x6c,0x69,0x6e,0x65,0x30
	.byte	0x2e,0x0
.L114:
	.byte	0x66,0x74,0x20,0x6c,0x69,0x6e,0x65,0x31
	.byte	0x2e,0x0
.L115:
	.byte	0x66,0x74,0x20,0x6c,0x69,0x6e,0x65,0x32
	.byte	0x2e,0x0
.L116:
	.byte	0x66,0x74,0x20,0x6c,0x69,0x6e,0x65,0x33
	.byte	0x2e,0x0
	.set	.R109,0x1c
	.set	.R118,0x4
.L126:
	.byte	0x66,0x73,0x20,0x6c,0x69,0x6e,0x65,0x30
	.byte	0x2e,0x0
.L127:
	.byte	0x66,0x73,0x20,0x6c,0x69,0x6e,0x65,0x31
	.byte	0x2e,0x0
.L128:
	.byte	0x66,0x73,0x20,0x6c,0x69,0x6e,0x65,0x32
	.byte	0x2e,0x0
	.set	.R122,0x1c
.L137:
	.byte	0x2a,0x2a,0x20,0x57,0x61,0x72,0x6e,0x69
	.byte	0x6e,0x67,0x20,0x2d,0x20,0x55,0x6e,0x61
	.byte	0x62,0x6c,0x65,0x20,0x74,0x6f,0x20,0x72
	.byte	0x65,0x6c,0x6f,0x63,0x61,0x74,0x65,0x20
	.byte	0x73,0x65,0x63,0x74,0x6f,0x72,0x20,0x25
	.byte	0x64,0x2c,0x0
.L138:
	.byte	0x74,0x6f,0x20,0x6d,0x61,0x70,0x20,0x6f
	.byte	0x75,0x74,0x20,0x75,0x73,0x65,0x69,0x6e
	.byte	0x67,0x20,0x42,0x41,0x44,0x53,0x45,0x43
	.byte	0x54,0x20,0x75,0x73,0x65,0x20,0x74,0x68
	.byte	0x65,0x20,0x66,0x6f,0x6c,0x6c,0x6f,0x77
	.byte	0x69,0x6e,0x67,0x20,0x76,0x61,0x6c,0x75
	.byte	0x65,0x73,0x3a,0xa,0x0
.L143:
	.byte	0x4f,0x6e,0x20,0x74,0x68,0x65,0x20,0x27
	.byte	0x25,0x63,0x27,0x20,0x50,0x61,0x72,0x74
	.byte	0x69,0x74,0x69,0x6f,0x6e,0x20,0x75,0x73
	.byte	0x65,0x20,0x62,0x6c,0x6f,0x63,0x6b,0x20
	.byte	0x25,0x64,0x2e,0xa,0x0
	.set	.R131,0x4
.L149:
	.byte	0x66,0x72,0x6f,0x6d,0x20,0x75,0x6e,0x69
	.byte	0x78,0x2e,0x0
.L151:
	.byte	0x6c,0x69,0x6e,0x65,0x20,0x31,0x2e,0x0
.L153:
	.byte	0x6c,0x69,0x6e,0x65,0x20,0x32,0x2e,0x0
.L154:
	.byte	0x6c,0x69,0x6e,0x65,0x20,0x33,0x2e,0x0
.L155:
	.byte	0x6c,0x69,0x6e,0x65,0x20,0x34,0x2e,0x0
.L156:
	.byte	0x6c,0x69,0x6e,0x65,0x20,0x35,0x2e,0x0
.L157:
	.byte	0x6c,0x69,0x6e,0x65,0x20,0x36,0x2e,0x0
.L158:
	.byte	0x6c,0x69,0x6e,0x65,0x20,0x37,0x2e,0x0
.L160:
	.byte	0x64,0x6f,0x6e,0x65,0x20,0x66,0x72,0x6f
	.byte	0x6d,0x20,0x75,0x6e,0x69,0x78,0x2e,0x0
	.set	.R145,0x1000
	.set	.R162,0x1800
	.set	.R168,0x1c00
.L181:
	.byte	0x28,0x25,0x64,0x3a,0x25,0x64,0x2c,0x25
	.byte	0x64,0x29,0x0
	.set	.R174,0x1e00
	.data
	.globl	_lastcyl
	.comm	_lastcyl,256
	.globl	_dkprf
	.comm	_dkprf,26368
	.globl	_skprf
	.comm	_skprf,26368
	.globl	_operations
	.comm	_operations,84
	.globl	_ops_to_do
	.comm	_ops_to_do,1024
	.globl	_reset_environ
	.comm	_reset_environ,56
	.globl	_quit_environ
	.comm	_quit_environ,56
	.globl	_abort_environ
	.comm	_abort_environ,56
	.globl	_cur
	.comm	_cur,24
	.globl	_c_info
	.comm	_c_info,256
	.globl	_d_info
	.comm	_d_info,3584
	.globl	_bs_map_space
	.comm	_bs_map_space,8192
	.globl	_bad_map
	.comm	_bad_map,4
	.globl	_kill_processes
	.comm	_kill_processes,4
	.globl	_num_controllers
	.comm	_num_controllers,4
	.globl	_free_tbl
	.comm	_free_tbl,36864
	.globl	_mdcb
	.comm	_mdcb,16
	.globl	_dcb
	.comm	_dcb,1048
	.globl	_pattern_0
	.comm	_pattern_0,32768
	.globl	_pattern_1
	.comm	_pattern_1,32768
	.globl	_pattern_2
	.comm	_pattern_2,32768
	.globl	_pattern_3
	.comm	_pattern_3,32768
	.globl	_pattern_4
	.comm	_pattern_4,32768
	.globl	_pattern_5
	.comm	_pattern_5,32768
	.globl	_pattern_6
	.comm	_pattern_6,32768
	.globl	_pattern_7
	.comm	_pattern_7,32768
	.globl	_pattern_8
	.comm	_pattern_8,32768
	.globl	_pattern_9
	.comm	_pattern_9,32768
	.globl	_pattern_10
	.comm	_pattern_10,32768
	.globl	_pattern_11
	.comm	_pattern_11,32768
	.globl	_pattern_12
	.comm	_pattern_12,32768
	.globl	_pattern_13
	.comm	_pattern_13,32768
	.globl	_pattern_14
	.comm	_pattern_14,32768
	.globl	_pattern_15
	.comm	_pattern_15,32768
	.globl	_pattern_address
	.comm	_pattern_address,64
	.globl	_scratch
	.comm	_scratch,32768
	.globl	_save
	.comm	_save,32768
	.text
	.align	2
	.globl	_data_ok
_data_ok:
	.word	.R76
	jbr 	.L78
.L79:
	bitl	$40148,4(fp)
	jeql	.L80
	bitl	$128,4(fp)
	jeql	.L81
	.text
	pushl	$.L83
	callf	$8,_printf
	jbr 	.L84
.L81:
	bitl	$1024,4(fp)
	jeql	.L85
	.text
	pushl	$.L86
	callf	$8,_printf
	jbr 	.L87
.L85:
	bitl	$2048,4(fp)
	jeql	.L88
	.text
	pushl	$.L89
	callf	$8,_printf
	jbr 	.L90
.L88:
	bitl	$4096,4(fp)
	jeql	.L91
	.text
	pushl	$.L92
	callf	$8,_printf
	jbr 	.L93
.L91:
	bitl	$32768,4(fp)
	jeql	.L94
	.text
	pushl	$.L95
	callf	$8,_printf
	jbr 	.L96
.L94:
	bitl	$4,4(fp)
	jeql	.L97
	.text
	pushl	$.L98
	callf	$8,_printf
	jbr 	.L99
.L97:
	bitl	$16,4(fp)
	jeql	.L100
	.text
	pushl	$.L101
	callf	$8,_printf
	jbr 	.L102
.L100:
	.text
	pushl	$.L103
	callf	$8,_printf
.L102:
.L99:
.L96:
.L93:
.L90:
.L87:
.L84:
	.text
	pushl	4(fp)
	pushl	$.L104
	callf	$12,_printf
	pushl	$-1
	pushl	$_abort_environ
	callf	$12,_longjmp
.L80:
	bitl	$8331304,4(fp)
	jneq	.L9999
	movl	$1,r0
	jbr	.L9998
.L9999:
	clrl	r0
.L9998:
	ret#1
	ret#1
.L78:
	jbr 	.L79
	.data
	.text
	.align	2
	.globl	_to_track
_to_track:
	.word	.R105
	jbr 	.L107
.L108:
	mull3	$448,_cur,r0
	addl2	$_d_info,r0
	mull3	$28,_cur+4,r1
	addl2	r1,r0
	movl	8(r0),r0
	movl	8(r0),r0
	cvtwl	6(fp),r1
	mull2	r1,r0
	cvtbl	4(fp),r1
	addl2	r1,r0
	ret#1
	ret#1
.L107:
	jbr 	.L108
	.data
	.text
	.align	2
	.globl	_from_track
_from_track:
	.word	.R109
	jbr 	.L111
.L112:
	.text
	pushl	$.L113
	callf	$8,_printf
	mull3	$448,_cur,r0
	addl2	$_d_info,r0
	mull3	$28,_cur+4,r1
	addl2	r1,r0
	movl	8(r0),r0
	divl3	8(r0),4(fp),r0
	cvtlw	r0,-54(fp)
	.text
	pushl	$.L114
	callf	$8,_printf
	mull3	$448,_cur,r0
	addl2	$_d_info,r0
	mull3	$28,_cur+4,r1
	addl2	r1,r0
	movl	8(r0),r0
	clrl	r2
	movl	4(fp),r3
	jgeq	.L9997
	mnegl	$1,r2
.L9997:
	ediv	8(r0),r2,r1,r4
	cvtlb	r4,-56(fp)
	.text
	pushl	$.L115
	callf	$8,_printf
	clrb	-55(fp)
	.text
	pushl	$.L116
	callf	$8,_printf
	subl3	$56,fp,r0
	jbr 	.L110
.L110:
	.data
	.align	4
.L117:	.space	4
	.text
	movab	.L117,r1
	movl	(r0),(r1)
	movab	.L117,r0
	ret#1
.L111:
	subl3	$56,fp,sp
	jbr 	.L112
	.data
	.text
	.align	2
	.globl	_to_sector
_to_sector:
	.word	.R118
	jbr 	.L120
.L121:
	movab	-4(sp),sp
	movl	4(fp),(sp)
	callf	$8,_to_track
	mull3	$448,_cur,r1
	addl2	$_d_info,r1
	mull3	$28,_cur+4,r2
	addl2	r2,r1
	movl	8(r1),r1
	mull2	4(r1),r0
	cvtbl	5(fp),r1
	addl2	r1,r0
	ret#1
	ret#1
.L120:
	jbr 	.L121
	.data
	.text
	.align	2
	.globl	_from_sector
_from_sector:
	.word	.R122
	jbr 	.L124
.L125:
	.text
	pushl	$.L126
	callf	$8,_printf
	mull3	$448,_cur,r0
	addl2	$_d_info,r0
	mull3	$28,_cur+4,r1
	addl2	r1,r0
	movl	8(r0),r0
	divl3	4(r0),4(fp),r0
	pushl	r0
	callf	$8,_from_track
	movl	(r0),-56(fp)
	.text
	pushl	$.L127
	callf	$8,_printf
	mull3	$448,_cur,r0
	addl2	$_d_info,r0
	mull3	$28,_cur+4,r1
	addl2	r1,r0
	movl	8(r0),r0
	clrl	r2
	movl	4(fp),r3
	jgeq	.L9996
	mnegl	$1,r2
.L9996:
	ediv	4(r0),r2,r1,r4
	cvtlb	r4,-55(fp)
	.text
	pushl	$.L128
	callf	$8,_printf
	subl3	$56,fp,r0
	jbr 	.L123
.L123:
	.data
	.align	4
.L129:	.space	4
	.text
	movab	.L129,r1
	movl	(r0),(r1)
	movab	.L129,r0
	ret#1
.L124:
	subl3	$56,fp,sp
	jbr 	.L125
	.data
	.text
	.align	2
	.globl	_print_unix_block
_print_unix_block:
	.word	.R131
	jbr 	.L133
.L134:
	mull3	$448,_cur,r0
	addl2	$_d_info,r0
	mull3	$28,_cur+4,r1
	addl2	r1,r0
	divl3	*8(r0),$1024,r0
	movl	r0,-64(fp)
	callf	$4,_indent
	movab	-4(sp),sp
	movl	4(fp),(sp)
	callf	$8,_to_sector
	divl2	-64(fp),r0
	movl	r0,-60(fp)
	.text
	movab	-4(sp),sp
	movl	4(fp),(sp)
	callf	$8,_to_sector
	pushl	r0
	pushl	$.L137
	callf	$12,_print
	callf	$4,_indent
	.text
	pushl	$.L138
	callf	$8,_print
	callf	$4,_indent
	clrb	-56(fp)
.L141:
	cmpb	-56(fp),$8
	jgeq	.L140
	cvtbl	-56(fp),r0
	mull3	$448,_cur,r1
	addl2	$_d_info,r1
	mull3	$28,_cur+4,r2
	addl2	r2,r1
	addl3	$96,8(r1),r1
	shll	$3,r0,r0
	addl2	r0,r1
	movl	(r1),-68(fp)
	mull3	$448,_cur,r0
	addl2	$_d_info,r0
	mull3	$28,_cur+4,r1
	addl2	r1,r0
	addl3	$96,8(r0),r0
	cvtbl	-56(fp),r1
	shll	$3,r1,r1
	addl2	r1,r0
	movl	4(r0),-72(fp)
	addl3	-72(fp),-68(fp),r0
	cmpl	-60(fp),r0
	jgeq	.L142
	cmpl	-60(fp),-68(fp)
	jlss	.L142
	.text
	subl3	-68(fp),-60(fp),r0
	pushl	r0
	cvtbl	-56(fp),r0
	addl2	$97,r0
	pushl	r0
	pushl	$.L143
	callf	$16,_print
.L142:
.L139:
	cvtbl	-56(fp),r0
	incb	-56(fp)
	jbr 	.L141
.L140:
	pushl	$3
	callf	$8,_exdent
	ret#2
.L133:
	subl3	$72,fp,sp
	jbr 	.L134
	.data
	.text
	.align	2
	.globl	_from_unix
_from_unix:
	.word	.R145
	jbr 	.L147
.L148:
	.text
	pushl	$.L149
	callf	$8,_printf
	movzbl	7(fp),-(sp)
	callf	$8,_tolower
	subl2	$97,r0
	movl	r0,r12
	.text
	pushl	$.L151
	callf	$8,_printf
	cmpl	r12,$8
	jgeq	.L152
	mull3	$448,_cur,r0
	addl2	$_d_info,r0
	mull3	$28,_cur+4,r1
	addl2	r1,r0
	addl3	$96,8(r0),r0
	shll	$3,r12,r1
	addl2	r1,r0
	cmpl	8(fp),4(r0)
	jgtru	.L152
	.text
	pushl	$.L153
	callf	$8,_printf
	mull3	$448,_cur,r0
	addl2	$_d_info,r0
	mull3	$28,_cur+4,r1
	addl2	r1,r0
	addl3	$96,8(r0),r0
	shll	$3,r12,r1
	addl2	r1,r0
	movl	(r0),-56(fp)
	.text
	pushl	$.L154
	callf	$8,_printf
	addl2	8(fp),-56(fp)
	.text
	pushl	$.L155
	callf	$8,_printf
	emul	$1024,-56(fp),$0,r0
	movl	r1,-56(fp)
	.text
	pushl	$.L156
	callf	$8,_printf
	mull3	$448,_cur,r0
	addl2	$_d_info,r0
	mull3	$28,_cur+4,r1
	addl2	r1,r0
	pushl	*8(r0)
	pushl	-56(fp)
	callf	$12,udiv
	movl	r0,-56(fp)
	.text
	pushl	$.L157
	callf	$8,_printf
	pushl	-56(fp)
	callf	$8,_from_sector
	movl	(r0),-60(fp)
	.text
	pushl	$.L158
	callf	$8,_printf
	jbr 	.L159
.L152:
	mnegw	$1,-58(fp)
	mnegb	$1,-60(fp)
	mnegb	$1,-59(fp)
.L159:
	.text
	pushl	$.L160
	callf	$8,_printf
	subl3	$60,fp,r0
	jbr 	.L146
.L146:
	.data
	.align	4
.L161:	.space	4
	.text
	movab	.L161,r1
	movl	(r0),(r1)
	movab	.L161,r0
	ret#1
.L147:
	subl3	$60,fp,sp
	jbr 	.L148
	.data
	.text
	.align	2
	.globl	_blkzero
_blkzero:
	.word	.R162
	jbr 	.L164
.L165:
	movl	4(fp),r12
	movl	8(fp),r11
.L166:
	movl	r11,r0
	decl	r11
	tstl	r0
	jeql	.L167
	clrb	(r12)
	incl	r12
	jbr 	.L166
.L167:
	ret#2
.L164:
	jbr 	.L165
	.data
	.text
	.align	2
	.globl	_blkcopy
_blkcopy:
	.word	.R168
	jbr 	.L170
.L171:
	movl	4(fp),r12
	movl	8(fp),r11
	movl	12(fp),r10
.L172:
	movl	r10,r0
	decl	r10
	tstl	r0
	jeql	.L173
	movb	(r12),(r11)
	incl	r12
	incl	r11
	jbr 	.L172
.L173:
	ret#2
.L170:
	jbr 	.L171
	.data
	.text
	.align	2
	.globl	_blkcmp
_blkcmp:
	.word	.R174
	jbr 	.L176
.L177:
	movl	4(fp),r12
	movl	8(fp),r11
	movl	12(fp),r10
	clrl	r9
.L178:
	movl	r10,r0
	decl	r10
	tstl	r0
	jeql	.L179
	movl	r12,r0
	incl	r12
	movl	r11,r1
	incl	r11
	cmpb	(r0),(r1)
	jeql	.L180
	.text
	pushb	-1(r11)
	pushb	-1(r12)
	pushl	r9
	pushl	$.L181
	callf	$20,_printf
	clrl	r0
	ret#1
.L180:
	incl	r9
	jbr 	.L178
.L179:
	movl	$1,r0
	ret#1
	ret#1
.L176:
	jbr 	.L177
	.data
unix.superglobalmegacorp.com

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