From 8c5aebef815714b4ff5472ccc75479bff7919b80 Mon Sep 17 00:00:00 2001 From: Christian Groessler Date: Wed, 28 May 2014 23:38:22 +0200 Subject: [PATCH] cleanups and add comments --- libsrc/atari5200/conioscreen.s | 3 +++ libsrc/atari5200/setcursor.s | 46 +++------------------------------- 2 files changed, 7 insertions(+), 42 deletions(-) diff --git a/libsrc/atari5200/conioscreen.s b/libsrc/atari5200/conioscreen.s index ba47866ce..412dd582d 100644 --- 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 .include "atari5200.inc" diff --git a/libsrc/atari5200/setcursor.s b/libsrc/atari5200/setcursor.s index 00195f1cf..4cf8ebac7 100644 --- 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 - - .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 -- 2.39.5