mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-11-24 15:31:17 +00:00
21 lines
663 B
Plaintext
21 lines
663 B
Plaintext
;Lightpen Assembly Language Module for C64
|
|
|
|
LGTPNS EQU #$FF ;Light Pen Status (Supported)
|
|
|
|
;Read Light Pen
|
|
;Returns: A = X Position / 2
|
|
; Y = Y Position
|
|
; X = Trigger Status ($FF = Pressed)
|
|
LGTPEN: LDX #0 ;Initialize X to FALSE (0)
|
|
LDA $D41A ;Check Paddle 1 (Magnum Light Phaser)
|
|
BPL LGTPET ;If Trigger Pulled, Set X tp $FF
|
|
LDA $DC01 ;Read Joystick Switches
|
|
EOR #$FF ;Invert and
|
|
AND #$1F ;Mask Bits
|
|
BEQ LGTPEP ;If Trigger Pulled
|
|
LGTPET: DEX ; Set X to TRUE ($FF)
|
|
LGTPEP: LDY $D014 ;Read Y Position into Y
|
|
LDA $D013 ;Read X Position into A
|
|
RTS
|
|
|