Topic : TOS - das Betriebssystem
Author :
Version : tos.hyp (5. März 2013)
Subject : Programmieren/Atari
Nodes : 3001
Index Size : 93602
HCP-Version : 5
Compiled on : Atari
@charset : atarist
@lang :
@default : Titel
@help :
@options : +g -i -s +x +zz -t4
@width : 70
View Ref-File8.16.12.1 Bindings für objc_wedit TOS
C: int16_t objc_wedit ( OBJECT *ob_edtree, int16_t
ob_edobject, int16_t ob_edchar, int16_t *ob_edidx,
int16_t ob_edkind, int16_t whandle );
Umsetzung:
int16_t objc_wedit (OBJECT *ob_edtree, int16_t ob_edobject,
int16_t ob_edchar, int16_t *ob_edidx,
int16_t ob_edkind, int16_t whandle)
{
int_in[0] = ob_edobject;
int_in[1] = ob_edchar;
int_in[2] = *ob_edidx;
int_in[3] = ob_edkind;
int_in[4] = whandle;
addr_in[0] = ob_edtree;
crys_if (65);
*ob_edidx = int_out[1];
return ( int_out[0] );
}
GEM-Arrays:
Adresse Feldelement Belegung
control control[0] 65 # Opcode der Funktion
control+2 control[1] 5 # Einträge in int_in
control+4 control[2] 2 # Einträge in int_out
control+6 control[3] 1 # Einträge in addr_in
control+8 control[4] 0 # Einträge in addr_out
int_in int_in[0] ob_edobject
int_in+2 int_in[1] ob_edchar
int_in+4 int_in[2] ob_edidx
int_in+6 int_in[3] ob_edkind
int_in+8 int_in[4] whandle
addr_in addr_in[0] ob_edtree
int_out int_out[0] Return-Wert
int_out+2 int_out[1] ob_edidx