case on mcopy waitctrl.mac copy /lang/orca/Libraries/AInclude/E16.Control gen on * list on **************************************************************** * * WaitCtrl * * **************************************************************** * case on dummy start end * Inputs: On entry, the parameters are passed to us on the stack. * * | | Previous Contents * |-------------------| * | ReturnValue | LONG - Space for return value * |-------------------| * | CtlCode | WORD - operation to perform * |-------------------| * | CtlParam | LONG - add'l parameter * |-------------------| * | theCtlHandle | LONG - Handle to control record * |-------------------| * | RtnAddr | 3 BYTES - RTL address * |-------------------| * | | <-- Stack pointer * * Outputs: Put something into ReturnValue, pull off the parameters, * and return to the Control Manager. * * | | Previous Contents * |-------------------| * | ReturnValue | LONG - Space for return value * |-------------------| * | RtnAddr | 3 BYTES - RTL address * |-------------------| * | | <-- Stack pointer WaitCtrl start using CData DefineStack cPointer longword EndLocals FixStack BegParms cHandle longword cParam longword cCode word EndParms result word BeginStack pha pha ~FindHandle #WaitCtrl _HLock stzl