jget.s

来自「Version 6 Unix 核心源代码 Version 6 Unix 核心源」· S 代码 · 共 47 行

f = r5
.globl j,n
.globl input
.globl classtab
.globl jget

jget:
	inc	jgetc
3:
	mov	j(f),r1
	mov	r1,r0
	bic	$inpt-1,r0
	bic	r0,r1
	cmp	r0,inpr
	beq	1f
	inc	readc
	mov	r0,inpr
	mov	input,r0
	sys	seek
inpr:		1;0
	sys	read;inpb;inpt
2:
	cmp	r0,$inpt
	bge	1f
	clrb	inpb(r0)
	inc	r0
	br	2b
1:
	movb	inpb(r1),r0
	asl	r0
	bit	n(f),classtab(r0)
	beq	1f
	inc	j(f)
	inc	r1
	cmp	r1,$inpt
	blt	1b
	br	3b
1:
	asr	r0
	rts	pc
inpt = 128.
.bss
inpb:	. = .+inpt
.data
jgetc:	0
readc:	0