Measurement-computing Personal488 rev.3.0 For DOS & Windows 3.Xi Manual de usuario Pagina 79

  • Descarga
  • Añadir a mis manuales
  • Imprimir
  • Pagina
    / 400
  • Tabla de contenidos
  • SOLUCIÓN DE PROBLEMAS
  • MARCADORES
  • Valorado. / 5. Basado en revisión del cliente
Vista de pagina 78
8E. Microsoft C II. SOFTWARE GUIDES - 8. Driver488/DRV
II-64 Personal488 Users Manual, Rev. 3.0
ieeewt(output 16;M2X);
}
void isr()
{ int _false_();
int st195;
printf(Interrupt detected...);
ieee_cki = _false_;
int sp;
ieeewt(spoll\n);
ieeescnf(%d,&sp);
if (sp==0) {
printf(Non-SRQ Interrupt!\n);
exit(1);
}
ieeewt(spoll 16\n);
ieeescnf(%d,&st195);
if ((st195 & 0x40) == 0 ) {
printf(Non-195 SRQ!\n);
exit();
}
if ((st195 & 0x20) == 0) {
if (st195 & 0x01)
printf(Overflow\n);
if (st195 & 0x02)
printf(Buffer Full\n);
if (st195 & 0x04)
printf(Buffer 1/2 Full\n);
if (st195 & 0x08)
printf(Reading Done\n);
if (st195 & 0x10)
printf(Busy\n);
} else {
if (st195 & 0x01)
printf(Illegal Command Option\n);
if (st195 & 0x02)
printf(Illegal Command\n);
if (st195 & 0x04)
printf(No Remote\n);
if (st195 & 0x08)
printf(Trigger Overrun\n);
if (st195 & 0x10)
printf(Failed Selftest\n);
}
ieee_cki = cklpint;
8F. Microsoft Fortran
Note: The following short program illustrates the use of Driver488/DRV with Microsoft Fortran.
Most of the program length is composed of utilities that simplify character I/O in Fortran.
Sample Program
Character Result*127
Integer StrLen
Call OpenIeee
Write(1,*)RESET
Write(1,*)REMOTE 16
Write(1,*)OUTPUT 16;Z1X
Write(1,*)ENTER 16
Call FlushIeee
Read(2) Result
Write(*,*)Result(1:StrLen(Result,127))
END
Vista de pagina 78
1 2 ... 74 75 76 77 78 79 80 81 82 83 84 ... 399 400

Comentarios a estos manuales

Sin comentarios