6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-11-16 18:08:04 +00:00
Code Issues Projects Releases Wiki Activity

Add comments

Browse Source
This commit is contained in:
Karri Kaksonen 2022-03-31 09:09:11 +03:00
parent 4e8f62fb96
commit e4193451d4
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
libsrc/atari7800/joy/atari7800-stdjoy.s
View File

@ -3,7 +3,7 @@
; This version tries to use 7800 and 2600 joysticks. ; This version tries to use 7800 and 2600 joysticks.
; But assumes that both joysticks are of same type. ; But assumes that both joysticks are of same type.
; ;
; Modified by Karri Kaksonen, 2022-02-27 ; Modified by Karri Kaksonen, 2022-03-31
; Ullrich von Bassewitz, 2002-12-20 ; Ullrich von Bassewitz, 2002-12-20
; Using code from Steve Schmidtke ; Using code from Steve Schmidtke
; ;
@ -107,7 +107,7 @@ L1: bit INPT3 ;Check for left button
bpl L2 bpl L2
iny ; ......21 iny ; ......21
L2: tya L2: tya
bne L4 ; Joystick worked bne L4 ; 7800 mode joystick worked
; 2600 Joystick 1 ; 2600 Joystick 1
bit INPT5 bit INPT5
bpl L4 bpl L4
@ -127,7 +127,7 @@ L6: bit INPT1 ;Check for left button
bpl L7 bpl L7
iny ; ......21 iny ; ......21
L7: tya L7: tya
bne L4 ; Joystick worked bne L4 ; 7800 mode joystick worked
; 2600 Joystick 0 ; 2600 Joystick 0
bit INPT4 bit INPT4
bpl L4 bpl L4
@ -136,12 +136,12 @@ L7: tya
READ: READ:
tay ; Store joystick 0/1 in Y tay ; Store joystick 0/1 in Y
beq L8 beq L8
lda SWCHA lda SWCHA ; Read directions of joystick 1
rol ; ...RLDU. rol ; ...RLDU.
rol ; ..RLDU.. rol ; ..RLDU..
rol ; .RLDU... - joystick 1 rol ; .RLDU... - joystick 1
jmp L9 jmp L9
L8: lda SWCHA ; Read joystick L8: lda SWCHA ; Read directions of joystick 0
ror ; .RLDU... - joystick 0 ror ; .RLDU... - joystick 0
L9: tax L9: tax
jsr readbuttons ; A = ......21, X = .RLDU... jsr readbuttons ; A = ......21, X = .RLDU...