6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-09-29 02:55:20 +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 ; cc65 runtime zero page variables
COLCRS_5200 = $19 ROWCRS_5200 = $19
ROWCRS_5200 = $1A COLCRS_5200 = $1A
SAVMSC = $1B ; pointer to screen memory (conio) SAVMSC = $1B ; pointer to screen memory (conio)
;------------------------------------------------------------------------- ;-------------------------------------------------------------------------

13
libsrc/atari5200/conioscreen.s
View File

@ -31,6 +31,19 @@ clrscr: sta (SAVMSC),y
cpx #$FF cpx #$FF
bne clrscr 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 ; set display list
lda #<dlist lda #<dlist

3
libsrc/atari5200/cputc.s
View File

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

2
libsrc/atari5200/gotox.s
View File

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

2
libsrc/atari5200/gotoxy.s
View File

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