home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / sys / atari / st / 16852 < prev    next >
Encoding:
Text File  |  1992-11-19  |  7.0 KB  |  218 lines
  1. Path: sparky!uunet!pipex!warwick!uknet!pyrltd!mwuk!tony
  2. From: tony@microware.co.uk (Tony Mountifield)
  3. Newsgroups: comp.sys.atari.st
  4. Subject: Re: Accessing joystick from 'C'
  5. Message-ID: <1292@mwuk.UUCP>
  6. Date: 19 Nov 92 13:10:23 GMT
  7. References: <1992Nov18.093245.8277@ccsun.strath.ac.uk>
  8. Organization: Microware Systems (UK) Ltd., Winchester, UK.
  9. Lines: 207
  10.  
  11. In article <1992Nov18.093245.8277@ccsun.strath.ac.uk> cabp09@ccsun.strath.ac.uk ("David McNicol") writes:
  12. > 
  13. > Hi there,
  14. >      Does ANYONE out there know how to read the joystick ports
  15. > of an atari ST in C/Assembly ?? I presume there must be tonnes of
  16. > people out there.
  17.  
  18. I never saw it properly documented, so about 4 years ago, using
  19. information from the old Abacus/DataBecker internals book, I set about
  20. investigating the Keyboard vector routines, using a packet handler which
  21. I could patch into the vectors I wanted to investigate. The C program I
  22. used is given below. As written, it hooks into the status and joystick
  23. vectors. For just the joystick information, it is not necessary to use
  24. the status vector. Obviously, the program could be cut dow to just bare
  25. bones for joystick handling, but I thought the complete thing might be
  26. of interest.
  27.  
  28. It was compiled using Lattice C 3.0.4.  UBYTE is just a typedef of
  29. unsigned char.  You won't need <portab.h> if you define this by hand. 
  30. cprintf() is just printf() directly to the console. The include file
  31. <fctype.h> is just a variant of <ctype.h>, which itself would do fine.
  32.  
  33. It should be compiled to a .TOS executable.
  34.  
  35. ------------------------------------------------------------------------
  36. #include <portab.h>
  37. #include <osbind.h>
  38. #include <fctype.h>
  39.  
  40. typedef struct {
  41.    void (*midivec)();
  42.    void (*vkbderr)();
  43.    void (*vmiderr)();
  44.    void (*statvec)();
  45.    void (*mousevec)();
  46.    void (*clockvec)();
  47.    void (*joyvec)();
  48.    void (*midisys)();
  49.    void (*ikbdsys)();
  50. }  KBVEC;
  51.  
  52. UBYTE joy0,joy1;
  53. UBYTE list[10];
  54. int got=FALSE;
  55.  
  56. void dopkt(packet)
  57. UBYTE packet[];
  58. {
  59.    register int i;
  60.  
  61.    for(i=0;i<10;i++)
  62.       list[i]=packet[i];
  63.    got=TRUE;
  64.  
  65.    if (packet[0]>=0xFE) {
  66.       joy0=packet[1];
  67.       joy1=packet[2];
  68.    }
  69. }
  70.  
  71. void main()
  72. {
  73.    KBVEC *p,save;
  74.    UBYTE old0,old1;
  75.    char buf[128];
  76.    int cmd;
  77.    char c;
  78.  
  79.    p = (KBVEC *)Kbdvbase();
  80.    save.joyvec = p->joyvec;
  81.    p->joyvec = dopkt;
  82.    save.statvec = p->statvec;
  83.    p->statvec = dopkt;
  84.  
  85.    Ikbdws(0,"\x12");                   /* Turn mouse off */
  86.  
  87.    old0=old1=0xFF;
  88.    cmd = 0;
  89.  
  90.    for(;;) {
  91.  
  92.       if (Cconis()) {
  93.          c=toupper((short)Crawcin());
  94.          if (c=='\x03') {
  95.             Ikbdws(0,"\x08");          /* Restore mouse operation */
  96.             p->joyvec = save.joyvec;
  97.             p->statvec = save.statvec;
  98.             Pterm0();
  99.          }
  100.          else if (c=='\r') {
  101.             buf[0]=cmd;
  102.             Ikbdws(0,buf);
  103.             cmd = 0;
  104.          }
  105.          else if (c>='0' && c<='9') {
  106.             cmd = ((cmd & 0xF) << 4) | (c-'0');
  107.             cprintf("cmd = %X\r\n",cmd);
  108.          }
  109.          else if (c>='A' && c<='F') {
  110.             cmd = ((cmd & 0xF) << 4) | (c-'A'+10);
  111.             cprintf("cmd = %X\r\n",cmd);
  112.          }
  113.       }
  114.  
  115.       if (got) {
  116.          cprintf("Packet = %02X %02X %02X %02X %02X %02X %02X %02X %02X %02X\r\n",
  117.                   list[0],list[1],list[2],list[3],list[4],
  118.                   list[5],list[6],list[7],list[8],list[9]);
  119.          got=FALSE;
  120.       }
  121.  
  122.       if (old0 != joy0) {
  123.          old0 = joy0;
  124.          cprintf("Joy0 = %02X\r\n",old0);
  125.       }
  126.  
  127.       if (old1 != joy1) {
  128.          old1 = joy1;
  129.          cprintf("Joy1 = %02X\r\n",old1);
  130.       }
  131.    }
  132. }
  133. ------------------------------------------------------------------------
  134.  
  135. Armed with the information gleaned by this program, it was possible to
  136. write assembler routines to setup, use and unsetup the joystick. JOYINI
  137. and JOYEND should be callable from ASM or C, and the global variables
  138. JOY0 and JOY1 will be updated automatically whenever a joystick state
  139. changes.
  140.  
  141. I can't remember what bit means what, but that is easily determined by
  142. trial and error.
  143.  
  144. ------------------------------------------------------------------------
  145. ;
  146. JOYINI  MOVEM.L A0-A1/D0,-(SP)          ; Save registers
  147.         MOVE.W  #34,-(SP)               ; Kbdvbase()
  148.         TRAP    #14                     ; Xbios
  149.         LEA     2(SP),SP                ; Better than ADDQ, as it
  150.                                         ; doesn't set any flags.
  151. ;       Now D0 points to the table of longword vectors. The
  152. ;       joystick vector is at offset 24 from this.
  153. ;
  154.         MOVEA.L D0,A0                   ; Must be in an addr reg
  155.         MOVE.L  A0,ADRSAV               ; Save table address
  156.         MOVE.L  24(A0),JOYSAV           ; Save current joy value
  157.         LEA     OURJOY(PC),A1           ; Position independent
  158.         MOVE.L  A1,24(A0)               ; Point vector to our code
  159.         PEA     MOUSOF(PC)              ; Command to turn off mouse
  160.         MOVE.W  #MOUSOFL-1,-(SP)        ; Length-1
  161.         MOVE.W  #25,-(SP)               ; Ikbdws()
  162.         TRAP    #14                     ; Xbios
  163.         LEA     8(SP),SP                ; Tidy stack
  164.         MOVEM.L (SP)+,A0-A1/D0          ; Restore registers
  165.         RTS
  166. ;
  167. JOYEND  MOVEM.L A0,-(SP)                ; Save registers
  168.         MOVEA.L ADRSAV,A0               ; Point to table
  169.         MOVE.L  JOYSAV,24(A0)           ; Restore old value
  170.         PEA     MOUSON(PC)              ; Command to restore mouse
  171.         MOVE.W  #MOUSONL-1,-(SP)        ; Length-1
  172.         MOVE.W  #25,-(SP)               ; Ikbdws()
  173.         TRAP    #14                     ; Xbios
  174.         LEA     8(SP),SP                ; Tidy stack
  175.         MOVEM.L (SP)+,A0                ; Restore registers
  176.         RTS
  177. ;
  178. MOUSOF  DC.B    $12
  179. MOUSOFL EQU     *-MOUSOF
  180. MOUSON  DC.B    $08
  181. MOUSONL EQU     *-MOUSON
  182. ;
  183. ;       This next is our joystick interrupt routine. We may use
  184. ;       registers A0-A2 and D0-D2 without having to save them.
  185. ;
  186. OURJOY  MOVEA.L 4(SP),A0                ; Pointer to packet
  187.         CMPI.B  #$FE,(A0)               ; Joystick packet?
  188.         BLO.S   NOJOY                   ; Ignore if not
  189. YESJOY  MOVE.B  1(A0),JOY0              ; Copy joystick 0.
  190.         MOVE.B  2(A0),JOY1              ; Copy joystick 1.
  191. NOJOY   RTS
  192. ;
  193.         DATA
  194. ;
  195.         BSS
  196. ;
  197. ADRSAV  DS.L    1                       ; 4 bytes for table addr
  198. JOYSAV  DS.L    1                       ; 4 bytes for old vector
  199. JOY0    DS.B    1                       ; Joystick 0 state.
  200. JOY1    DS.B    1                       ; Joystick 1 state.
  201. ;
  202.         END
  203. ------------------------------------------------------------------------
  204.  
  205. Hope this is of help to people. Please feel free to add the contents of
  206. this article to any FAQs, etc.
  207.  
  208. Tony
  209.  
  210. -- 
  211. Tony Mountifield     (G4CJO)       | Microware Systems (UK) Ltd.
  212. -----------------------------------| Leylands Farm, Nobs Crook,
  213. Email:  tony@microware.co.uk       | Colden Common, WINCHESTER, SO21 1TH.
  214. (or:  ...!uknet!mwuk!tony)         | Tel: 0703 601990   Fax: 0703 601991
  215. ------------------------------------------------------------------------
  216. ** Any opinions are mine, not Microware's - but you knew that anyway. **
  217. ------------------------------------------------------------------------
  218.