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-File7.4.6.36 Bindings for vsl_width TOS
C: int16_t vsl_width ( int16_t handle, int16_t width );
Binding:
int16_t vsl_width (int16_t handle, int16_t width)
{
ptsin[0] = width;
ptsin[1] = 0;
contrl[0] = 16;
contrl[1] = 1;
contrl[3] = 0;
contrl[6] = handle;
vdi ();
return ( ptsout[0] );
}
GEM-Arrays:
Address Element Contents
contrl contrl[0] 16 # Function Opcode
contrl+2 contrl[1] 1 # entry in ptsin
contrl+4 contrl[2] 1 # entry in ptsout
contrl+6 contrl[3] 0 # entry in intin
contrl+8 contrl[4] 0 # entry in intout
contrl+12 contrl[6] handle
ptsin ptsin[0] width
ptsin+2 ptsin[1] 0
ptsout ptsout[0] Return value
ptsout+2 ptsout[1] 0