New feature

X/Y separator becomes a * if width is not a multiple of 4 (b/c QuickDraw II likes multiples of 4)
This commit is contained in:
Antoine Vignau
2025-09-10 18:04:29 +02:00
parent 7521bae79c
commit ca41b30e80
6 changed files with 32 additions and 17645 deletions
+32 -1
View File
@@ -1686,6 +1686,9 @@ L105E _HideCursor
STZ theX1
STZ theY2
STZ theX2
stz phaseXY
LDA #L38DE
STA L2650
LDA #^L38DE
@@ -1710,6 +1713,9 @@ L108D JSR GetMouseStatusAndPosition
LDA theY
STA theY1
STA L269C
inc phaseXY
LDA theX1 ; xMin
PHA
PEA $027F ; xMax
@@ -1826,7 +1832,28 @@ L11C5 LDX theX
RTS
PrintCursorPosition
LDA theX ; X-coord
sep #$20
lda #'/'
sta strXY+7
rep #$20
lda phaseXY
beq pcp_ok
lda theX1
sec
sbc theX
lsr
lsr
bcc pcp_ok
sep #$20
lda #'*'
sta strXY+7
rep #$20
pcp_ok LDA theX ; X-coord
PHA
PEA ^strXY+3
PEA strXY+3
@@ -6843,6 +6870,10 @@ L38D8 DW $0000
L38DA DW $0000
L38DC DW $0000
*-------------------------------
phaseXY ds 2 ; 0: X1,Y1 - 1: X2,Y2
*-------------------------------
put pic.s
BIN
View File
Binary file not shown.
Binary file not shown.
File diff suppressed because it is too large Load Diff
File diff suppressed because it is too large Load Diff
-1
View File
@@ -1 +0,0 @@
MrSprite=Type(B3),AuxType(0000),VersionCreate(70),MinVersion(BE),Access(E3),FolderInfo1(000000000000000000000000000000000000),FolderInfo2(000000000000000000000000000000000000)