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/cpeekrevers.s
+++ b/libsrc/atmos/cpeekrevers.s
@@ -0,0 +1,22 @@
+;
+; 2017-06-08, Greg King
+;
+; unsigned char cpeekrevers (void);
+;
+; Atmos version
+;
+
+        .export         _cpeekrevers
+
+        .import         setscrptr
+        .importzp       ptr2
+
+
+_cpeekrevers:
+        jsr     setscrptr       ; Set ptr2 and .Y to the cursor's address
+        lda     (ptr2),y        ; Get char
+        and     #$80            ; get reverse bit
+        asl     a
+        tax                     ; ldx #>$0000
+        rol     a               ; return boolean value
+        rts