24 lines
555 B
ArmAsm
24 lines
555 B
ArmAsm
;
|
|
; pdlread.s
|
|
; joytest
|
|
;
|
|
; Created by Jeremy Rand on 2020-06-09.
|
|
; Copyright © 2020 Jeremy Rand. All rights reserved.
|
|
;
|
|
.include "apple2.inc"
|
|
.export _pdlRead
|
|
|
|
|
|
; ROM entry points
|
|
|
|
PREAD := $FB1E ; Read paddle in X, return AD conv. value in Y
|
|
|
|
_pdlRead:
|
|
bit $C082 ; Switch in ROM
|
|
tax ; Set paddle number
|
|
jsr PREAD ; Read paddle value
|
|
tya
|
|
ldx #$00
|
|
bit $C080 ; Switch in LC bank 2 for R/O
|
|
rts
|