INTERP:rocESS CGMJNICATICN AND DISPATCHING EXAMPLE
Procedure;
/**********************************************************************************/
/* Sem message to Print Reply Port. See Figure F-6 */ /**********************************************************************************/
= process 1; |
| /* process object index | */ | |
Window 4.frf.operand(O) | = | /* port | */ | |
= message obj | sel; | /* message | */ | |
Window=4.frf=operator | = 016H; - | - | /* Send function code | */ |
If ~imow_4.frf_function_state
Jk)
and OOlOH) <> 0 Then
/******************************************************************************/
/* | Sem instruction blocked, wait for a GOP process to receive a | */ | ||||
/* | message from the Print Reply Port. Busy wait for a GOP process | */ | ||||
/* | to | receives a message fran the Print Reply Port. Such an event | */ | |||
/* will trigger an AP interrupt | and set Window 4.disp state true | */ | ||||
/* | to | indicate the nature of the | interrupt. | - | - | */ |
/******************************************************************************/ Jk) While not (Window_4.disp_state = 1); End;
/******************************************************************************/
/* At this point WindCM 4.selected index contains the index of the | */ |
/* process object | */ |
/* object o~ selected index will equal one. Window 4.selected state | */ |
/* contains software defined information | */ |
/* any, by roftware in completing this instruction. | */ |
/******************************************************************************/
call Dispatdl; | /* Hang IP processor carrier on dispatching port. | */ |
Em; |
|
|
Em:
Em