6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-09-28 10:55:43 +00:00
Code Issues Projects Releases Wiki Activity

some CONIO fixes

Browse Source
This commit is contained in:
Christian Groessler 2014-05-16 02:10:19 +02:00
parent 8cb68071cd
commit 0f2f19ef5b
5 changed files with 43 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
asminc/atari5200.inc
View File

@ -57,8 +57,8 @@ PADDL7 = $18 ;POT7 "
; cc65 runtime zero page variables
COLCRS_5200 = $19
ROWCRS_5200 = $1A
ROWCRS_5200 = $19
COLCRS_5200 = $1A
SAVMSC = $1B ; pointer to screen memory (conio)
;-------------------------------------------------------------------------

13
libsrc/atari5200/conioscreen.s
View File

@ -31,6 +31,19 @@ clrscr: sta (SAVMSC),y
cpx #$FF
bne clrscr
; set default colors
lda #40
sta COLOR0
lda #202
sta COLOR1
lda #148
sta COLOR2
lda #70
sta COLOR3
lda #0
sta COLOR4
; set display list
lda #<dlist

3
libsrc/atari5200/cputc.s
View File

@ -54,7 +54,7 @@ cputdirect: ; accepts screen code
; advance cursor
inc COLCRS_5200
lda COLCRS_5200
cmp #40
cmp #20
bcc plot
lda #0
sta COLCRS_5200
@ -72,7 +72,6 @@ plot: jsr setcursor
ldx ROWCRS_5200
rts
; turn off cursor, update screen, turn on cursor
putchar:
pha ; save char

2
libsrc/atari5200/gotox.s
View File

@ -10,6 +10,4 @@
_gotox:
sta COLCRS_5200 ; Set X
lda #0
sta COLCRS_5200+1
jmp setcursor

2
libsrc/atari5200/gotoxy.s
View File

@ -14,6 +14,4 @@ _gotoxy: ; Set the cursor position
sta ROWCRS_5200 ; Set Y
jsr popa ; Get X
sta COLCRS_5200 ; Set X
lda #0
sta COLCRS_5200+1 ;
jmp setcursor