More additions

git-svn-id: svn://svn.cc65.org/cc65/trunk@2128 b7a2c559-68d2-44c3-8de9-860c34a00d81
2003-05-02 15:00:45 +00:00
parent 51a9e4351b
commit 58b9530c2b
15 changed files with 522 additions and 0 deletions
--- a/libsrc/nes/cvline.s
+++ b/libsrc/nes/cvline.s
@@ -0,0 +1,32 @@
+;
+; Ullrich von Bassewitz, 08.08.1998
+;
+; void cvlinexy (unsigned char x, unsigned char y, unsigned char length);
+; void cvline (unsigned char length);
+;
+
+    	.export		_cvlinexy, _cvline
+	.import		popa, _gotoxy, putchar, newline
+	.importzp	tmp1
+
+        .include        "nes.inc"
+
+_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    	#CH_VLINE	; Vertical bar
+   	jsr	putchar		; Write, no cursor advance
+   	jsr	newline		; Advance cursor to next line
+	dec	tmp1
+	bne	L1
+L9:	rts
+
+
+