[
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 chlinexy (unsigned char x, unsigned char y, unsigned char length);
; void chline (unsigned char length);
;
.export _chlinexy, _chline
.import popa, _gotoxy, cputdirect
.importzp tmp1
.include "jbit.inc"
_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
L1: lda #CH_HLINE ; Horizontal line, screen code
jsr cputdirect ; Direct output
dec tmp1
bne L1
L9: rts