mirror of
https://github.com/cc65/cc65.git
synced 2025-01-03 16:33:19 +00:00
removed obsolete readjoy function (replaced by modular joystick driver - both static and dynamic)
git-svn-id: svn://svn.cc65.org/cc65/trunk@1984 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
75e2ff1cec
commit
d7257fb5bd
@ -12,7 +12,7 @@ S_OBJS = startmousemode.o clearmousemode.o mouseup.o mouseoff.o\
|
||||
drawsprite.o possprite.o enablsprite.o disablsprite.o\
|
||||
ismseinregion.o inittextprompt.o promptoff.o prompton.o\
|
||||
getnextchar.o\
|
||||
mouse.o readjoy.o
|
||||
mouse.o
|
||||
|
||||
all: $(S_OBJS)
|
||||
|
||||
|
@ -1,48 +0,0 @@
|
||||
;
|
||||
; Ullrich von Bassewitz, 23.09.1998
|
||||
;
|
||||
; unsigned readjoy (unsigned char joy);
|
||||
;
|
||||
|
||||
.export _readjoy
|
||||
|
||||
.include "../inc/geossym.inc"
|
||||
|
||||
.proc _readjoy
|
||||
|
||||
php
|
||||
sei ; disable IRQ
|
||||
lda $01
|
||||
pha
|
||||
lda #$35
|
||||
sta $01 ; enable I/O
|
||||
|
||||
tax ; Joystick number into X
|
||||
bne joy2
|
||||
|
||||
; Read joystick 1
|
||||
|
||||
joy1:
|
||||
lda #$7F
|
||||
sta cia1base
|
||||
lda cia1base+1
|
||||
back: tax
|
||||
pla
|
||||
sta $01
|
||||
plp
|
||||
txa
|
||||
and #$1F
|
||||
eor #$1F
|
||||
ldx #0
|
||||
rts
|
||||
|
||||
; Read joystick 2
|
||||
|
||||
joy2: lda #$E0
|
||||
ldy #$FF
|
||||
sta cia1base+2
|
||||
lda cia1base+1
|
||||
sty cia1base+2
|
||||
jmp back
|
||||
|
||||
.endproc
|
Loading…
Reference in New Issue
Block a user