mirror of
https://github.com/RevCurtisP/C02.git
synced 2024-06-01 21:41:31 +00:00
35377b5807
commit ed00e1d1b5a9783a72dade3f3676b161a9cfe287 Author: Curtis F Kaylor <revcurtis@gmail.com> Date: Sun Sep 9 22:20:49 2018 -0400 Documented joystk, paddle, and lgtpen modules commit ec0a5ede8d1b043fcf0094ea653255a808dbf8d3 Author: Curtis F Kaylor <revcurtis@gmail.com> Date: Sun Sep 9 20:31:11 2018 -0400 Added joystick, paddle, and lightpen test programs commit 7b787f432e2f4f7ae5d7f0053ade1d3586a4fad1 Author: Curtis F Kaylor <revcurtis@gmail.com> Date: Sun Sep 9 20:30:03 2018 -0400 Updated Apple II and VIC-20 Batch Files commit 50568294349d7e3c6b7d0d364aeaece73c9e4ab6 Author: Curtis F Kaylor <revcurtis@gmail.com> Date: Sun Sep 9 20:28:09 2018 -0400 Separated light pen code into separate files commit d45e59f73d55eef1d30c591d19a043ad79cfd81a Author: Curtis F Kaylor <revcurtis@gmail.com> Date: Sun Sep 9 19:28:56 2018 -0400 Moved code for paddles into separate include files commit fc5c5472d758c960332ea14105d5ec4a7c8cbbfb Author: Curtis F Kaylor <revcurtis@gmail.com> Date: Sun Sep 9 16:15:32 2018 -0400 Added system specific module 'joystk'
33 lines
1.2 KiB
Plaintext
33 lines
1.2 KiB
Plaintext
;Light Pen Constants and Functions
|
|
;Non-Functional Skeleton for Systems with No Joystick Support
|
|
|
|
LGTPNS EQU #$FF ;Light Pen Status (Supported)
|
|
|
|
;Read Light Pen
|
|
LGTPEN: LDX #0 ;Initialize X to FALSE (0)
|
|
LDA $9009 ;Check Paddle 1 (Magnum Light Phaser)
|
|
BMI LGTPEJ ;If Trigger Pulled
|
|
DEX ; Set X to TRUE ($FF)
|
|
BNE LGTPEP ;Else Check Joystick Inputs
|
|
LGTPEJ: LDA $9113 ; Get DDR for Port A Status
|
|
PHA ; and Save It
|
|
LDA $9122 ; Set DDR for Port B Status
|
|
PHA ; and Save It
|
|
STX $9113 ; Set DDR for Port A to All Inputs
|
|
STX $9122 ; Set DDR for Port B to All Inputs
|
|
LDA $9120 ; Read Port B (S2)
|
|
ASL ; Shift Bit 7 into Carry
|
|
LDA $9111 ; Read Port A
|
|
ROR ; Rotate Carry Back In
|
|
EOR #$FF ; Invert Bits
|
|
AND #$9E ; and Mask Joystick Inputs
|
|
BEQ LGTPES ; If Any Bits Set
|
|
DEX ; Set X to TRUE ($FF)
|
|
LGTPES: PLA ; Restore Port B DDDR
|
|
STA $9122
|
|
PLA ; Restore Port A DDDR
|
|
STA $9113
|
|
LGTPEP: LDY $9007 ;Read Y Position into Y
|
|
LDA $9006 ;Read X Position into A
|
|
RTS
|