mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-09-28 22:56:03 +00:00
MOVE (aka PLOT 4,x,y) now works in SHR
This commit is contained in:
parent
37af780df0
commit
b2eb6cad62
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
@ -219,7 +219,7 @@ SHRCHAR640 PHY ; Preserve Y
|
|||||||
* $90+x - draw circle
|
* $90+x - draw circle
|
||||||
* $98+x - fill circle
|
* $98+x - fill circle
|
||||||
*
|
*
|
||||||
* TODO: Only does point plotting ATM
|
* TODO: Need to properly handle k
|
||||||
SHRPLOT >>> ENTMAIN
|
SHRPLOT >>> ENTMAIN
|
||||||
JSR SHRCOORD ; Convert coordinates
|
JSR SHRCOORD ; Convert coordinates
|
||||||
LDA A1L ; Preserve converted x
|
LDA A1L ; Preserve converted x
|
||||||
@ -229,6 +229,10 @@ SHRPLOT >>> ENTMAIN
|
|||||||
LDA A2L ; Preserve converted y
|
LDA A2L ; Preserve converted y
|
||||||
PHA
|
PHA
|
||||||
LDA SHRVDUQ+4 ; k
|
LDA SHRVDUQ+4 ; k
|
||||||
|
AND #$03
|
||||||
|
CMP #$00 ; Buts 0,1 clear -> just move
|
||||||
|
BEQ :S2
|
||||||
|
LDA SHRVDUQ+4 ; k
|
||||||
AND #$F0 ; Keep MS nybble
|
AND #$F0 ; Keep MS nybble
|
||||||
CMP #$00 ; Move or draw line
|
CMP #$00 ; Move or draw line
|
||||||
BNE :S1
|
BNE :S1
|
||||||
@ -598,7 +602,6 @@ SHRLINEHI MX %00 ; Tell Merlin 16 bit M & X
|
|||||||
:LIM DW $0000 ; x1 gets stashed here
|
:LIM DW $0000 ; x1 gets stashed here
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
* Convert high-resolution screen coordinates
|
* Convert high-resolution screen coordinates
|
||||||
* from 1280x1024 to 640x200 or 320x200
|
* from 1280x1024 to 640x200 or 320x200
|
||||||
* On return: X-coordinate in A1L/H, Y-coordinate in A2L (A2H=0)
|
* On return: X-coordinate in A1L/H, Y-coordinate in A2L (A2H=0)
|
||||||
|
Loading…
Reference in New Issue
Block a user