This commit was generated by cvs2svn to compensate for changes in r2,

which included commits to RCS files with non-trunk default branches.


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

libsrc/atari/cvline.s

@@ -0,0 +1,35 @@
+;
+; Ullrich von Bassewitz, 08.08.1998
+;
+; void cvlinexy (unsigned char x, unsigned char y, unsigned char length);
+; void cvline (unsigned char length);
+;
+	.include "atari.inc"
+	
+    	.export		_cvlinexy, _cvline
+	.import		popa, _gotoxy, putchar, newline
+	.importzp	tmp1
+
+_cvlinexy:
+       	pha	    		; Save the length
+	jsr	popa	        ; Get y
+       	jsr    	_gotoxy		; Call this one, will pop params
+   	pla			; Restore the length and run into _cvline
+
+_cvline:
+   	cmp	#0		; Is the length zero?
+   	beq	L9  		; Jump if done
+    	sta	tmp1
+L1:	lda	COLCRS
+	pha
+	lda	#$7C 		; Vertical bar
+   	jsr	putchar		; Write, no cursor advance
+   	pla
+   	sta	COLCRS
+   	inc	ROWCRS
+	dec	tmp1
+	bne	L1
+L9:	rts
+
+
+