Measurement-computing Personal488 rev.3.0 For DOS & Windows 3.Xi Uživatelský manuál stáhnout pdf (Strana 79)

100

101

8E. Microsoft C II. SOFTWARE GUIDES - 8. Driver488/DRV

II-64 Personal488 User’s 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

1 2 ... 74 75 76 77 78 79 80 81 82 83 84 ... 399 400

Komentáře k této Příručce

Žádné komentáře

Measurement-computing Personal488 rev.3.0 For DOS & Windows 3.Xi Uživatelský manuál Strana 79

Komentáře k této Příručce

Související produkty a manuály pro Hardware Measurement-computing Personal488 rev.3.0 For DOS & Windows 3.Xi