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-File7.6.66  Bindings für vqt_width                                     TOS

 C:         int16_t vqt_width ( int16_t handle, int8_t character, 
            int16_t *cell_width, int16_t *left_delta, int16_t 
            *right_delta );

 Umsetzung:

            int16_t vqt_width (int16_t handle, int8_t character,
                               int16_t *cell_width, int16_t *left_delta,
                               int16_t *right_delta)
            {
               intin[0] = character;
 
               contrl[0] = 117;
               contrl[1] = 0;
               contrl[3] = 1;
               contrl[6] = handle;
 
               vdi ();
 
               *cell_width  = ptsout[0];
               *left_delta  = ptsout[2];
               *right_delta = ptsout[4];
 
               return ( intout[0] );
            }

 GEM-Arrays:

             Adresse    Feldelement  Belegung 
             contrl     contrl[0]    117   # Opcode der Funktion 
             contrl+2   contrl[1]    0     # Einträge in ptsin 
             contrl+4   contrl[2]    3     # Einträge in ptsout 
             contrl+6   contrl[3]    1     # Einträge in intin 
             contrl+8   contrl[4]    1     # Einträge in intout 
             contrl+12  contrl[6]    handle 
             intin      intin[0]     character 
             intout     intout[0]    Return-Wert 
             ptsout     ptsout[0]    cell_width 
             ptsout+2   ptsout[1]    0 
             ptsout+4   pstout[2]    left_delta 
             ptsout+6   ptsout[3]    0 
             ptsout+8   ptsout[4]    right_delta 
             ptsout+10  ptsout[5]    0