%ZTMS2 ;SEA/RDS-TaskMan: Submanager, Part 4 (Unload, Get Device) ;2/19/08 13:38
Source file <ZTMS2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PROCESS | ;SUBMGR--process task and all others waiting for same device
|
|
LOOKUP | ;PROCESS--unload task, switch ucis, and test entry routine
|
|
REJECT | ;LOOKUP--entry routine isn't here; reject task
|
|
DEVICE | ;PROCESS--prepare requested device; if can't, make task wait
|
|
IONQ | ;DEVICE--put task on Device Waiting List
|
|
IOQX | ||
SCHNQ | ;DEVICE--if HFS or SPL or TYPE'=C, reschedule task 10 min in future (try later)
|
|
SCHTM(ZTDTH) | ;Set a new schedule time, See that task is updated
|
|
NEWH(%H,%Y) | ;Build a new schedule time, Return $H3 time.
|
|
SYNCFLG(ACT,FLAG,ZIO,STAT) | ;Allocate/deallocate sync flag
|
|
SYNCQ(FLAG,ZIO,ZTH,ZTSK) | ;Put task on sync flag waiting list
|
|
SCHSYNC(FLAG,ZIO) | ;put a waiting task in IO queue
|
|
TSKSTAT(CODE,MSG) | ;Record status
|
|
POST | ;Post INIT cleanup for patch XU*8*167
|