fix cpeekc/cpeekcolor/cpeekrevers/cpeeks for atmos, replaces what is in #532

2025-05-24 20:03:44 +02:00
parent 228316ff58
commit 8d42c4a8c5
8 changed files with 134 additions and 31 deletions
--- a/libsrc/atmos/cpeekc.s
+++ b/libsrc/atmos/cpeekc.s
@@ -0,0 +1,21 @@
+;
+; 2016-02-28, Groepaz
+; 2017-06-19, Greg King
+;
+; char cpeekc (void);
+;
+; Atmos version
+;
+
+        .export         _cpeekc
+
+        .import         setscrptr
+        .importzp       ptr2
+
+
+_cpeekc:
+        jsr     setscrptr       ; Set ptr2 and .Y to the cursor's address
+        lda     (ptr2),y        ; Get char
+        and     #<~$80          ; Remove revers() bit
+        ldx     #>$0000
+        rts