Fixed copy cursor appearance in MODE 0/1

2022-12-27 18:51:14 -05:00 · 2022-12-27 18:51:14 -05:00 · fd4cf02b09
parent 31768fefd6
commit fd4cf02b09
3 changed files with 4 additions and 2 deletions
--- a/applecorn.po
+++ b/applecorn.po
--- a/auxmem.shr.s
+++ b/auxmem.shr.s
@ -261,7 +261,10 @@ SHRCHAR640    PHY                          ; Preserve Y

 * Write character to SHR screen
 * On entry: A - character to write
-SHRPRCHAR     LDX   VDUPIXELS              ; Pixels per byte
+SHRPRCHAR     CMP   #128                   ; Check char in range
+              BCC   :INRANGE
+              LDA   #127                   ; If not, use block char
+:INRANGE      LDX   VDUPIXELS              ; Pixels per byte
              CPX   #$02                   ; 2 is 320-mode (MODE 1)
              BNE   :S1
              JMP   SHRPRCH320
--- a/auxmem.vdu.s
+++ b/auxmem.vdu.s
@ -920,7 +920,6 @@ VDU20LP       STA   TXTFGD,X               ; Clear all colours
 VDU17         LDA   VDUQ+8
              CMP   #$C0
              BCS   VDU17BORDER
-* TO DO *
              JSR   HGRSETTCOL 
              JMP   SHRSETTCOL
 VDU17BORDER   AND   #$0F