OpenCores
URL https://opencores.org/ocsvn/forwardcom/forwardcom/trunk

Subversion Repositories forwardcom

Compare Revisions

  • This comparison shows the changes necessary to convert path 
    /
    from Rev 132 to Rev 133
    ↔ Reverse comparison
  •

Rev 132 → Rev 133

/forwardcom/examples/event.as
0,0 → 1,94
/**************************** events.as *************************************
* Author: Agner Fog
* date created: 2018-03-23
* Last modified: 2018-03-23
* Version: 1.00
* Project: ForwardCom example
* Description: Test event handler system
*
* Copyright 2018 GNU General Public License http://www.gnu.org/licenses
******************************************************************************/
 
// define event IDs
%EVT_CONSTRUCT = 1 // call static constructors and initialization procedures before calling main
%EVT_DESTRUCT = 2 // call static destructors and clean up after return from main
%EVT_MY_DEF = 0x100 // arbitrary user-defined event id
%KEY = 1 // arbitrary key for my event
%DEFAULT_PRIORITY = 0x1000 // default event priority
 
/*
Event records must be stored in a special read-only section with attribute 'event_hand'.
These records will be reordered and combined by the linker.
Each record contains:
1. A scaled relative pointer to the event handler function
2. Event priority
3. Key
4. Event ID
*/
events section read event_hand
int32 (constructor-__ip_base)/4, DEFAULT_PRIORITY, 0, EVT_CONSTRUCT
int32 (destructor-__ip_base)/4, DEFAULT_PRIORITY, 0, EVT_DESTRUCT
int32 (event1-__ip_base)/4, DEFAULT_PRIORITY, KEY, EVT_MY_DEF
int32 (event2-__ip_base)/4, DEFAULT_PRIORITY+1, KEY, EVT_MY_DEF
events end
 
 
const section read ip // read-only data section
// char strings with terminating zero
hello: int8 "\nMain called", 0
constr: int8 "\nTesting event handler system:\n\n\nConstructor called", 0
destr: int8 "\nDestructor called\n\n", 0
texte1: int8 "\nEvent handler 1 called", 0
texte2: int8 "\nEvent handler 2 called (higher priority)", 0
const end
 
code section execute align = 4 // code section
 
extern __ip_base: ip // reference point
extern _puts: function // library function: write string to stdout
extern _raise_event: function // library function: make an event
 
_main function public // main is the program entry called by the startup code
int64 r0 = address([hello]) // calculate address of string
call _puts // call puts: write string pointed to by r0
// now create an event with key 1 and event ID = EVT_MY_DEF
int64 r0 = KEY + (EVT_MY_DEF << 32) // constant expression calculated by assembler
call _raise_event // make the event
 
int64 r0 = 0 // program return value
return
_main end
 
// this function is assigned to the EVT_CONSTRUCT event to be called before main
constructor function
int64 r0 = address([constr]) // calculate address of string
call _puts // call puts. parameter is in r0
int64 r0 = 1 // return 1 to allow further event handlers
return
constructor end
 
// this function is assigned to the EVT_DESTRUCT event to be called after main
destructor function
int64 r0 = address([destr]) // calculate address of string
call _puts // call puts. parameter is in r0
int64 r0 = 1 // return 1 to allow further event handlers
return
destructor end
 
// this function is assigned to the user-defined EVT_MY_DEF event to be called at this custum event
event1 function
int64 r0 = address([texte1]) // calculate address of string
call _puts // call puts. parameter is in r0
int64 r0 = 1 // return 1 to allow further event handlers
return
event1 end
 
// this function is also assigned to the user-defined EVT_MY_DEF, but with a higher priority. It will be called first
event2 function
int64 r0 = address([texte2]) // calculate address of string
call _puts // call puts. parameter is in r0
int64 r0 = 1 // return 1 to allow further event handlers
return
event2 end
 
code end

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.