|
1145
|
1 **************************************************
|
|
|
2 * System Call: F$UnLink
|
|
|
3 *
|
|
|
4 * Function: Unlink a module
|
|
|
5 *
|
|
|
6 * Input: U = Address of module header
|
|
|
7 *
|
|
|
8 * Output: None
|
|
|
9 *
|
|
|
10 * Error: CC = C bit set; B = error code
|
|
|
11 *
|
|
|
12 FUnLink pshs d,u preserve register stack pointer and make a buffer
|
|
|
13 ldd R$U,u get pointer to module header
|
|
|
14 tfr d,x copy it to X
|
|
|
15 lsra divide MSB by 32 to get DAT block offset
|
|
|
16 lsra
|
|
|
17 lsra
|
|
|
18 lsra
|
|
|
19 lsra
|
|
|
20 sta ,s save DAT block offset
|
|
|
21 lbeq L01D0 zero, can't use so exit
|
|
|
22 ldu <D.Proc get pointer to current process
|
|
|
23 leay P$DATImg,u point Y to it's DAT image
|
|
|
24 lsla account for 2 bytes/entry
|
|
|
25 ldd a,y get block #
|
|
|
26 ldu <D.BlkMap get pointer to system block map
|
|
|
27 IFNE H6309
|
|
|
28 tim #ModBlock,d,u Is memory block a module type?
|
|
|
29 ELSE
|
|
|
30 ldb d,u
|
|
|
31 bitb #ModBlock
|
|
|
32 ENDC
|
|
|
33 beq L01D0 no, exit without error
|
|
|
34 leau (P$Links-P$DATImg),y point to block link counts
|
|
|
35 bra L0161 go unlink block
|
|
|
36
|
|
|
37 L015D dec ,s we done?
|
|
|
38 beq L01D0 yes, go on
|
|
|
39 L0161 ldb ,s get current offset
|
|
|
40 lslb account for 2 bytes entry
|
|
|
41 ldd b,u get block link count
|
|
|
42 beq L015D already zero, get next one
|
|
|
43 lda ,s get block offset
|
|
|
44 lsla find offset into 64k map by multiplying by 32
|
|
|
45 lsla
|
|
|
46 lsla
|
|
|
47 lsla
|
|
|
48 lsla
|
|
|
49 clrb
|
|
|
50 nega
|
|
|
51 IFNE H6309
|
|
|
52 addr d,x
|
|
|
53 ELSE
|
|
|
54 leax d,x
|
|
|
55 ENDC
|
|
|
56 ldb ,s get block offset
|
|
|
57 lslb account for 2 bytes/entry
|
|
|
58 ldd b,y get block #
|
|
|
59 ldu <D.ModDir get module directory pointer
|
|
|
60 bra L0185 go look for it
|
|
|
61
|
|
|
62 * Main module directory search routine
|
|
|
63 L017C leau MD$ESize,u move to next module entry
|
|
|
64 cmpu <D.ModEnd done entire directory?
|
|
|
65 bhs L01D0 Yes, exit
|
|
|
66 L0185 cmpx MD$MPtr,u is module pointer the same?
|
|
|
67 bne L017C no, keep looking
|
|
|
68 cmpd [MD$MPDAT,u] DAT match?
|
|
|
69 bne L017C no, keep looking
|
|
|
70 * Module is found decrement link count
|
|
|
71 * NOTE: COULD WE USE D?
|
|
|
72 * L0198 - Safe, destroys D immediately
|
|
|
73 * Fall through- safe, destroys D immediately
|
|
|
74 * L01B5 - Seems to be safe
|
|
|
75 ldd MD$Link,u get module link count
|
|
|
76 beq L0198 it's zero, go unlink it
|
|
|
77 IFNE H6309
|
|
|
78 decd decrement link count
|
|
|
79 ELSE
|
|
|
80 subd #$0001
|
|
|
81 ENDC
|
|
|
82 std MD$Link,u save it back
|
|
|
83 bne L01B5 go on
|
|
|
84 * Module link count is zero check if he's unlinking a I/O module
|
|
|
85 L0198 ldx 2,s get pointer to register stack
|
|
|
86 ldx R$U,x get pointer to module
|
|
|
87 ldd #M$Type get offset to module type
|
|
|
88 os9 F$LDDDXY get module type
|
|
|
89 cmpa #FlMgr is it a I/O module?
|
|
|
90 blo L01B3 no, don't process for I/O
|
|
|
91 os9 F$IODel device still being used by somebody else?
|
|
|
92 bcc L01B3 no, go on
|
|
|
93 ldd MD$Link,u put the link count back to where it was
|
|
|
94 IFNE H6309
|
|
|
95 incd
|
|
|
96 ELSE
|
|
|
97 addd #$0001
|
|
|
98 ENDC
|
|
|
99 std MD$Link,u
|
|
|
100 bra L01D1 return error
|
|
|
101 * Clear module from memory
|
|
|
102 L01B3 bsr DelMod delete module from memory & module dir
|
|
|
103 L01B5 ldb ,s get block
|
|
|
104 lslb account for 2 bytes/entry
|
|
|
105 leay b,y point to block
|
|
|
106 ldd (P$Links-P$DATImg),y get block link count
|
|
|
107 IFNE H6309
|
|
|
108 decd decrement it
|
|
|
109 ELSE
|
|
|
110 subd #$0001
|
|
|
111 ENDC
|
|
|
112 std (P$Links-P$DATImg),y save new link count
|
|
|
113 bne L01D0 not zero, return to user
|
|
|
114 * Clear module blocks in process DAT image
|
|
|
115 ldd MD$MBSiz,u get block size
|
|
|
116 bsr L0226 calculate # blocks to delete
|
|
|
117 ldx #DAT.Free get DAT free marker
|
|
|
118 L01CB stx ,y++ save it in DAT image
|
|
|
119 deca done?
|
|
|
120 bne L01CB no, keep going
|
|
|
121 L01D0 clrb clear errors
|
|
|
122 L01D1 leas 2,s purge local data
|
|
|
123 puls u,pc restore & return
|
|
|
124
|
|
|
125 * Delete module from module directory & from memory
|
|
|
126 * Entry: U=Module directory entry pointer to delete
|
|
|
127 * Exit : None
|
|
|
128 DelMod ldx <D.BlkMap get pointer to memory block map
|
|
|
129 ldd [MD$MPDAT,u] get pointer to module DAT image
|
|
|
130 lda d,x is block type ROM?
|
|
|
131 bmi L0225 yes can't delete it, return
|
|
|
132 ldx <D.ModDir get pointer to module directory
|
|
|
133 L01DF ldd [MD$MPDAT,x] get offset to DAT
|
|
|
134 cmpd [MD$MPDAT,u] match what we're looking for?
|
|
|
135 bne L01EA no, keep looking
|
|
|
136 ldd MD$Link,x get module link count
|
|
|
137 bne L0225 not zero, return
|
|
|
138 L01EA leax MD$ESize,x move to next module
|
|
|
139 cmpx <D.ModEnd at the end?
|
|
|
140 bcs L01DF no, keep going
|
|
|
141 ldx <D.BlkMap get pointer to block map
|
|
|
142 ldd MD$MBSiz,u get memory block size
|
|
|
143 bsr L0226 calculate # blocks to clear
|
|
|
144 IFNE H6309
|
|
|
145 pshs u Preserve U (faster than original Y below)
|
|
|
146 clrb Setup for faster block in use clears
|
|
|
147 ldu MD$MPDAT,u get pointer to module DAT image
|
|
|
148 L01FB ldw ,u++ Get first block
|
|
|
149 stb -2,u clear it in DAT image
|
|
|
150 stb -1,u
|
|
|
151 addr x,w point to block in block map
|
|
|
152 aim #^(ModBlock!RAMinUse),,w
|
|
|
153 deca
|
|
|
154 bne L01FB
|
|
|
155 puls u Restore module ptr
|
|
|
156 ELSE
|
|
|
157 pshs y save y
|
|
|
158 ldy MD$MPDAT,u module image ptr
|
|
|
159 L01FB pshs a,x save #blocks, ptr
|
|
|
160 ldd ,y get block number
|
|
|
161 clr ,y+ clear the image
|
|
|
162 clr ,y+
|
|
|
163 leax d,x point to blkmap entry
|
|
|
164 ldb ,x
|
|
|
165 andb #^(RAMinUse+ModBlock) free block
|
|
|
166 stb ,x
|
|
|
167 puls a,x
|
|
|
168 deca last block done?
|
|
|
169 bne L01FB ..no, loop
|
|
|
170 puls y
|
|
|
171 ENDC
|
|
|
172 ldx <D.ModDir get module directory pointer
|
|
|
173 ldd MD$MPDAT,u get module DAT pointer
|
|
|
174 L0216 cmpd MD$MPDAT,x match?
|
|
|
175 bne L021F no, keep looking
|
|
|
176 clr MD$MPDAT,x clear module DAT image pointer
|
|
|
177 clr MD$MPDAT+1,x
|
|
|
178 L021F leax MD$ESize,x point to next module entry
|
|
|
179 cmpx <D.ModEnd at the end?
|
|
|
180 blo L0216 no, keep looking
|
|
|
181 L0225 rts return
|
|
|
182
|
|
|
183 L0226 addd #$1FFF round up to nearest block
|
|
|
184 lsra calculate block # within 64k workspace
|
|
|
185 lsra
|
|
|
186 lsra
|
|
|
187 lsra
|
|
|
188 lsra
|
|
|
189 rts
|
|
|
190
|
