empathicqubit/cc65
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

cleanups and add comments

Browse source
This commit is contained in:
Christian Groessler 2014-05-28 23:38:22 +02:00
parent 98195a516e
commit 8c5aebef81
2 changed files with 7 additions and 42 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
libsrc/atari5200/conioscreen.s
View file

@ -1,3 +1,6 @@
; setup default CONIO screen (20x24, Antic mode 6, BASIC mode 1)
;
; 28-May-2014, Christian Groessler <chris@groessler.org>
.include "atari5200.inc"

46
libsrc/atari5200/setcursor.s
View file

@ -1,49 +1,11 @@
; Dummy version, there is no visible cursor in the default CONIO screen
;
; 28-May-2014, Christian Groessler <chris@groessler.org>
.include "atari5200.inc"
.export setcursor
.import cursor ; from conio/_cursor.s
.export setcursor
.proc setcursor
rts
.if 0
ldy #0
lda ROWCRS_5200
jsr mul20
clc
; adc SAVMSC ; add start of screen memory
; sta OLDADR
txa
; adc SAVMSC+1
; sta OLDADR+1
lda COLCRS_5200
; adc OLDADR
; sta OLDADR
bcc nc
; inc OLDADR+1
nc:;;; lda (OLDADR),y
; sta OLDCHR
ldx cursor ; current cursor setting as requested by the user
beq off
ldx #0
beq cont
off: inx
cont:;;; stx CRSINH ; update system variable
beq turnon
and #$7f ; clear high bit / inverse flag
finish: ;;;sta (OLDADR),y ; update on-screen display
rts
turnon: ora #$80 ; set high bit / inverse flag
bne finish
.endif
.endproc