Fixed SHRPALCUSTOM return to aux mem

mainmem.shr.s

@@ -92,7 +92,6 @@ SHRXPLDFONT   >>>   ENTMAIN
               BNE   :L1
               JSR   SHRCLR24               ; Clear row 24
               >>>   XF2AUX,SHRV22RET
-              RTS
 
 
 * Explode one character to location pointed to by A3L
@@ -1093,7 +1092,7 @@ SHRLINELO     MX    %00                    ; Tell merlin 16 bit M & X
               STA   :D                     ; D = D + 2 * dy
 :S3           INX
               CPX   :LIM                   ; Compare with x1
-              BNE   :L1
+              BCC   :L1
 
               SEC                          ; 65816 emulation mode
               XCE
@@ -1169,7 +1168,7 @@ SHRLINEHI     MX    %00                    ; Tell Merlin 16 bit M & X
               STA   :D                     ; D = D + 2 * dx
 :S3           INX
               CPX   :LIM                   ; Compare with y1
-              BNE   :L1
+              BCC   :L1
 
               SEC                          ; 65816 emulation mode
               XCE
@@ -1568,7 +1567,7 @@ SHRPALCHANGE  >>>   ENTMAIN
               STAL  $E19E00+9,X
               STAL  $E19E00+17,X
               STAL  $E19E00+25,X
-              RTS
+              BRA   :DONE
 :MODE320      TXA
               AND   #%00011110             ; Has already been shifted
               TAX
@@ -1576,7 +1575,7 @@ SHRPALCHANGE  >>>   ENTMAIN
               STAL  $E19E00,X              ; Store in logical slot
               LDA   PALETTE320+1,Y         ; Byte 2 of physical colour
               STAL  $E19E00+1,X            ; Store in logical slot
-              >>>   XF2AUX,VDUXXRET 
+:DONE         >>>   XF2AUX,VDUXXRET 
 
 
 * Assign a custom RGB colour to a 'logical' colour
@@ -1600,7 +1599,7 @@ SHRPALCUSTOM  >>>   ENTMAIN
               STAL  $E19E00+9,X
               STAL  $E19E00+17,X
               STAL  $E19E00+25,X
-              RTS
+              BRA   :DONE
 :MODE320      TXA
               AND   #%00011110             ; Has already been shifted
               TAX
@@ -1608,7 +1607,7 @@ SHRPALCUSTOM  >>>   ENTMAIN
               STAL  $E19E00,X              ; Store in logical slot
               TYA                          ; R component
               STAL  $E19E00+1,X            ; Store in logical slot
-              >>>   XF2AUX,VDUXXRET 
+:DONE         >>>   XF2AUX,VDUXXRET 
               
 
 * Table of addresses of SHR rows (in reverse order)

mame_applecorn

@@ -1,2 +1,2 @@
 #mame -w apple2ee -debug -sl5 mouse -sl7 cffa2 -harddisk1 ~/Personal/Development/Applecorn/applecorn.po
-mame -w apple2gs -debug -sl7 cffa2 -harddisk1 ~/Personal/Development/Applecorn/applecorn.po -harddisk2 tests/JGHMusic2.po
+mame -w apple2gs -debug -sl7 cffa2 -harddisk1 ~/Personal/Development/Applecorn/applecorn.po -harddisk2 tests/Creat*po