SysIII/usr/src/uts/vax/ml/clist.s

.data
.text
LL0:.align	1
.globl	_getc
.set	.R1,0xf00
.data
.text
_getc:.word	.R1
movl	4(ap),r11
calls	$0,_spl6
movl	r0,r8
tstl	(r11)
jleq	L22
decl	(r11)
movl	4(r11),r10
cvtbl	4(r10),r0
incb	4(r10)
cvtbl	6(r10)[r0],r0
movzbl	r0,r9
cmpb	4(r10),5(r10)
jneq	L25
movl	(r10),4(r11)
jneq	L24
clrl	8(r11)
L24:movl	_cfreeli,(r10)
movl	r10,_cfreeli
jbr	L25
L22:mnegl	$1,r9
L25:pushl	r8
calls	$1,_splx
movl	r9,r0
ret
.align	1
.globl	_putc
.set	.R2,0xf00
.data
.text
_putc:.word	.R2
movl	8(ap),r11
calls	$0,_spl6
movl	r0,r8
movl	8(r11),r10
jeql	L9999
cvtbl	5(r10),r0
cmpl	r0,_cfreeli+4
jneq	L31
L9999:movl	r10,r9
movl	_cfreeli,r10
jneq	L32
pushl	r8
calls	$1,_splx
mnegl	$1,r0
ret
L32:movl	(r10),_cfreeli
clrl	(r10)
clrb	5(r10)
movb	5(r10),4(r10)
tstl	r9
jneq	L33
movl	r10,4(r11)
jbr	L34
L33:movl	r10,(r9)
L34:movl	r10,8(r11)
L31:cvtbl	5(r10),r0
incb	5(r10)
cvtlb	4(ap),6(r10)[r0]
incl	(r11)
pushl	r8
calls	$1,_splx
clrl	r0
ret
.align	1
.globl	_getcf
.set	.R3,0xc00
.data
.text
_getcf:.word	.R3
calls	$0,_spl6
movl	r0,r10
movl	_cfreeli,r11
jeql	L38
movl	(r11),_cfreeli
clrl	(r11)
clrb	4(r11)
cvtlb	_cfreeli+4,5(r11)
L38:pushl	r10
calls	$1,_splx
movl	r11,r0
ret
.align	1
.globl	_putcf
.set	.R4,0xc00
.data
.text
_putcf:.word	.R4
movl	4(ap),r11
calls	$0,_spl6
movl	r0,r10
movl	_cfreeli,(r11)
movl	r11,_cfreeli
pushl	r10
calls	$1,_splx
ret
.align	1
.globl	_getcb
.set	.R5,0xe00
.data
.text
_getcb:.word	.R5
movl	4(ap),r11
calls	$0,_spl6
movl	r0,r9
movl	4(r11),r10
jeql	L46
cvtbl	5(r10),r0
cvtbl	4(r10),r1
subl2	r1,r0
subl2	r0,(r11)
movl	(r10),4(r11)
jneq	L46
clrl	8(r11)
L46:pushl	r9
calls	$1,_splx
movl	r10,r0
ret
.align	1
.globl	_putcb
.set	.R6,0xf00
.data
.text
_putcb:.word	.R6
movl	4(ap),r11
movl	8(ap),r10
calls	$0,_spl6
movl	r0,r8
movl	8(r10),r9
jneq	L52
movl	r11,4(r10)
jbr	L53
L52:movl	r11,(r9)
L53:movl	r11,8(r10)
clrl	(r11)
cvtbl	5(r11),r0
cvtbl	4(r11),r1
subl2	r1,r0
addl2	r0,(r10)
pushl	r8
calls	$1,_splx
clrl	r0
ret