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.38 Bindings für vqt_devinfo TOS
C: void vqt_devinfo ( int16_t handle, int16_t device, int16_t
*devexits, int8_t *devname );
Umsetzung:
void vqt_devinfo ( int16_t handle, int16_t device, int16_t *devexits,
int8_t *devname )
{
intin[0] = device;
contrl[0] = 248;
contrl[1] = 0;
contrl[3] = 1;
contrl[6] = handle;
vdi ();
*devexits = ptsout[0];
p = contrl[4];
dev_name[0..p-1] = intout[0..p-1];
}
GEM-Arrays:
Adresse Feldelement Belegung
contrl contrl[0] 248 # Opcode der Funktion
contrl+2 contrl[1] 0 # Einträge in ptsin
contrl+4 contrl[2] 1 # Einträge in ptsout
contrl+6 contrl[3] 1 # Einträge in intin
contrl+8 contrl[4] p # Einträge in intout
contrl+12 contrl[6] handle
intin intin[0] device
intout intout[0..p-1] devname[0..p-1]
ptsout ptsout[0] devexits