Split files

2022-04-16 21:13:51 +03:00
parent cdc6e1c61f
commit 422d245cab
4 changed files with 85 additions and 92 deletions
--- a/libsrc/atari7800/textcolor.s
+++ b/libsrc/atari7800/textcolor.s
@@ -0,0 +1,58 @@
+;
+; Karri Kaksonen, 2022-04-16
+;
+;
+
+        .export         _textcolor
+        .export         txtcolor
+
+        .include        "atari7800.inc"
+
+        .data
+;-----------------------------------------------------------------------------
+; Holder of the text colour offset
+; 0 = red, 42 = green, 84 = white
+;
+txtcolor:
+        .byte   0
+
+        .code
+
+;-----------------------------------------------------------------------------
+; Change the text colour
+;
+; Logical colour names are
+; 0 = red
+; 1 = green
+; 2 = white
+;
+; The routine will also return the previous textcolor
+;
+        .proc   _textcolor
+
+        beq     @L2
+        sec
+        sbc     #1
+        beq     @L1
+        lda     #84
+        jmp     @L2
+@L1:    lda     #42
+@L2:    ldy     txtcolor
+        sta     txtcolor        ; Store new textcolor
+        tya
+        bne     @L3
+        rts                     ; Old colour was 0
+@L3:    sec
+        sbc     #42
+        bne     @L4
+        lda     #1
+        rts                     ; Old colour was 1
+@L4:    lda #2
+        rts                     ; Old colour was 2
+        .endproc
+
+;-------------------------------------------------------------------------------
+; force the init constructor to be imported
+
+                .import initconio
+conio_init      = initconio