mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-11-22 01:31:33 +00:00
10 lines
256 B
Plaintext
10 lines
256 B
Plaintext
;Lightpen Assembly Language Module for Oric-1
|
|
|
|
LGTPNS EQU #$FF ;Light Pen Status (Supported)
|
|
|
|
;Read Light Pen
|
|
LGTPEN LDA $03E0 ;Load X Position into A
|
|
LDY $03E1 ;Load Y Position into Y
|
|
LDX #0 ;Set Trigger to 0
|
|
RTS
|