[
Home |
Documentation |
Gallery |
Download |
Demo |
GameKit
]
[
Info |
MIDlet |
Sheets |
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