fix cpeekc/cpeekcolor/cpeekrevers for atari 800

2025-05-24 18:34:44 +02:00
parent 0d5e365ee3
commit 6628c4ff43
5 changed files with 109 additions and 44 deletions
--- a/libsrc/atari/cpeekrevers.s
+++ b/libsrc/atari/cpeekrevers.s
@@ -0,0 +1,18 @@
+;
+; 2017-06-21, Greg King
+;
+; unsigned char cpeekrevers (void);
+;
+
+        .export         _cpeekrevers
+
+        .include        "atari.inc"
+
+
+_cpeekrevers:
+        lda     OLDCHR          ; get char under cursor
+        and     #$80            ; get reverse bit
+        asl     a
+        tax                     ; ldx #>$0000
+        rol     a               ; return boolean value
+        rts