home bbs files messages ]

Forums before death by AOL, social media and spammers... "We can't have nice things"

   comp.sys.apple2      Discussion about Apple II micros      56,720 messages   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]

   Message 55,604 of 56,720   
   Renaud Malaval to All   
   Re: Programming the GS   
   14 Jul 22 07:31:46   
   
   From: renaud.malaval@free.fr   
      
   Hello Masters,   
      
    My little program is in C with OrcaC and OrcaM.   
    But I use csubroutine() and creturn() macros   
    Init of Tools, and usage are perfect in C (GetNextEvent() works perfect)   
    In my 1st sub routine I call csubroutine() to pass parameters, its fine.   
      
    My problem is usage of _GetNextEvent(), the field EventWhat is always equal   
   to 0   
      
   GlobalData     DATA   
    ...   
   EventRecord    anop   
   EventWhat      ds 2   
   EventMessage   ds 4   
   EventWhen      ds 4   
   EventWhere     ds 4   
   EventModifiers ds 2   
    ...   
                          END   
      
   CARTE          START                                    ; main entry point   
                  using GlobalData   
                  csubroutine (5:aTable),4   
    ...   
      
   Again          PushWord #0   
                  PushWord #$FFFE   
                  PushLong #EventRecord   
                  _GetNextEvent   
                  pla   
                  beq Again                       ; no event   
      
   SuiteAgain     lda EventWhat   
                  cmp #3                          ; keyDownEvt = 3   
                  bne Follow_A   
                  brl Keys   
      
   Follow_A    anop   
    ...   
      
   Keys           anop   
    ...   
      
                   creturn 2:FlagPoint             ; return the position...   
                          END   
      
      
   Any idea, please ?   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)   

[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]


(c) 1994,  bbs@darkrealms.ca