HP 9000 Series 300 Tutorials Manual page 191

376 /* do the amigo clear followed by selective device clear */
377 amigo_clear()
378 {
379 HPIB_msg(H_WRITE, MTA, DLA, SCG_BASE
+
16, "\0", 1, SOC, UNL);
380 }
381
382 /* get the dsj byte */
383 int
384
amigo_dsj 0
385 {
386 unsigned char dsj_byte[1];
387
388 HPIB_msg(H_READ, MLA, DTA, PR_SEC_DSJ, dsj_byte, 1, UNT, 0);
389 return(dsj_byte[O]);
390 }
391
392 /* return the amigo status byte */
393 int
394 amigo_status()
395 {
396 unsigned char status_byte [1] ;
397
398 HPIB_msg(H_READ, MLA, DTA, PR_SEC_RSTA, status_byte, 1, UNT, 0);
399 return(status_byte[O]);
400 }
401
402 /* output a buffer to printer */
403 amigo_write (buffer, length)
404 char *buffer;
405 int length;
406 {
407 int status, dsj
=
0;
408
409 /* write the buffer */
410 HPIB_msg(H_WRITE, MTA, DLA, PR_SEC_DATA, buffer, length, UNL, 0);
411 again:
412 /* now wait for parallel poll response */
413 if (Debug) printf("%s Ppoll wait\n", ptr_dev);
414 if (hpib_wait_on_ppoll(eid, Ox80»devba, 0) < 0)
415 fatal_err ("hpib_wait_on_ppoll", ptr_dev, F_EXIT);
416
OIL Programming Example 0-11