Contributed files from Oliver Schmidt

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

libsrc/apple2enh/chline.s

@@ -0,0 +1,39 @@
+;
+; Ullrich von Bassewitz, 08.08.1998
+;
+; void chlinexy (unsigned char x, unsigned char y, unsigned char length);
+; void chline (unsigned char length);
+;
+
+	.export 	_chlinexy, _chline, chlinedirect
+	.import 	popa, _gotoxy, cputdirect
+	.importzp	tmp1
+
+	.include	"../apple2/apple2.inc"
+
+_chlinexy:
+       	pha	    		; Save the length
+	jsr	popa		; Get y
+       	jsr    	_gotoxy		; Call this one, will pop params
+	pla			; Restore the length and run into _chline
+
+_chline:
+	ldx	#'S'		; MouseText character
+	ldy	INVFLG
+	cpy	#$FF		; Normal character display mode?
+	beq	chlinedirect
+	ldx	#'-' | $80	; Horizontal line, screen code
+
+chlinedirect:
+	cmp	#$00		; Is the length zero?
+   	beq	L9  		; Jump if done
+	sta	tmp1
+L1:	txa			; Screen code
+   	jsr	cputdirect	; Direct output
+   	dec	tmp1
+	bne	L1
+L9:	rts
+
+
+
+