TGI driver and matching linker config for Plus/4

2019-10-27 10:22:35 -05:00
parent 1d39863a60
commit 3bd4d05598
12 changed files with 1040 additions and 11 deletions
--- a/libsrc/plus4/cgetc.s
+++ b/libsrc/plus4/cgetc.s
@@ -18,11 +18,16 @@ _cgetc: lda     KEY_COUNT       ; Get number of characters
        ora     FKEY_COUNT      ; Or with number of function key chars
        bne     L2              ; Jump if there are already chars waiting

+        lda     #%00100000
+        bit     $FF06
+        bne     L2              ; always disable cursor if in bitmap mode
+
 ; Switch on the cursor if needed

        ldy     CURS_X
        lda     (CRAM_PTR),y    ; Get current char
        pha                     ; And save it
+
        lda     CHARCOLOR
        sta     (CRAM_PTR),y