CLI program to resturn joy direction or fire button.

[olesio]

Hello. I'm trying compile this http://cd.textfiles.com/aminet0294/A...C/JOYSTICK.LHA under DICE and WinUAE, but I'm totally Amiga C newbie. I only know HSPascal a bit, but I don't know how to read joystick under it. Can saomeone compile code above or tell me how to do it under DICE in Classic WB? Dice do not accept this code:

 extern struct Custom far custom;
 UBYTE ret = 0;
 UWORD joy;
    
	  if(joynum == 0)                /* JoyPort 0? */
		  joy = custom.joy0dat;  /* If so, use joyport 0 */
	  else
	          joy = custom.joy1dat;  /* Otherwise, default to joyport 1 */

These joyXdat cannot be read. I changed it to other way like CIA struct but it always read the same direction without pressing. Or maybe someone have example of code for HSPascal to read a joystick buttons and directions? Or maybe someone have some free time to code simple application which can be run from cli without any Window and wait for joystick direction or fire and return some digit on CLI? For Example: 1st fire = 0, 2nd fire = 1, left = 2, up = 3 right = 4, down = 5 or something like that. I want to add this program to my real Amiga 1200 startup-sequence to handle boot without mouse interaction - only for joy usage and for example if I press Left Joy Direction = Classic WB runs or Right Joy Direction = run Tiny Launcher 1.3 by Gibs. If program can return these digits which I mentioned above - I can handle it with eq comparsion in script. Or maybe it is some ready proggy like in my description available on Aminet? I searched but did not find it. And sorry for my bad English.

[Minuous]

>Dice do not accept this code

You should at least list the error messages you are getting.
Also, switching to a better and more widely used compiler (eg. SAS/C or StormC) would be a good idea, there is no reason to want to use DICE.

[chiark]

Off the top of my head I can't see why that wouldn't work - it's also an example of how to read the joystick registers that would be easy to translate in to HSPascal.

Have you got the right include files?

[pmc]

Check the attached little executable.

It currently just sits there and waits for input from a joystick in port 2 and outputs a number based on up, down, left, right or fire as per your numbering system:

Originally Posted by olesio

1st fire = 0, 2nd fire = 1, left = 2, up = 3 right = 4, down = 5

I haven't implemented a check for joystick button 2 yet - no time right now - have to go out.

Let me know if it works OK

Oh, and just to be clear (and to make sure I don't get shouted at by Toni or one of the other gurus ) I make no promises as to how system friendly or not the way I've done things is but it shouldn't kill anything horribly I don't think

[olesio]

@Minuous: i got following errors when compiling with DCC:

New Shell process 7
7.System:> dh1:dice
7.Programs:dice> bin/dcc joy.c
DC1: "joy.c" L:77 Warning:68 expected semicolon
 extern struct Custom far custom;
                               ^
DC1: "joy.c" L:82 Error:30 undefined symbol: custom
                  joy = custom->joy0dat;   
                               ^
DC1: "joy.c" L:82 Error:46 not structure or union type
                  joy = custom->joy0dat;   
                               ^
DC1: "joy.c" L:84 Error:46 not structure or union type
                  joy = custom->joy1dat;   
                               ^
Exit code 20

I try maybe StormC if I find it. Like I wrote - I'm total newbie in C language and in C compilers for Amiga. I only know Pascal and Delphi for PC Windows.

@pmc: big thanks - your code work almost ok - executable file is small but I have one problem. After first reboot under WinUAE joyread always return 5 vaslue (Warn). I did not rested on real Amiga yet. But maybe you can fix it somehow to reset joy state and do not return 5. Thanks in advice. Cut of my script

cls
echo ""
echo " Press Fire button to run Tiny Launcher or a"
echo " right Joystick direction to load ClassicWB."
echo ""
set Reply `joyread`
if $Reply eq 5
echo " Warn returned!"
endif
if $Reply eq 0
DH1:TINYLAUNCHER/TinyLauncher.exe
endif
if $Reply eq 3
C:LoadWB
EndCLI >NIL:
endif

[pmc]

olesio: I tested on WinUAE KS 2.04 A500+ and I tested on a real Amiga KS 3.1 A1200 and it works OK for me.

I'll check using your script and see what happens

EDIT: I tested using your script and it worked OK for me - I always got a different number output to match the joystick direction (or firebutton) I chose.

If you still find it's not working for you, post a few more details of your setup and I'll try to test further.

[olesio]

I tested under KS 3.1 and latest WinUAE plus Classic WB. My configuration attached. I try under real Amiga 1200 later. Also I installed Storm C and I wanted to compile joy.c from joystick.lha at link above but I have error with unknonw _main by Linker. I tested version 1.1 of Strom C installed from adfs at: http://www.theoldcomputer.com should I try new version on seven adfs?

[pmc]

olesio: check new version attached with number output corrected slightly to match your original numbering scheme - I'd mixed up right and up originally, sorry. Now fixed.

Also, check the screenshot - you can see the script sensing each joystick direction pressed correctly.

[olesio]

You did not understand me good. In method which you show everything is ok. But please download latest TinyLauncher and read topic: http://eab.abime.net/showthread.php?...=tiny+launcher to know how to use it and try execute following script. Press fire to run TinyLauncher press Amiga+Amiga+Ctrl to reboot and joyread will return 5 (probable warn). After loading ClassicWB all is ok. I tested only WinUAE already but maybe under real Amiga 1200 it will work different.

cls
echo ""
echo " Press Fire button to run Tiny Launcher or a"
echo " right Joystick direction to load ClassicWB."
echo ""
set Reply `joyread`
if $Reply eq 5
echo " Warn returned!"
endif
if $Reply eq 0
DH1:TINYLAUNCHER/TinyLauncher.exe
endif
if $Reply eq 3
C:LoadWB
EndCLI >NIL:
endif

After pressign fire, reboot I got "Warn returned!" message. Even when I using your latest joyread version ;/

[pmc]

olesio: sorry, that was my misunderstanding. I recreated your error here. I'll try to fix it for you.

[chiark]

It's because the includes don't have a custom struct defined.

I've compiled using DICE, and replacing joy0dat with 0xDFF00A / joy1dat with 0xDFF00C... Will post the exe in a few minutes.

[olesio]

@pmc: ok, no problem. I will test new version if it will be available, but I do this tomorrow . Now I must go to work. Thank you.
@chiark: I did not know how to replace these values. Now I know that from your reply. I try to replaceid by these hex values also tomorrow. Thanks to you too.

[chiark]

here you go...

added 2 defines to access the custom registers for JOY0DAT/JOY1DAT
and changed the reading loop to remove reference to custom structure / replace with JOY0DAT and JOY1DAT defines

seems to work. You can modify it to return a value based on the press if you like

[pmc]

ooops, took so long to post the fixed version I was beaten to it by chiark

anyways, fixed (I hope...) version attached.

[olesio]

@pmc: big thanks, now everything works fine. I made following entry to s-s:

LAB ASKFORTL
cls
echo ""
echo " Press Fire button to run Tiny Launcher or"
echo " some Joystick direction to load ClassicWB"
echo ""
set Reply `joyread`
if $Reply eq 0
DH1:TINYLAUNCHER/TinyLauncher.exe
skip ASKFORTL BACK
endif
C:LoadWB
EndCLI >NIL:

But one more question. Is it possible to your code detect when joystick is unconnected and n that case return 6 for example and program will exit? I'm asking because under WinUAE I may run sometimes configuration wtihout joystick or real Amiga withour joystick (in most cases I have joystick connected on real my Amiga) and in that case program will execute ClassicWB after "endif". But if it some problem I will be satisfied with current version of joyread.

@chiark: Thanks, your modification of code also will be useful for me in future.

[chiark]

no, there's no status to show whether a joystick is connected or not unfortunately... That would be the difficult bit. Only thing to do would be to allow space to load tiny launcher or any other key to not... That would be a simple modification.

[olesio]

Ok, thanks for info. I thought it is possible, because some games detect joy in second port, so maybe it can also detect in first port somehow.

[chiark]

Do they? Without any movement? OK, in that case I'm wrong - I'll look into it again but I can't see any status register that would flag the presence of a passive device (joystick).

Can you let me know which game detects a joystick without having to move anything and I'll see how it does it?

[Toni Wilen]

There is no way to detect a standard joystick. Joystick not connected and joystick connected without movement or pressing a button is electrically identical (all switches open circuit).

CD32 pad can be detected. It is designed to be detected.

Some Amiga-compatible gamepads and third party mice can be sort of detected ("something" is connected, perhaps a pad, perhaps a third party mouse or perhaps something else) because some of them have pullup resistors in button lines.

[chiark]

Cheers Toni. I've just spent a fruitless 15 minutes googling for the inner workings of ReadJoyPort from Lowlevel.library to see how it detects, but to no avail... I guess the source of WinUAE will explain .

Looks like pin5 is part of detection, plus a set of tests in lowlevel.library to work out what exactly is there. If it's a CD32 joypad, P6 then acts as a clock for the shift register - aside from its duties as fire button 1 - , and P9 is where the results are sent...

That's really quite a neat hack! I wonder if it was ever envisioned for this purpose? Guess it must have been given the in/out status of the pins...

void handle_cd32_joystick_cia (uae_u8 pra, uae_u8 dra) - is this what shifts the results from the CD32 buttons into the appropriate place?

Sorry, this is somewhat off topic now!