add Agat to samples

2025-06-13 12:51:41 +03:00
parent c28bafa581
commit 8202b520b2
4 changed files with 18 additions and 4 deletions
--- a/libsrc/agat/_scrsize.s
+++ b/libsrc/agat/_scrsize.s
@@ -1,5 +1,6 @@
 ;
 ; Ullrich von Bassewitz, 26.10.2000
+; Konstantin Fedorov, 12.06.2025
 ;
 ; Screen size variables
 ;
@@ -9,9 +10,14 @@
        .include        "agat.inc"

 screensize:
-        ldx     WNDWDTH
-        lda     WNDBTM
+        lda    WNDWDTH
+        bit    TATTR
+        bmi    t64
+        lsr
+t64:
+        tax
+        lda    WNDBTM
        sec
-        sbc     WNDTOP
+        sbc    WNDTOP
        tay
        rts