diff --git a/WEGA/src/uts/dev/clist.s b/WEGA/src/uts/dev/clist.s
index f3d6a05..eee2209 100644
--- a/WEGA/src/uts/dev/clist.s
+++ b/WEGA/src/uts/dev/clist.s
@@ -26,44 +26,44 @@
 
 _putcf::
 {
-	ldctl	r1,fcw
-	di	vi,nvi
+	ldctl	r1,fcw		//save processor status
+	di	vi,nvi		//dvi
 	ldl	rr4,_cfreelist
-	ldl	@rr6,rr4
-	ldl	_cfreelist,rr6
-	ldctl	fcw,r1
+	ldl	@rr6,rr4	//cbptr->c_next = cfreelist.c_next
+	ldl	_cfreelist,rr6	//cfreelist.c_next = cbptr
+	ldctl	fcw,r1		//restore processor status
 	ret
 	}	/* _putcf */
 
 _getcf::
 {
-	ldctl	r1,fcw
-	di	vi,nvi
-	ldl	rr2,_cfreelist
+	ldctl	r1,fcw		//save processor status
+	di	vi,nvi		//dvi
+	ldl	rr2,_cfreelist	//rr2 = cfreelist
 	testl	rr2
-	jr	z,~egetcf
+	jr	z,~end		//if its 0, then just return.
 
 	ldl	rr4,@rr2
-	ldl	_cfreelist,rr4
+	ldl	_cfreelist,rr4	//cfreelist.c_next = cfreelist.c_next->c_next
 
-	subl	rr6,rr6
-	ldl	@rr2,rr6
+	subl	rr6,rr6		
+	ldl	@rr2,rr6	//clear c_next in cblock
 	ld	r0,_cfreelist+4
 	ld	rr2(#4),r0
-~egetcf:
-	ldctl	fcw,r1
+~end:
+	ldctl	fcw,r1		//restore processor status
 	ret
 	}
 
 _getcb::
 {
-	ldctl	r1,fcw
-	di	vi,nvi
-	ldl	rr2,rr6(#2)
+	ldctl	r1,fcw		//save processor status
+	di	vi,nvi		//dvi
+	ldl	rr2,rr6(#2)	//rr2 = ptr->c_cf
 	testl	rr2
-	jr	z,~egetcb
+	jr	z,~end		//if its 0, then just return.
 
-	ld	r0,rr2(#4)
+	ld	r0,rr2(#4)	
 	subb	rl0,rh0
 	subb	rh0,rh0
 	ld	r4,@rr6
@@ -72,29 +72,29 @@ _getcb::
 	ldl	rr4,@rr2
 	ldl	rr6(#2),rr4
 	testl	rr4
-	jpr	ne,~egetcb
+	jpr	ne,~end
 	subl	rr4,rr4
 	ldl	rr6(#6),rr4
-~egetcb:
-	ldctl	fcw,r1
+~end:
+	ldctl	fcw,r1		//restore processor status
 	ret
 	}
 
 _putcb::
 {
-	ldctl	r1,fcw
+	ldctl	r1,fcw		//save processor status
 	push	@r14,r1
-	di	vi,nvi
+	di	vi,nvi		//dvi
 	ldl	rr2,rr4(#6)
 	testl	rr2
-	jpr	ne,~else_putcb
+	jpr	ne,L1
 	ldl	rr4(#2),rr6
 	ldl	rr4(#6),rr6
-	jpr	~endif_putcb
-~else_putcb:
+	jpr	L2
+L1:
 	ldl	rr4(#6),rr6
 	ldl	@rr2,rr6
-~endif_putcb:
+L2:
 	subl	rr0,rr0
 	ldl	@rr6,rr0
 	ld	r1,rr6(#4)
@@ -104,17 +104,17 @@ _putcb::
 	add	r0,r1
 	ld	@rr4,r0
 	pop	r1,@rr14
-	ldctl	fcw,r1
+	ldctl	fcw,r1		//restore processor status
 	ret
 	}
 
 _getc::
 {
-	ldctl	r1,fcw
+	ldctl	r1,fcw		//save processor status
 	push	@r14,r1
-	di	vi,nvi
+	di	vi,nvi		//dvi
 	dec	@rr6,#1
-	jpr	lt,~else_getc
+	jpr	lt,L3
 	ldl	rr2,rr6(#2)
 	lda	rr4,rr2(#4)
 	ldb	rl1,@rr4
@@ -122,49 +122,49 @@ _getc::
 	subb	rh1,rh1
 	ldb	rl0,rr2(#5)
 	cpb	rl0,@rr4
-	jr	eq,~endif_getc
+	jr	eq,L4
 	inc	r5,#2
 	add	r5,r1
 	ldb	rl2,@rr4
 	subb	rh2,rh2
-~egetc:
+~end:
 	pop	r1,@rr14
-	ldctl	fcw,r1
+	ldctl	fcw,r1		//restore processor status
 	ret
-~else_getc:
+L3:
 	inc	@rr6,#1
 	ld	r2,#-1
-	jpr	~egetc
-~endif_getc:
+	jpr	~end
+L4:
 	inc	r5,#2
 	add	r5,r1
 	ldb	rl0,@rr4
 	ldl	rr4,@rr2
 	ldl	rr6(#2),rr4
 	testl	rr4
-	jpr	ne,~else2_getc
+	jpr	ne,L5
 	ldl	rr6(#6),rr4
-~else2_getc:
+L5:
 	ldl	rr4,_cfreelist	//get link to first free cblock
 	ldl	@rr2,rr4	//put it into link of new free cblock
 	ldl	_cfreelist,rr2	//put address of new free cblock into cfreelist
 	ldb	rl2,rl0
 	subb	rh2,rh2
-	jpr	~egetc
+	jpr	~end
 	}
 
 _putc::
 {
-	ldctl	r6,fcw
-	di	vi,nvi
+	ldctl	r6,fcw		//save processor status
+	di	vi,nvi		//dvi
 	ldl	rr2,rr4(#6)
 	testl	rr2
-	jpr	eq,~else_putc
-~L0:
+	jpr	eq,L7
+L6:
 	ldb	rl0,rr2(#5)
 	subb	rh0,rh0
 	cp	r0,_cfreelist+4
-	jpr	ge,~endif2_putc
+	jpr	ge,L10
 	inc	@rr4,#1
 	lda	rr4,rr2(#6)
 	add	r5,r0
@@ -172,31 +172,31 @@ _putc::
 	incb	rl0,#1
 	ldb	rr2(#5),rl0
 	clr	r2
-~eputc:
-	ldctl	fcw,r6
+~end:
+	ldctl	fcw,r6		//restore processor status
 	ret
-~else_putc:
+L7:
 	ldl	rr2,_cfreelist
 	testl	rr2
-	jpr	eq,~endif_putc
+	jpr	eq,L9
 	ldl	rr4(#2),rr2
-~L1:
+L8:
 	ldl	rr0,@rr2
 	ldl	_cfreelist,rr0
 	clr	@rr2
 	subl	rr0,rr0
 	ldl	rr2(#2),rr0
 	ldl	rr4(#6),rr2
-	jpr	~L0
-~endif_putc:
+	jpr	L6
+L9:
 	ld	r2,#-1
-	jpr	~eputc
-~endif2_putc:
+	jpr	~end
+L10:
 	ldl	rr0,_cfreelist
 	testl	rr0
-	jpr	eq,~endif_putc
+	jpr	eq,L9
 	ldl	@rr2,rr0
 	ldl	rr2,rr0
-	jpr	~L1
+	jpr	L8
 	
 	}