cleanups and add comments

diff --git a/libsrc/atari5200/conioscreen.s b/libsrc/atari5200/conioscreen.s
index ba47866ce906d0f7c33f723b3f9a1166726bd6df..412dd582d6ddc8c8eafe890107535fbb10a46451 100644 (file)
--- a/libsrc/atari5200/conioscreen.s
+++ b/libsrc/atari5200/conioscreen.s
@@ -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"
 

diff --git a/libsrc/atari5200/setcursor.s b/libsrc/atari5200/setcursor.s
index 00195f1cfb395d2cddeac68f95f88d4942cc8657..4cf8ebac7b577f3e7c489c326a9e3b80e7dbf2da 100644 (file)
--- a/libsrc/atari5200/setcursor.s
+++ b/libsrc/atari5200/setcursor.s
@@ -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