Vol.17 No.2 李毅杰等：实时多任务操作系统在窄带钢热连轧机的应用 157. MTKSMBXSTOKEN=RQSCREATESMAILBOX(MBXSFLAGS,@STAUTS); DSPSMBXSTOKEN=RQSCREATESMAILBOX(MBXSFLAGS,@STA TUS); RMTKSMBXSTOKEN=RQSCREATESMAILBOX(MBXSFLAGS,@STATUS); RDSPSMBXSTOKEN=RQSCREATESMAILBOX(MBXSFLAGS,@STATUS); /Create segments SEGSMTKST=RQSCREATESSEGMENT(SEGSSIZE,(@STATUS); SEGSDSPST=RQSCREATESSEGMENT(SEGSSIZE.@STATUS); /Phgsical attachdevice CALL RQSPHYSICALSATTACHDEVICE(@*2'LP'),1.RSPSMBX,@STATUS); CALL RQSPHYSICALSATTACHDEVICE(@(6,'WMFDXO'),4,RSPSMBX, @STATUS); Create all files CALL RQSASCREATESFILE(0.LPSDEVSCON.(a(0),0,0,0,0.RSP$MBX,@STATUS); /Open all files CALL RQSASOPEN(LPSFILESCON.2.0.RSPSMBX.(a:STATUS); 水t /Create all tasks MTKSTASKST=RQSCREATESTASK(TASKSLEVELI,@MTKSTASK,0,0,512, 1,@STATUS); DSPSTASKST=RQSCREATESTASK(TASKSLEVEL,(@DSPSTASK,0,0,512,1, @STATUS); ” END AIOSSTASK; 跟踪任务的结构如下： MTKSTASK:PROCEDURE PUBLIC; CALL RQSSETSINTERRUPT(LEVEL.FLAG,INTERUPTPTR(INTSHANDLER), O,@STATUS); DO FOREVER: CALL RQSWAITSINTERRUPT(LEVEL,@STATUS); CALL RQSSENDSMESSAEG(DSPSMBXST.SEGSDSPST,0.(@STATUS): END MTKSTASK:丫 李 毅 杰 等 实 时 多 任 务 操 作 系 统 在 窄 带 钢 热 连 轧 机 的 应 用 巧 ， 万 尸乙 ， 月 ， ， ， 月 五 ， ‘ 入 ‘ ’ ， ， ， ，’ ’ ， ， ， ， ， ， ， ， ， 、 ， 工粗 尸 石 ， ， ， 尺 尸 ， 了月 通 ， 丁月 ， ， ， ， ， 丁月 石 ， 了 减 ， ， ， ， ， 几搜 跟 踪 任 务 的 结 构 如 下 ， ， 了 ， ， 马 ， ， 月 习 ， ， 五 ， ， 月