Reworked version by Oliver Schmidt

git-svn-id: svn://svn.cc65.org/cc65/trunk@2913 b7a2c559-68d2-44c3-8de9-860c34a00d81
2004-03-11 21:54:22 +00:00
parent 5f2569ef28
commit a57deeb58a
25 changed files with 499 additions and 364 deletions
--- a/libsrc/apple2/cvline.s
+++ b/libsrc/apple2/cvline.s
@@ -5,7 +5,7 @@
 ; void cvline (unsigned char length);
 ;

-    	.export		_cvlinexy, _cvline
+	.export 	_cvlinexy, _cvline, cvlinedirect
 	.import		popa, _gotoxy, putchar, newline
 	.importzp	tmp1

@@ -16,15 +16,15 @@ _cvlinexy:
   	pla			; Restore the length and run into _cvline

 _cvline:
-   	cmp	#0		; Is the length zero?
+	ldx	#'!' | $80	; Vertical line, screen code
+
+cvlinedirect:
+	cmp	#$00		; Is the length zero?
   	beq	L9  		; Jump if done
    	sta	tmp1
-L1:	lda	#$7C 		; Vertical bar
+L1:	txa			; Screen code
   	jsr	putchar		; Write, no cursor advance
   	jsr	newline		; Advance cursor to next line
 	dec	tmp1
 	bne	L1
 L9:	rts
-
-
-