Topic : TOS - The Operating System
Author :
Version : tos.hyp (December 19, 2008)
Subject : Programmieren/Atari
Nodes : 3010
Index Size : 93790
HCP-Version : 5
Compiled on : Atari
@charset : atarist
@lang :
@default : Title
@help :
@options : +g -i -s +x +zz -t4
@width : 70
View Ref-File8.11.14.1 Bindings for xfrm_popup TOS
C: int16_t xfrm_popup( OBJECT *tree, int16_t x, int16_t y,
int16_t firstscrlob, int16_t lastscrlob, int16_t nlines,
void cdecl (*init)(OBJECT *tree, int16_t scrollpos,
int16_t nlines, void *param), void *param, int16_t
*lastscrlpos )
Binding:
int16_t xfrm_popup( OBJECT *tree, int16_t x, int16_t y,
int16_t firstscrlob, int16_t lastscrlob,
int16_t nlines,
void cdecl (*init)(OBJECT *tree, int16_t scrollpos,
int16_t nlines, void *param),
void *param, int16_t *lastscrlpos )
{
int_in[0] = x;
int_in[1] = y;
int_in[2] = firstscrlob;
int_in[3] = lastscrlob;
int_in[4] = nlines;
int_in[5] = *lastscrlpos;
addr_in[0] = tree;
addr_in[1] = init;
addr_in[2] = param;
int_out[1] = *lastscrlpos; /* Preset this */
crys_if(135)
*lastscrlpos = int_out[1];
return ( int_out[0] );
}
GEM-Arrays:
Address Element Contents
control control[0] 135 # Function opcode
control+2 control[1] 6 # Entry in int_in
control+4 control[2] 2 # Entry in int_out
control+6 control[3] 3 # Entry in addr_in
control+8 control[4] 0 # Entry in addr_out
int_in int_in[0] x
int_in+2 int_in[1] y
int_in+4 int_in[2] firstscrlob
int_in+6 int_in[3] lastscrlob
int_in+8 int_in[4] nlines
int_in+10 int_in[5] lastscrlpos
addr_in addr_in[0] tree
addr_in+4 addr_in[1] init
addr_in+8 addr_in[2] param
int_out int_out[0] Return value
int_out+2 int_out[1] lastscrlpos