|
1145
|
1 **************************************************
|
|
|
2 * System Call: F$Chain
|
|
|
3 *
|
|
|
4 * Function: Starts a new child process and terminates the calling process.
|
|
|
5 *
|
|
|
6 * Input: X = Address of module or filename
|
|
|
7 * Y = Parameter area size (256 byte pages)
|
|
|
8 * U = Address of parameter area
|
|
|
9 * A = Language/Type code
|
|
|
10 * B = Optional data area size (256 byte pages)
|
|
|
11 *
|
|
|
12 * Output: None
|
|
|
13 *
|
|
|
14 * Error: CC = C bit set; B = error code
|
|
|
15 *
|
|
|
16 FChain pshs u preserve register stack pointer
|
|
|
17 lbsr AllPrc allocate a new process descriptor
|
|
|
18 bcc L03B7 do the chain if no error
|
|
|
19 puls u,pc return to caller with error
|
|
|
20
|
|
|
21 * Copy Process Descriptor Data
|
|
|
22 L03B7 ldx <D.Proc get pointer to current process
|
|
|
23 pshs x,u save old & new descriptor pointers
|
|
|
24 leax P$SP,x point to source
|
|
|
25 leau P$SP,u point to destination
|
|
|
26 IFNE H6309
|
|
|
27 ldw #$00fc get size (P$SP+$FC)
|
|
|
28 tfm x+,u+ move it
|
|
|
29 ELSE
|
|
1239
|
30 ldy #$00FC
|
|
1145
|
31 L03C3 ldd ,x++ copy bytes
|
|
|
32 std ,u++
|
|
1239
|
33 leay -2,y
|
|
1145
|
34 bne L03C3
|
|
|
35 ENDC
|
|
|
36 L03CB ldu 2,s get new descriptor pointer
|
|
|
37 leau <P$DATImg,u
|
|
|
38 ldx ,s get old descriptor pointer
|
|
|
39 lda P$Task,x get task #
|
|
|
40 lsla 2 bytes per entry
|
|
|
41 ldx <D.TskIpt get task image table pointer
|
|
|
42 stu a,x save updated DAT image pointer for later
|
|
|
43 * Question: are the previous 7 lines necessary? The F$AllTsk call, below
|
|
|
44 * should take care of everything!
|
|
|
45 ldx <D.Proc get process descriptor
|
|
|
46 IFNE H6309
|
|
|
47 clrd Faster than 2 memory clears
|
|
|
48 ELSE
|
|
|
49 clra
|
|
|
50 clrb
|
|
|
51 ENDC
|
|
|
52 stb P$Task,x old process has no task number
|
|
|
53 std <P$SWI,x clear out all sorts of signals and vectors
|
|
|
54 std <P$SWI2,x
|
|
|
55 std <P$SWI3,x
|
|
|
56 sta <P$Signal,x
|
|
|
57 std <P$SigVec,x
|
|
|
58 ldu <P$PModul,x
|
|
|
59 os9 F$UnLink unlink from the primary module
|
|
|
60 ldb P$PagCnt,x grab the page count
|
|
|
61 addb #$1F round up to the nearest block
|
|
|
62 lsrb
|
|
|
63 lsrb
|
|
|
64 lsrb
|
|
|
65 lsrb
|
|
|
66 lsrb get number of blocks used
|
|
|
67 lda #$08
|
|
|
68 IFNE H6309
|
|
|
69 subr b,a A=number of blocks unused
|
|
|
70 ELSE
|
|
|
71 pshs b
|
|
|
72 suba ,s+
|
|
|
73 ENDC
|
|
|
74 leay <P$DATImg,x set up the initial DAT image
|
|
|
75 lslb
|
|
|
76 leay b,y go to the offset
|
|
|
77 ldu #DAT.Free mark the blocks as free
|
|
|
78 L040C stu ,y++ do all of them
|
|
|
79 deca
|
|
|
80 bne L040C
|
|
|
81 ldu 2,s get new process descriptor pointer
|
|
|
82 stu <D.Proc make it the new process
|
|
|
83 ldu 4,s
|
|
|
84 lbsr L04B1 link to new module & setup register stack
|
|
|
85 IFNE H6309
|
|
|
86 bcs L04A1
|
|
|
87 ELSE
|
|
|
88 lbcs L04A1
|
|
|
89 ENDC
|
|
|
90 pshs d somehow D = memory size? Or parameter size?
|
|
|
91 os9 F$AllTsk allocate a new task number
|
|
|
92 * ignore errors here
|
|
|
93 * Hmmm.. the code above FORCES the new process to have the same DAT image ptr
|
|
|
94 * as the old process, not that it matters...
|
|
|
95
|
|
1247
|
96 IFNE H6309
|
|
1244
|
97 fcb $24,$00 TODO: Identify this!
|
|
1247
|
98 ENDC
|
|
1145
|
99 ldu <D.Proc get nre process
|
|
|
100 lda P$Task,u new task number
|
|
|
101 ldb P$Task,x old task number
|
|
|
102 leau >(P$Stack-R$Size),x set up the stack for the new process
|
|
|
103 leax ,y
|
|
|
104 ldu R$X,u where to copy from
|
|
|
105 IFNE H6309
|
|
|
106 cmpr x,u check From/To addresses
|
|
|
107 ELSE
|
|
1239
|
108 pshs x src ptr
|
|
|
109 cmpu ,s++ dest ptr
|
|
1145
|
110 ENDC
|
|
|
111 puls y size
|
|
|
112 bhi L0471 To < From: do F$Move
|
|
|
113 beq L0474 To == From, skip F$Move
|
|
|
114
|
|
|
115 * To > From: do special copy
|
|
|
116 leay ,y any bytes to move?
|
|
|
117 beq L0474 no, skip ahead
|
|
|
118 IFNE H6309
|
|
|
119 pshs x save address
|
|
|
120 addr y,x add size to FROM address
|
|
|
121 cmpr x,u is it
|
|
|
122 puls x
|
|
|
123 ELSE
|
|
|
124 pshs d,x
|
|
|
125 tfr y,d
|
|
|
126 leax d,x
|
|
1239
|
127 pshs x
|
|
|
128 cmpu ,s++
|
|
1145
|
129 puls d,x
|
|
|
130 ENDC
|
|
|
131 bls L0471 end of FROM <= start of TO: do F$Move
|
|
|
132
|
|
|
133 * The areas to copy overlap: do special move routine
|
|
|
134 pshs d,x,y,u save regs
|
|
|
135 IFNE H6309
|
|
|
136 addr y,x go to the END of the area to copy FROM
|
|
|
137 addr y,u end of area to copy TO
|
|
|
138 ELSE
|
|
|
139 tfr y,d
|
|
|
140 leax d,x
|
|
1239
|
141 leau d,u
|
|
1145
|
142 ENDC
|
|
|
143
|
|
|
144 * This all appears to be doing a copy where destination <= source,
|
|
|
145 * in the same address space.
|
|
|
146 L0457 ldb ,s grab ??
|
|
|
147 leax -1,x back up one
|
|
|
148 os9 F$LDABX
|
|
|
149 exg x,u
|
|
|
150 ldb 1,s
|
|
|
151 leax -1,x back up another one
|
|
|
152 os9 F$STABX
|
|
|
153 exg x,u
|
|
|
154 leay -1,y
|
|
|
155 bne L0457
|
|
|
156
|
|
|
157 puls d,x,y,u restore regs
|
|
|
158 bra L0474 skip over F$Move
|
|
|
159
|
|
|
160 L0471 os9 F$Move move data over?
|
|
|
161 L0474 lda <D.SysTsk get system task number
|
|
|
162 ldx ,s old process dsc ptr
|
|
|
163 ldu P$SP,x
|
|
|
164 leax >(P$Stack-R$Size),x
|
|
|
165 ldy #R$Size
|
|
|
166 os9 F$Move move the stack over
|
|
|
167 puls u,x restore new, old process dsc's
|
|
|
168 lda P$ID,u
|
|
|
169 lbsr L0386 check alarms
|
|
|
170 os9 F$DelTsk delete the old task
|
|
|
171 orcc #IntMasks
|
|
|
172 ldd <D.SysPrc
|
|
|
173 std <D.Proc
|
|
|
174 IFNE H6309
|
|
|
175 aim #^SysState,P$State,x
|
|
|
176 ELSE
|
|
|
177 lda P$State,x
|
|
|
178 anda #^SysState
|
|
|
179 sta P$State,x
|
|
|
180 ENDC
|
|
|
181 os9 F$AProc activate the process
|
|
|
182 os9 F$NProc go to it
|
|
|
183
|
|
|
184 * comes here on error with link to new module
|
|
|
185 L04A1 puls u,x
|
|
|
186 stx <D.Proc
|
|
|
187 pshs b
|
|
|
188 lda ,u
|
|
|
189 lbsr L0386 kill signals
|
|
|
190 puls b
|
|
|
191 os9 F$Exit exit from the process with error condition
|
|
|
192
|
|
|
193 * Setup new process DAT image with module
|
|
|
194 L04B1 pshs d,x,y,u preserve everything
|
|
|
195 ldd <D.Proc get pointer to current process
|
|
|
196 pshs d save it
|
|
|
197 stx <D.Proc save pointer to new process
|
|
|
198 lda R$A,u get module type
|
|
|
199 ldx R$X,u get pointer to module name
|
|
|
200 ldy ,s get pointer to current process
|
|
|
201 leay P$DATImg,y point to DAT image
|
|
|
202 os9 F$SLink map it into new process DAT image
|
|
|
203 bcc L04D7 no error, keep going
|
|
|
204 ldd ,s restore to current process
|
|
|
205 std <D.Proc
|
|
|
206 ldu 4,s get pointer to new process
|
|
|
207 os9 F$Load try & load it
|
|
|
208 bcc L04D7 no error, keep going
|
|
|
209 leas 4,s purge stack
|
|
|
210 puls x,y,u,pc restore & return
|
|
|
211 *
|
|
|
212 L04D7 stu 2,s save pointer to module
|
|
|
213 pshs a,y save module type & entry point
|
|
|
214 ldu $0B,s restore register stack pointer
|
|
|
215 stx R$X,u save updated name pointer
|
|
|
216 ldx $07,s restore process pointer
|
|
|
217 stx <D.Proc make it current
|
|
|
218 ldd 5,s get pointer to new module
|
|
|
219 std P$PModul,x save it into process descriptor
|
|
|
220 puls a restore module type
|
|
|
221 cmpa #Prgrm+Objct regular module?
|
|
|
222 beq L04FB yes, go
|
|
|
223 cmpa #Systm+Objct system module?
|
|
|
224 beq L04FB
|
|
1363
|
225 IFNE H6309
|
|
1145
|
226 *--- these lines added to allow 6309 native mode modules to be executed
|
|
|
227 cmpa #Prgrm+Obj6309 regular module?
|
|
|
228 beq L04FB yes, go
|
|
|
229 cmpa #Systm+Obj6309 system module?
|
|
|
230 beq L04FB
|
|
|
231 *---
|
|
1244
|
232 ENDC
|
|
1145
|
233 ldb #E$NEMod return unknown module
|
|
|
234 L04F4 leas 2,s purge stack
|
|
|
235 stb 3,s save error
|
|
|
236 comb set carry
|
|
|
237 bra L053E return
|
|
|
238 * Setup up data memory
|
|
|
239 L04FB ldd #M$Mem get offset to module memory size
|
|
|
240 leay P$DATImg,x get pointer to DAT image
|
|
|
241 ldx P$PModul,x get pointer to module header
|
|
|
242 os9 F$LDDDXY get module memory size
|
|
|
243 cmpa R$B,u bigger or smaller than callers request?
|
|
|
244 bcc L050E bigger, use it instead
|
|
|
245 lda R$B,u get callers memory size instead
|
|
|
246 clrb clear LSB of mem size
|
|
|
247 L050E os9 F$Mem try & get the data memory
|
|
|
248 bcs L04F4 can't do it, exit with error
|
|
|
249 ldx 6,s restore process pointer
|
|
|
250 leay (P$Stack-R$Size),x point to new register stack
|
|
|
251 pshs d preserve memory size
|
|
|
252 subd R$Y,u take off size of paramater area
|
|
|
253 std R$X,y save pointer to parameter area
|
|
|
254 subd #R$Size take off size of register stack
|
|
|
255 std P$SP,x save new SP
|
|
|
256 ldd R$Y,u get parameter count
|
|
|
257 std R$A,y save it to new process
|
|
|
258 std 6,s save it for myself to
|
|
|
259 puls d,x restore top of mem & program entry point
|
|
|
260 std R$Y,y set top of mem pointer
|
|
|
261 ldd R$U,u get pointer to parameters
|
|
|
262 std 6,s
|
|
|
263 lda #Entire
|
|
|
264 sta R$CC,y save condition code
|
|
|
265 clra
|
|
|
266 sta R$DP,y save direct page
|
|
|
267 clrb
|
|
|
268 std R$U,y save data area start
|
|
|
269 stx R$PC,y save program entry point
|
|
|
270 L053E puls d restore process pointer
|
|
|
271 std <D.Proc save it as current
|
|
|
272 puls d,x,y,u,pc
|
|
|
273
|
