Renamed the old geos target to geos-cbm.

git-svn-id: svn://svn.cc65.org/cc65/trunk@5343 b7a2c559-68d2-44c3-8de9-860c34a00d81

libsrc/geos-cbm/conio/cvline.s

@@ -0,0 +1,46 @@
+;
+; Maciej 'YTM/Elysium' Witkowiak
+;
+; 06.03.2002
+
+; void cvlinexy (unsigned char x, unsigned char y, unsigned char length);
+; void cvline (unsigned char length);
+
+	    .include "../inc/jumptab.inc"
+	    .include "../inc/geossym.inc"
+
+    	    .export		_cvlinexy, _cvline
+	    .import		popa, _gotoxy, fixcursor
+	    .importzp		cursor_x, cursor_y, cursor_r
+
+_cvlinexy:
+       	pha	    		; Save the length
+	jsr	popa		; Get y
+       	jsr    	_gotoxy		; Call this one, will pop params
+	pla			; Restore the length
+
+_cvline:
+   	cmp	#0		; Is the length zero?
+   	beq	L9  		; Jump if done
+	tax
+	lda	cursor_x	; x position
+	clc
+	adc	#4		; in the middle of cell
+	sta	r4L
+	lda	cursor_x+1
+	adc	#0
+	sta	r4L+1
+	lda	cursor_y	; top start
+	sta	r3L
+	txa			; bottom end
+	clc
+	adc	cursor_r
+	sta	cursor_r
+	sta	r3H
+	asl	r3H
+	asl	r3H
+	asl	r3H
+	lda	#%11111111	; pattern
+	jsr	VerticalLine
+	jsr	fixcursor
+L9:	rts