Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-05 01:29:31 +00:00
Code Issues Projects Releases Wiki Activity

SHRCOORD2 updated

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2023-01-11 00:05:38 -05:00
parent 2c58b2199e
commit 8f85c00551
2 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

16
mainmem.shr.s
View File

@ -948,8 +948,9 @@ SHRCOORD MAC
ASL ; Sign bit -> C
ROR SHRVDUQ+5 ; Signed divide /2
LDX SHRPIXELS ; Pixels per byte
CPX #$02 ; 2 is 320-mode (MODE 1)
LDA SHRPIXELS ; Pixels per byte
AND #$00FF ; Mask
CMP #$02 ; 2 is 320-mode (MODE 1)
BNE SHRCOORDM0
LDA SHRVDUQ+5
ASL ; Sign bit -> C
@ -1028,10 +1029,13 @@ SHRCOORDEND EOM
SHRCOORD2 MX $00 ; Tell Merlin it's 16 bit
* X-coordinate in SHRVDUQ+5,+6 1280/2=640
LDA SHRVDUQ,X
ASL ; Sign bit -> C
ROR SHRVDUQ,X ; Signed divide /2
LDA SHRVDUQ,X
LSR SHRVDUQ,X ; Unsigned divide /2
LDA SHRPIXELS ; Pixels per byte
AND #$00FF ; Mask
CMP #$02 ; 2 is 320-mode (MODE 1)
BNE SHRCOORD2M0
LSR SHRVDUQ,X ; Unsigned divide /2 again
SHRCOORD2M0 LDA SHRVDUQ,X
STA A1L ; Result in A1L/H
* Y-coordinate in SHRVDUQ+7,+8 1024*25/128=200