mirror of
https://github.com/cc65/cc65.git
synced 2024-12-23 19:29:37 +00:00
Add bordercolor and cvline
This commit is contained in:
parent
02e52fe24d
commit
256b22f1c7
15
libsrc/telestrat/bordercolor.s
Normal file
15
libsrc/telestrat/bordercolor.s
Normal file
@ -0,0 +1,15 @@
|
||||
;
|
||||
; Ullrich von Bassewitz, 06.08.1998
|
||||
;
|
||||
; unsigned char __fastcall__ bordercolor (unsigned char color);
|
||||
;
|
||||
|
||||
|
||||
.export _bordercolor
|
||||
|
||||
.include "telestrat.inc"
|
||||
|
||||
_bordercolor:
|
||||
; Nothing to do
|
||||
; Oric can't handle his border
|
||||
rts
|
36
libsrc/telestrat/cvline.s
Normal file
36
libsrc/telestrat/cvline.s
Normal file
@ -0,0 +1,36 @@
|
||||
;
|
||||
; Ullrich von Bassewitz, 2003-04-13
|
||||
;
|
||||
; void cvlinexy (unsigned char x, unsigned char y, unsigned char length);
|
||||
; void cvline (unsigned char length);
|
||||
;
|
||||
|
||||
.export _cvlinexy, _cvline
|
||||
|
||||
.import rvs, display_conio, update_adscr
|
||||
|
||||
.import popax
|
||||
|
||||
.include "telestrat.inc"
|
||||
|
||||
|
||||
_cvlinexy:
|
||||
pha ; Save the length
|
||||
jsr popax ; Get X and Y
|
||||
sta SCRY ; Store Y
|
||||
stx SCRX ; Store X
|
||||
jsr update_adscr
|
||||
pla ; Restore the length and run into _cvline
|
||||
|
||||
_cvline:
|
||||
tax ; Is the length zero?
|
||||
beq @L9 ; Jump if done
|
||||
@L1:
|
||||
lda #'|'
|
||||
ora rvs
|
||||
jsr display_conio
|
||||
@L2: dex
|
||||
bne @L1
|
||||
@L9: rts
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user