atari5200 update: simple conio "hello world" works now

2014-04-25 03:02:44 +02:00
parent ec417c0dc5
commit 92b32d7d0e
7 changed files with 252 additions and 14 deletions
--- a/libsrc/atari5200/setcursor.s
+++ b/libsrc/atari5200/setcursor.s
@@ -0,0 +1,49 @@
+
+
+        .include "atari5200.inc"
+	.export	setcursor
+	.import	cursor	; from conio/_cursor.s
+
+
+
+.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