![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to obsolete.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [MW Coherent from dump] / coherent / b / STREAMS / i386|
Return to obsolete.s CVS log | Up to [MW Coherent from dump] / coherent / b / STREAMS / i386 |
1.1 root 1:
2: / i8086 coherent clist hack.
3:
4: ///////
5:
6: /LXXX: .long NCPCL+4
7:
8: /cltinit:
9: / pushf / s = sphi()
10: / cli
11: / mov NCLIST,%eax
12: / imull LXXX,%eax
13: / addl clistp,%eax
14: / sub %ecx,%ecx
15: / jmp loc32
16:
17: /loc33: mov %ecx,(%eax)
18: / mov %eax,%ecx
19: /loc32: sub $NCPCL+4, %eax
20: / cmp clistp,%eax
21: / jnb loc33
22:
23: / mov %ecx,cltfree
24: / call spl
25: / add $0x04,%esp
26: / ret
27:
28: /getq:
29: / push %esi
30:
31: / mov 8(%esp),%edx
32: / sub %ecx,%ecx
33: / cmp %ecx,(%edx) / if (cqp->cq_cc==0)
34: / je loc21
35:
36: / pushf / s = sphi()
37: / cli
38: / mov 12(%edx),%esi / op = cqp->cq_op [%esi]
39: / mov 16(%edx),%eax / ox = cqp->cq_ox [%eax]
40: / movb 4(%eax,%esi),%cl
41: / push %ecx / save = op->cl_ch[ox]
42: / decl (%edx) / if (--cqp->cq_cc == 0)
43: / je loc23
44: / inc %eax / ++ox
45: / mov %eax,16(%edx) / cqp->cq_ox = ox
46: / cmp $NCPCL,%eax / if (ox == NCPL)
47: / jne loc24
48:
49: /loc23: sub %eax,%eax
50: / mov %eax,16(%edx) / cqp->cq_ox = 0
51: / mov (%esi),%ecx / np = op->cl_fp
52: / mov %ecx,12(%edx) / cqp->cq_op = np
53: / cmp %eax,%ecx / if (np==0)
54: / jne loc25
55: / mov %eax,4(%edx) / cqp->cq_ip = 0
56: / mov %eax,8(%edx) / cqp->cq_ix = 0
57:
58: /loc25: mov cltfree,%ecx
59: / mov %ecx,(%esi) / op->cl_fp = cltfree
60: / mov %esi,cltfree / cltfree = op
61: / cmp %eax,cltwant / if (cltwant)
62: / je loc24
63: / mov %eax,cltwant / cltwant = 0
64: / push $cltwant
65: / call wakeup / wakeup(&cltwant)
66: / pop %eax
67:
68: /loc24: pop %esi
69: / call spl / spl(s)
70: / pop %eax
71: / mov %esi,%eax / return save
72: / pop %esi
73: / ret
74: /loc21:
75: / mov $-1,%eax / return -1
76: / pop %esi
77: / ret
78:
79: /putq:
80: / push %esi
81: / sub %eax,%eax
82: / pushf / s = sphi();
83: / cli
84: / mov 12(%esp),%edx / ebp = cqp
85: / mov 4(%edx),%esi / ip = cqp->cq_ip [%esi]
86: / mov 8(%edx),%ecx / ix = cqp->cq_ix [%ecx]
87: / cmp %eax,%ecx / if (ix==0) {
88: / jne loc26
89: / mov cltfree,%esi / ip = cltfree
90: / cmp %eax,%esi / if (ip==0)
91: / je loc27 / goto bad;
92: / mov (%esi),%ecx
93: / mov %ecx,cltfree / cltfree = cltfree->cl_fp
94: / mov %eax,(%esi) / ip->cl_fp = 0
95: / mov 4(%edx),%ecx / np = cqp->cq_ip
96: / cmp %eax,%ecx / if (np==0)
97: / jne loc29
98: / mov %esi,12(%edx) / cqp->cq_op = ip
99: / jmp loc30
100: / / else
101: /loc29: mov %esi,(%ecx) / np->cl_fp = ip
102:
103: /loc30: mov %esi,4(%edx) / cqp->cq_ip = ip
104: / mov %eax,%ecx / ix = 0
105: / / }
106:
107: /loc26:
108: / movb 16(%esp),%al / ip->cl_ch[ix] = c
109: / movb %al, 4(%esi,%ecx)
110: / inc %ecx / ix++
111: / cmp $NCPCL,%ecx / if (ix==NCPCL)
112: / jne loc31
113: / sub %ecx,%ecx / ix = 0
114:
115: /loc31: mov %ecx,8(%edx) / cqp->cq_ix = ix
116: / incl (%edx) / cqp->cq_cc++
117: / call spl / spl(s)
118: / add $4,%esp
119: / mov 12(%esp),%eax / return (c)
120: /loc28:
121: / pop %esi
122: / ret
123: /loc27:
124: / call spl / spl(s)
125: / add $4,%esp
126: / mov $-1,%eax / return -1
127: / jmp loc28
128:
129: /clrq:
130: / mov 4(%esp),%edx
131: / pushf
132: / cli
133:
134: /loc34: push %edx
135: / call getq
136: / pop %edx
137: / or %eax,%eax
138: / jge loc34
139:
140: / call spl
141: / pop %eax
142: / ret
143:
144: /loc35: movl $0x01,cltwant
145: / push %eax
146: / push %eax
147: / push $0x0100
148: / push $cltwant
149: / call sleep
150: / add $16,%esp
151: /waitq:
152: / sub %eax,%eax
153: / cmp %eax,cltfree
154: / jne loc35
155: / ret
156:
157: ///////
158:
159: / atbsyw() -- wait for AT disk controller to become not busy
160:
161: / Return: 0 = timeout
162: / * = not busy
163:
164: ///////
165: /atbsyw:
166: / mov $0x3FFFF, %ecx
167: / mov ATSREG, %edx
168: /loc16: inb (%dx)
169: / testb $BSY_ST, %al
170: / loopne loc16
171: / mov %ecx, %eax
172: / ret
173:
174: ///////
175:
176: / AT Hard Disk Assembler Support
177: / atbsyw() - wait while controller is busy
178: / atdrqw() - wait for controller to request data transfer
179:
180: ///////
181: ///////
182:
183: / atdrqw() -- wait for AT disk controller to initiate data request
184:
185: / Return: 0 = timeout
186: / * = data requested
187:
188: ///////
189:
190: /atdrqw:
191: / mov $0x3FFFF, %ecx
192: / mov ATSREG, %edx
193: /loc17: inb (%dx)
194: / testb $DRQ_ST, %al
195: / loope loc17
196: / mov %ecx, %eax
197: / ret
198:
199:
200: / Read master PIC state
201: / return 00:xx:yy:zz 4-byte int value
202: / xx: interrupt mask
203: / yy: isr
204: / zz: irr
205:
206: / .globl mchirp
207: /FOO .macro ch
208: / push ch
209: / call mchirp
210: / add $4,%esp
211: / .endm
212:
213: / .globl rd_m_pic
214: /rd_m_pic:
215: / pushfl
216: / cli
217: / sub %eax,%eax
218: / inb $PICM / interrupt mask to %eax:16..23
219: / shl $8,%eax
220: / movb $0x0B,%al / OCW3 - read isr
221: / outb $PIC
222: / IODELAY
223: / inb $PIC / in-service register to %eax:8..15
224: / shl $8,%eax
225: / movb $0x0A,%al / OCW3 - read irr
226: / outb $PIC
227: / IODELAY
228: / inb $PIC / irpt request register to %eax:0..7
229: / popfl
230: / ret
231:
232: / Read slave PIC state
233: / return 00:xx:yy:zz 4-byte int value
234: / xx: interrupt mask
235: / yy: isr
236: / zz: irr
237:
238: / .globl rd_s_pic
239: /rd_s_pic:
240: / pushfl
241: / cli
242: / sub %eax,%eax
243: / inb $SPICM / interrupt mask to %eax:16..23
244: / shl $8,%eax
245: / movb $0x0B,%al / OCW3 - read isr
246: / outb $SPIC
247: / IODELAY
248: / inb $SPIC / in-service register to %eax:8..15
249: / shl $8,%eax
250: / movb $0x0A,%al / OCW3 - read irr
251: / outb $SPIC
252: / IODELAY
253: / inb $SPIC / irpt request register to %eax:0..7
254: / popfl
255: / ret
256:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.