forked from hperaza/ZSM4
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathtcb.inc
127 lines (102 loc) · 4.77 KB
/
tcb.inc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
; Task Control Block structure
T.LNK equ 0 ; utility link field (2 bytes)
T.TCBL equ T.LNK + 2 ; link to next TCB in directory list (2 bytes)
T.ACTL equ T.TCBL + 2 ; link to next TCB in active task list (2 bytes)
T.ATTR equ T.ACTL + 2 ; attributes (1 byte)
T.ST equ T.ATTR + 1 ; status (2 bytes)
T.DPRI equ T.ST + 2 ; default priority (1 byte)
T.PRI equ T.DPRI + 1 ; current priority (1 byte)
T.SPRI equ T.PRI + 1 ; current swap priority (1 byte)
T.NAME equ T.SPRI + 1 ; task name (6 characters)
T.VID equ T.NAME + 6 ; task version identification (6 characters)
T.CMD equ T.VID + 6 ; pointer to command line block (2 bytes)
T.IOC equ T.CMD + 2 ; outstanding I/O count (1 byte)
T.RCVL equ T.IOC + 1 ; pointer to receive queue (2 bytes)
T.OCBL equ T.RCVL + 2 ; pointer to list of OCBs (2 bytes)
T.SAST equ T.OCBL + 2 ; pointer to list of specified ASTs (2 bytes)
T.ASTL equ T.SAST + 2 ; pointer to list of AST events (2 bytes)
T.SVST equ T.ASTL + 2 ; saved task status during AST (2 bytes)
T.FLGS equ T.SVST + 2 ; task event flags (4 bytes = 32 flags)
T.WAIT equ T.FLGS + 4 ; flag wait mask (4 bytes)
T.CTX equ T.WAIT + 4 ; pointer to Context Block (2 bytes)
T.TI equ T.CTX + 2 ; UCB of terminal device (2 bytes)
T.LDEV equ T.TI + 2 ; UCB of load device (2 bytes)
T.SBLK equ T.LDEV + 2 ; task starting disk block number (4 bytes)
T.NBLK equ T.SBLK + 4 ; task size in disk blocks (2 bytes)
T.PCB equ T.NBLK + 2 ; pointer to PCB (2 bytes)
T.CPCB equ T.PCB + 2 ; pointer to checkpoint PCB (2 bytes)
T.STRT equ T.CPCB + 2 ; start address (2 bytes)
T.DEND equ T.STRT + 2 ; default end address (2 bytes)
T.END equ T.DEND + 2 ; current end address (2 bytes)
T.EPT equ T.END + 2 ; entry point (2 bytes)
T.SP equ T.EPT + 2 ; task SP (2 bytes)
; TCB size
TCBSZ equ T.SP + 2
; Attribute bit numbers
TA.PRV equ 0 ; task is privileged
TA.REM equ 1 ; remove on exit
TA.AST equ 2 ; AST recognition enabled
TA.FIX equ 3 ; task fixed in memory
TA.MCR equ 4 ; task is external MCR function
TA.CLI equ 5 ; task is a CLI
TA.ACP equ 6 ; task is an ACP
TA.CKD equ 7 ; checkpointing disabled
; Status bit numbers
TS.ACT equ 0 ; task active
TS.AST equ 1 ; task is executing an AST
TS.SUP equ 2 ; task is in supervisor mode
TS.CKR equ 3 ; checkpoint requested
T2.STP equ 0 ; stopped \
T2.SEF equ 1 ; stopped for event flag |
T2.EFW equ 2 ; event flag waiting | "blocking" bits:
T2.WTD equ 3 ; waiting for data | all zero means
T2.OUT equ 4 ; task is out of memory | task is executing
T2.CKP equ 5 ; task is checkpointed |
T2.LDR equ 6 ; task is being loaded |
T2.ABO equ 7 ; task is being aborted /
; Task Context Block structure
TX.UID equ 0 ; protection user ID (1 byte)
TX.GID equ TX.UID + 1 ; protection group ID (1 byte)
TX.DIR equ TX.GID + 1 ; task's current directory (9 bytes)
TX.SWM equ TX.DIR + 9 ; saved flag wait mask during AST (4 bytes)
TX.LUT equ TX.SWM + 4 ; LUN translation table (64 bytes)
; Context Block size
CTXSZ equ TX.LUT + 64
; Task Descriptor Block
TD.NAME equ 0 ; task name (6 characters)
TD.CMD equ TD.NAME + 6 ; address of command line block (2 bytes)
TD.CML equ TD.CMD + 2 ; length of command (2 bytes)
TD.ATTR equ TD.CML + 2 ; initial attributes (1 byte)
TD.USR equ TD.ATTR + 1 ; user number (1 byte)
TD.GRP equ TD.USR + 1 ; group number (1 byte)
TD.TI equ TD.GRP + 1 ; console device and unit (3 bytes)
TD.SDAT equ TD.TI + 3 ; address of data block to send (2 bytes)
TD.SLEN equ TD.SDAT + 2 ; size of data block to send (2 bytes)
; TDB size
TDBSZ equ TD.SLEN + 2
; Offspring Control Block
O.LNK equ 0 ; link to next OCB in list (2 bytes)
O.PTCB equ O.LNK + 2 ; address of parent's TCB (2 bytes)
O.EFN equ O.PTCB + 2 ; event flag number (1 byte)
O.ESB equ O.EFN + 1 ; addr of parent's exit status block (2 bytes)
O.ST equ O.ESB + 2 ; status (2 bytes)
; OCB size
OCBSZ equ O.ST + 2
; Structure returned by the .GTSK Get Task Info system call
GT.ATTR equ 0 ; task attributes (1 byte)
GT.ST equ GT.ATTR + 1 ; task status (2 bytes)
GT.DPRI equ GT.ST + 2 ; default priority (1 byte)
GT.PRI equ GT.DPRI + 1 ; current priority (1 byte)
GT.NAME equ GT.PRI + 1 ; task name (6 characters)
GT.VID equ GT.NAME + 6 ; task version identification (6 characters)
GT.TI equ GT.VID + 6 ; console device and unit (3 bytes)
GT.LDEV equ GT.TI + 3 ; load device and unit (3 bytes)
GT.SBLK equ GT.LDEV + 3 ; task starting disk block number (4 bytes)
GT.NBLK equ GT.SBLK + 4 ; task size in disk blocks (2 bytes)
GT.PAR equ GT.NBLK + 2 ; partition name (6 bytes)
GT.STRT equ GT.PAR + 6 ; start address (2 bytes)
GT.DEND equ GT.STRT + 2 ; default end address (2 bytes)
GT.END equ GT.DEND + 2 ; end address (2 bytes)
GT.EPT equ GT.END + 2 ; entry point (2 bytes)
; GTIB size
GTKSZ equ GT.EPT + 2