mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-11-24 15:31:17 +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
|