HP 9000 Series 300 Tutorials Manual page 190

338 /* TLK31 (UNT) is special for amigo identify */
339 /* finish with a MTA (UNT is not save for non-amigo devices) */
340 HPIB_msg(H_REAO, MLA, UNT, SCG_BASE
+
devba, identify, 2, MTA, 0);
341
342 switch(identify[O]) {
343 case 32:
344 /* Amigo identify */
345 switch(identify[1]) {
346 case 1: return(T2608A);
347 case 2: return(T2631A);
348 case 9: return(T2631B);
349 case 11: return(T2673A);
350 case 13: return(QjetPlus);
351 case 16: return (T2632A) ;
352 case 17: return(T2634A);
353 default:
354 printf(IIUnrecognized Amigo printer, 102 %d\n",
355 identify[1]); break;
356 }
357 break;
358 case 33:
359 if (identify[1]
==
1)
360 printf("Ciper printer not supported yet!\n");
361 break;
362 default:
363 printf("Unrecognized Amigo Printer identify, 101 %d, 102 %d\n",
364 identify [0] , identify[1]);
365 break;
366 }
367 exit(2);
368 }
369
370 /* set the parallel poll mask value */
371 amigo_set_pmask()
372 {
373 HPIB_msg(H_WRITE, MTA, OLA, PR_SEC_MASK, pmask, 1, UNL, 0);
374 }
375
0-10 OIL Programming Example