VM02/src/apple2/paddle.s
2018-04-25 09:13:44 -07:00

30 lines
250 B
ArmAsm
Executable File

;
; READ PADDLE
;
BIT $C081
PLA
STA $A0
PLA
STA $A1
PLA
AND #$03
TAX
PLA
PLA
PLA
SEI ; TURN OFF INTS FOR ACCURATE READING
JSR $FB1E ; READ PADDLE
LDA #$00
PHA
PHA
PHA
TYA
PHA
LDA $A1
PHA
LDA $A0
PHA
BIT $C083
BIT $C083
RTS