6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 04:30:10 +00:00
Code Issues Projects Releases Wiki Activity

Fix comments, return line and bordercolor return

Browse Source
This commit is contained in:
jede 2021-03-03 22:14:29 +01:00
parent cdbe23c351
commit 872739b5f4
4 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
include/telestrat.h
View File

@ -121,3 +121,9 @@ void shoot();
void explode();
void kbdclick1();
/* The following #defines will cause the matching functions calls in conio.h
** to be overlaid by macros with the same names, saving the function call
** overhead.
*/
#define _bordercolor(color) COLOR_BLACK

5
libsrc/telestrat/bordercolor.s
View File

@ -9,8 +9,5 @@
.include "telestrat.inc"
_bordercolor:
; Nothing to do
; Oric can't handle his border
rts
_bordercolor := return0

8
libsrc/telestrat/clrscr.s
View File

@ -23,9 +23,9 @@
; reset prompt position
lda #<(SCREEN)
lda #<SCREEN
sta ADSCR
lda #>(SCREEN)
lda #>SCREEN
sta ADSCR+1
lda #$00
@ -36,10 +36,10 @@
stx SCRY
stx SCRX
stx OLD_BGCOLOR ; black
stx OLD_BGCOLOR ; Black
stx BGCOLOR
ldx #$07 ; white
ldx #$07 ; White
stx OLD_CHARCOLOR
stx CHARCOLOR

15
libsrc/telestrat/cputc.s
View File

@ -4,7 +4,8 @@
; void cputc (char c);
;
.export _cputc, _cputcxy, cputdirect, display_conio, CHARCOLOR, OLD_CHARCOLOR, BGCOLOR, OLD_BGCOLOR
.export _cputc, _cputcxy, cputdirect, display_conio
.export CHARCOLOR, OLD_CHARCOLOR, BGCOLOR, OLD_BGCOLOR
.import update_adscr
@ -14,10 +15,10 @@
cputdirect:
_cputcxy:
pha ; Save C
jsr popax ; Get X and Y
sta SCRY ; Store Y
stx SCRX ; Store X
pha ; Save C
jsr popax ; Get X and Y
sta SCRY ; Store Y
stx SCRX ; Store X
jsr update_adscr
pla
@ -34,9 +35,7 @@ _cputcxy:
inc SCRY
jmp update_adscr
@not_LF:
ldx CHARCOLOR
cpx OLD_CHARCOLOR
beq do_not_change_color_foreground
@ -87,8 +86,6 @@ do_not_change_color:
rts
.endproc
.bss
CHARCOLOR:
.res 1