;
; 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
	.import		popa, _gotoxy, cputdirect
	.importzp	tmp1

_chlinexy:
       	pha	    		; Save the length
	jsr	popa		; Get y
       	jsr    	_gotoxy		; Call this one, will pop params
	pla			; Restore the length

_chline:
   	cmp	#0		; Is the length zero?
   	beq	L9  		; Jump if done
	sta	tmp1
.ifdef DIRECT_SCREEN
L1:    	lda    	#$12+64		; Horizontal line, screen code
.else
L1:    	lda    	#$12 		; Horizontal line
.endif
   	jsr	cputdirect	; Direct output
   	dec	tmp1
	bne	L1
L9:	rts