Get JBit at SourceForge.net. Fast, secure and Free Open Source software downloads

[ Home | Documentation | Gallery | Download | Demo | GameKit ]
[ Info | MIDlet | Sheets | SDK ]

Demo (SDK)

Programs
Assembly: bgcol1 bgcol2 charset ciao fill1 fill2 gamekeys idummy iload ipnggen1 ipnggen2 irawrgba keypad loop1 loop2 loop3 maze resize setpal sprites stdpal tiles vintage C: bounce cciao clock cpubm dpyinfo fps gperf hello mandelbrot newline pngtest rand time

Support Files
c64jb.c cgetc.s chline.s clock.s clrscr.s color.s cputc.s crt0.s ctype.s cvline.s gotox.s gotoxy.s gotoy.s header.s jbit.cfg jbit.h jbit.inc kbhit.s mainargs.s randomize.s vsync.s wherex.s wherey.s _scrsize.s _systime.s

;
; Ullrich von Bassewitz, 08.08.1998
; JBit port by Emanuele Fornara
;
; 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        "jbit.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




cvline.s