
.............................begin common deck TMA$TASK_SWITCH.....................
.
.
.. Define offsets for the various fields of tmt$dispatch_control_table.
.
head      equ    0
.
.. Define the shift value for 'multiplying' by ptl_entry size.
ptlshf    equ    5
.. Define offsets for the various fields of tmt$primary_task_list_entry
.
thread    equ    0
xcboff    equ    3
ptl_ijlo  equ    7
.
.. Define offsets for the various fields of jmt$initiated_job_list_entry
.
ijl_ajlo  equ    8*3+4
.
.. Define offsets for the various fields of ost$execution_control_block
.
p_select  equ    8*52+2
t_lpid    equ    8*52+3
.
.. Define offsets for the various fields of jmt$job_control_block
.
tasks     equ    1
j_lpid    equ    2
m_proc    equ    3
.
.............................end common deck TMA$TASK_SWITCH............................
