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/cursor.s
View File

@@ -7,29 +7,22 @@
; unsigned char cursor (unsigned char onoff);
.export _cursor
.import update_cursor
.include "../inc/jumptab.inc"
.include "../inc/geossym.inc"
.include "cursor.inc"
.include "../inc/cursor.inc"
_cursor:
tay ; onoff into Y
ldx #0 ; High byte of result
ldx cursor_flag ; Get old value
lda cursor_flag ; Get old value
pha
sty cursor_flag ; Set new value
tya
beq L1
lda curHeight ; prepare cursor
jsr InitTextPrompt
lda cursor_x ; position it on screen
sta r4L
lda cursor_x+1
sta r4H
lda cursor_y
sec
sbc curHeight
sta r5L
lda #1
sta r3L
jsr PosSprite
L1: rts
jsr update_cursor ; place it on screen
L1: pla
rts