bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

conio with fixed width and proportional font support

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@1178 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
izydorst
2002-03-08 16:47:34 +00:00
parent d537134626
commit ae74057353
10 changed files with 96 additions and 92 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
libsrc/geos/conio/gotoxy.s
View File

@@ -3,29 +3,38 @@
; Maciej 'YTM/Elysium' Witkowiak
;
; 27.10.2001
; 06.03.2002
; void gotox (unsigned char x);
; void gotoy (unsigned char y);
; void gotoxy (unsigned char x, unsigned char y);
.export _gotox, _gotoy, _gotoxy
.export _gotox, _gotoy, _gotoxy, fixcursor
.import popa
.include "../inc/jumptab.inc"
.include "cursor.inc"
.include "../inc/cursor.inc"
_gotox: sta cursor_x
_gotox: sta cursor_c
jmp fixcursor
_gotoy: sta cursor_y
_gotoy: sta cursor_r
inc cursor_r
jmp fixcursor
_gotoxy: sta cursor_y
_gotoxy: sta cursor_r
inc cursor_r
jsr popa
sta cursor_x
sta cursor_c
; convert 8x8 x/y coordinates to GEOS hires
fixcursor:
lda cursor_c
sta cursor_x
lda #0
sta cursor_x+1
lda cursor_r
sta cursor_y
ldx #cursor_x
ldy #3
jsr DShiftLeft