Announcement

Collapse

Forum Rules and Etiquette

Our mission ...

This forum is part of our mission to promote the preservation of vintage computers through education and outreach. (In real life we also run events and have a museum.) We encourage you to join us, participate, share your knowledge, and enjoy.

This forum has been around in this format for over 15 years. These rules and guidelines help us maintain a healthy and active community, and we moderate the forum to keep things on track. Please familiarize yourself with these rules and guidelines.


Rule 1: Remain civil and respectful

There are several hundred people who actively participate here. People come from all different backgrounds and will have different ways of seeing things. You will not agree with everything you read here. Back-and-forth discussions are fine but do not cross the line into rude or disrespectful behavior.

Conduct yourself as you would at any other place where people come together in person to discuss their hobby. If you wouldn't say something to somebody in person, then you probably should not be writing it here.

This should be obvious but, just in case: profanity, threats, slurs against any group (sexual, racial, gender, etc.) will not be tolerated.


Rule 2: Stay close to the original topic being discussed
  • If you are starting a new thread choose a reasonable sub-forum to start your thread. (If you choose incorrectly don't worry, we can fix that.)
  • If you are responding to a thread, stay on topic - the original poster was trying to achieve something. You can always start a new thread instead of potentially "hijacking" an existing thread.



Rule 3: Contribute something meaningful

To put things in engineering terms, we value a high signal to noise ratio. Coming here should not be a waste of time.
  • This is not a chat room. If you are taking less than 30 seconds to make a post then you are probably doing something wrong. A post should be on topic, clear, and contribute something meaningful to the discussion. If people read your posts and feel that their time as been wasted, they will stop reading your posts. Worse yet, they will stop visiting and we'll lose their experience and contributions.
  • Do not bump threads.
  • Do not "necro-post" unless you are following up to a specific person on a specific thread. And even then, that person may have moved on. Just start a new thread for your related topic.
  • Use the Private Message system for posts that are targeted at a specific person.


Rule 4: "PM Sent!" messages (or, how to use the Private Message system)

This forum has a private message feature that we want people to use for messages that are not of general interest to other members.

In short, if you are going to reply to a thread and that reply is targeted to a specific individual and not of interest to anybody else (either now or in the future) then send a private message instead.

Here are some obvious examples of when you should not reply to a thread and use the PM system instead:
  • "PM Sent!": Do not tell the rest of us that you sent a PM ... the forum software will tell the other person that they have a PM waiting.
  • "How much is shipping to ....": This is a very specific and directed question that is not of interest to anybody else.


Why do we have this policy? Sending a "PM Sent!" type message basically wastes everybody else's time by making them having to scroll past a post in a thread that looks to be updated, when the update is not meaningful. And the person you are sending the PM to will be notified by the forum software that they have a message waiting for them. Look up at the top near the right edge where it says 'Notifications' ... if you have a PM waiting, it will tell you there.

Rule 5: Copyright and other legal issues

We are here to discuss vintage computing, so discussing software, books, and other intellectual property that is on-topic is fine. We don't want people using these forums to discuss or enable copyright violations or other things that are against the law; whether you agree with the law or not is irrelevant. Do not use our resources for something that is legally or morally questionable.

Our discussions here generally fall under "fair use." Telling people how to pirate a software title is an example of something that is not allowable here.


Reporting problematic posts

If you see spam, a wildly off-topic post, or something abusive or illegal please report the thread by clicking on the "Report Post" icon. (It looks like an exclamation point in a triangle and it is available under every post.) This send a notification to all of the moderators, so somebody will see it and deal with it.

If you are unsure you may consider sending a private message to a moderator instead.


New user moderation

New users are directly moderated so that we can weed spammers out early. This means that for your first 10 posts you will have some delay before they are seen. We understand this can be disruptive to the flow of conversation and we try to keep up with our new user moderation duties to avoid undue inconvenience. Please do not make duplicate posts, extra posts to bump your post count, or ask the moderators to expedite this process; 10 moderated posts will go by quickly.

New users also have a smaller personal message inbox limit and are rate limited when sending PMs to other users.


Other suggestions
  • Use Google, books, or other definitive sources. There is a lot of information out there.
  • Don't make people guess at what you are trying to say; we are not mind readers. Be clear and concise.
  • Spelling and grammar are not rated, but they do make a post easier to read.
See more
See less

GW-BASIC joystick programming

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

    GW-BASIC joystick programming

    How do I program joystick input in GW-BASIC?

    It's insanely easy in Applesoft: you use the PDL(0) and PDL(1) commands to determine where the stick is located along X/Y (0-255 on each scale) and then tell it what do based on those locations.

    For example, in Applesoft, my Lego robot navigation code looks like this:

    3000 REM NEVIGATION
    3010 FB=PDL (1):LR=PDL (0)
    3020 IF FB < 75 THEN M=5
    3030 IF FB > 180 THEN M=10
    3040 IF LR < 75 THEN M=9
    3050 IF LR > 180 THEN M=6
    3060 POKE L,M: REM SEND COMMANDS

    (The variable L is the address of the interface card to the control box. The variable M gets translated into binary to turn the relevant bits on/off at the control box, which runs the motors, sensors, and lights.)

    But I've never had to program for joystick control in a standard BASIC; obviously Apple customized theirs make it easier.

    How do I do this kind of control in GW?

    Also what about reading the button presses? Over in Applesoft land its IF PEEK (49249) > 127 and IF PEEK (49250) > 127 .... nice and simple for buttons 0 and 1.
    @ Founder, Vintage Computer Federation -- resigned Dec. 2019
    @ Author, Abacus to smartphone: The evolution of mobile and portable computers
    @ My homepage
    @ My Lego Robotics Page

    #2
    From GW Basic user manual HERE or HERE.
    Capture.JPG

    Capture.JPG

    Capture.JPG
    Last edited by ibmapc; February 18, 2018, 11:30 AM.

    Comment


      #3
      GW-BASIC/QBASIC's built-in joystick functions are rather slow and clunky. So it was common to read port 201h directly:

      Code:
      OUT &H201, 0
      Btn = INP(&H201)
       
      Btn1 = (Btn AND &H10) = 0
      Btn2 = (Btn AND &H20) = 0
      Btn3 = (Btn AND &H40) = 0
      Btn4 = (Btn AND &H80) = 0
      
      AxisX = 0
      AxisY = 0
      Count = 32767
      OUT &H201, 0
      DO
        Count = Count - 1
        Axis = INP(&H201)
        IF Axis AND 1 THEN AxisX = AxisX + 1
        IF Axis AND 2 THEN AxisY = AxisY + 1
      LOOP WHILE Count > 0 AND (Axis AND 3) <> 0
      Last edited by Plasma; February 18, 2018, 11:35 AM.

      Comment


        #4
        Originally posted by ibmapc View Post
        From GW Basic user manual HERE or HERE.
        [ATTACH=CONFIG]43824[/ATTACH]

        [ATTACH=CONFIG]43826[/ATTACH]

        [ATTACH=CONFIG]43829[/ATTACH]
        Thanks!
        @ Founder, Vintage Computer Federation -- resigned Dec. 2019
        @ Author, Abacus to smartphone: The evolution of mobile and portable computers
        @ My homepage
        @ My Lego Robotics Page

        Comment


          #5
          Originally posted by Plasma View Post
          So it was common to read port 201h directly
          Only on faster systems. The code you posted won't work with any appreciable accuracy on XT-class systems, and likely no 286 systems either, due to the code having to run interpreted, and due to interrupts being on during the measurements which would lead to visible jitter. The BASIC/BASICA/GW-BASIC routines will produce much higher resolution readings on slow systems.

          Reading the joystick buttons, however, is likely just fine grabbing port 201h values. I admit GW-BASIC's implementation of button presses as ONTIMER events is clunky.
          Offering a bounty for:
          - A working Sanyo MBC-775 or Logabax 1600
          - Music Construction Set, IBM Music Feature edition (has red sticker on front stating IBM Music Feature)

          Comment


            #6
            Yeah my code is too slow for an XT. But you are going to get jitter with any analog joystick even using STICK. Actually in my experience STICK is useless on faster computers since it uses an 8-bit counter which overflows.

            Comment

            Working...
            X