Mercurial > hg > Members > kono > nitros9-code

annotate level2/modules/ioman.asm @ 1019:135b35daabcb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changed conditional to Level 3 for L3 specific code
author boisy
date Thu, 06 Mar 2003 01:40:25 +0000
parents 0502363c6fa7
children 3bdcdf63f808
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
2 * IOMan - OS-9 Level Two I/O Manager module
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
3 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
4 * $Id$
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
5 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
7 * ------------------------------------------------------------------
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
8 * NitrOS-9 2.00 distribution ??/??/??
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
9 * 13 Fixed a long-standing bug in IOMan where BGP 02/04/30
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
10 * the I$Detach routine would deallocate the
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
11 * V$STAT area. This is because the V$USRS
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
12 * offset on the stack, where the temporary
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
13 * device table entry was being built, contained
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
14 * zero. I$Detach wouldn't bother to do a lookup
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
15 * to see if it should release the memory if this
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
16 * value was zero, so we now force I$Detach to do
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
17 * the lookup no matter the V$USRS value.
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
18 * 13r2 Made more source changes, found discrepancy BGP 02/12/31
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
19 * in value of POLSIZ in certain areas, fixed.
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
20 * Also added 6809 conditional code for future
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
21 * integration into OS-9 Level Two.
1019
135b35daabcb Changed conditional to Level 3 for L3 specific code
boisy
parents: 991
diff changeset
22 * 13r3 Conditionalized out Level 3 code BGP 02/03/04
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
24 nam IOMan
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
25 ttl OS-9 Level Two I/O Manager module
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
27 * Disassembled 02/04/29 23:10:07 by Disasm v1.6 (C) 1988 by RML
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
28
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
29 IFP1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
30 use defsfile
939
8f1263d3e3d5 Small touch-ups to source
boisy
parents: 744
diff changeset
31 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 tylg set Systm+Objct
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
34 atrv set ReEnt+rev
1019
135b35daabcb Changed conditional to Level 3 for L3 specific code
boisy
parents: 991
diff changeset
35 rev set $03
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
36 edition set 13
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
37
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
38 mod eom,name,tylg,atrv,start,size
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
40 u0000 rmb 0
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
41 size equ .
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
42
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
43 name fcs /IOMan/
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
44 fcb edition
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
45
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
46 start ldx <D.Init get pointer to init module
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
47 lda DevCnt,x get number of entries in device table
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
48 ldb #DEVSIZ get size of each entry
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
49 mul calculate size needed for device table
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
50 pshs d preserve it
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
51 lda PollCnt,x get number of entries in polling table
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
52 ldb #POLSIZ get size of each entry
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
53 mul calculate size needed for polling table
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
54 pshs d preserve it
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
55 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
56 asld
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
57 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
58 lslb multiply by 2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
59 rola
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
60 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
61 addd $02,s add to size of device table
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
62 os9 F$SRqMem allocate memory
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
63 bcs Crash branch if error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
64 leax ,u point to memory
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
65 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
66 leay <TheZero,pcr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
67 tfr d,w
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
68 tfm y,x+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
69 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
70 ClrLoop clr ,x+ clear a byte
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
71 subd #$0001 done?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
72 bne ClrLoop no, keep going
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
73 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
74 stu <D.DevTbl save pointer to device table
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
75 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
76 puls x,d
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
77 addr u,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
78 stx <D.PolTbl
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
79 addr d,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
80 stx <D.CLTb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
81 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
82 ldd ,s++ get pointer to device table
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
83 std <D.CLTb save to globals temporarily
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
84 ldd ,s++ get size of device table
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
85 leax d,u point x to the end of device table
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
86 stx <D.PolTbl save to globals
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
87 ldd <D.CLTb get VIRQ table size
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
88 leax d,x add it to end of device table
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
89 stx <D.CLTb and save VIRQ table address
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
90 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
91 ldx <D.PthDBT get address of path desc table
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
92 os9 F$All64 split it into 64 byte chunks
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
93 bcs Crash branch if error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
94 stx <D.PthDBT save pointer back
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
95 os9 F$Ret64
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
96 leax >IRQPoll,pcr point to polling routine
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
97 stx <D.Poll save the vector address
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
98 leay <L005F,pcr point to service vector table
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
99 os9 F$SSvc set up calls
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
100 rts and return to system
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
101
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
102 ******************************
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
103 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
104 * Fatal error Crash the system
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
105 *
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
106 Crash jmp <D.Crash
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
107
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
108 ******************************
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
109 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
110 * System service routine vector table
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
111 *
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
112 L005F fcb $7F
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
113 fdb UsrIO-*-2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
114 fcb F$Load
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
115 fdb FLoad-*-2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
116 fcb I$Detach
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
117 fdb IDetach0-*-2
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
118 fcb F$PErr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
119 fdb FPErr-*-2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
120 fcb F$IOQu+$80
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
121 fdb FIOQu-*-2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
122 fcb $FF
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
123 fdb SysIO-*-2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
124 fcb F$IRQ+$80
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
125 fdb FIRQ-*-2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
126 fcb F$IODel+$80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
127 fdb FIODel-*-2
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
128 fcb F$NMLink
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
129 fdb FNMLink-*-2
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
130 fcb F$NMLoad
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
131 fdb FNMLoad-*-2
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
132 fcb $80
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
133
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
134 ******************************
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
135 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
136 * Check device status service call?
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
137 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
138 * Entry: U = Callers register stack pointer
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
139 *
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
140 FIODel ldx R$X,u get address of module
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
141 ldu <D.Init get pointer to init module
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
142 ldb DevCnt,u get device count
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
143 ldu <D.DevTbl get pointer to device table
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
144 L0086 ldy V$DESC,u descriptor exists?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
145 beq L0097 no, move to next device
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
146 cmpx V$DESC,u device match?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
147 beq L009E no, move to next device
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
148 cmpx V$DRIV,u driver match?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
149 beq L009E yes, return module busy
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
150 cmpx V$FMGR,u fmgr match?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
151 beq L009E yes, return module busy
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
152 L0097 leau DEVSIZ,u move to next dev entry
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
153 decb done them all?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
154 bne L0086 no, keep going
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
155 clrb clear carry
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
156 L009D rts and return
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
157 L009E comb else set carry
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
158 ldb #E$ModBsy submit error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
159 rts and return
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
160
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
161 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
162 TheZero fcb $00
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
163 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
164
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
165 UsrIODis fdb IAttach-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
166 fdb IDetach-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
167 fdb UIDup-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
168 fdb IUsrCall-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
169 fdb IUsrCall-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
170 fdb IMakDir-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
171 fdb IChgDir-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
172 fdb IDelete-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
173 fdb UISeek-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
174 fdb UIRead-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
175 fdb UIWrite-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
176 fdb UIRead-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
177 fdb UIWrite-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
178 fdb UIGetStt-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
179 fdb UISeek-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
180 fdb UIClose-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
181 fdb IDeletX-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
182
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
183 SysIODis fdb IAttach-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
184 fdb IDetach-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
185 fdb SIDup-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
186 fdb ISysCall-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
187 fdb ISysCall-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
188 fdb IMakDir-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
189 fdb IChgDir-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
190 fdb IDelete-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
191 fdb SISeek-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
192 fdb SIRead-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
193 fdb SIWrite-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
194 fdb SIRead-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
195 fdb SIWrite-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
196 fdb SIGetStt-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
197 fdb SISeek-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
198 fdb SIClose-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
199 fdb IDeletX-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
200
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
201 UsrIO leax <UsrIODis,pcr
991
0502363c6fa7 Fixed incorrectly labeled code and a problem with I$DeletX under OS-9 Level Two
boisy
parents: 986
diff changeset
202 bra IODsptch
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
203 SysIO leax <SysIODis,pcr
991
0502363c6fa7 Fixed incorrectly labeled code and a problem with I$DeletX under OS-9 Level Two
boisy
parents: 986
diff changeset
204 IODsptch equ *
0502363c6fa7 Fixed incorrectly labeled code and a problem with I$DeletX under OS-9 Level Two
boisy
parents: 986
diff changeset
205 IFNE NitrOS9
0502363c6fa7 Fixed incorrectly labeled code and a problem with I$DeletX under OS-9 Level Two
boisy
parents: 986
diff changeset
206 cmpb #$20
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
207 ELSE
991
0502363c6fa7 Fixed incorrectly labeled code and a problem with I$DeletX under OS-9 Level Two
boisy
parents: 986
diff changeset
208 cmpb #I$DeletX
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
209 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
210 bhi L00F9
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
211 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
212 ldw b,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
213 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
214 jmp w,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
215 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
216 pshs b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
217 lslb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
218 ldd b,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
219 leax d,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
220 puls b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
221 jmp ,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
222 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
223
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
224 ******************************
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
225 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
226 * Unknown service code error handler
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
227 *
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
228 L00F9 comb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
229 ldb #E$UnkSvc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
230 rts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
231
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
232 VDRIV equ $00 \
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
233 VSTAT equ $02 |
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
234 VDESC equ $04 |--- Temporary device table entry
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
235 VFMGR equ $06 |
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
236 VUSRS equ $08 /
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
237 DRVENT equ $09
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
238 FMENT equ $0B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
239 AMODE equ $0D
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
240 HWPG equ $0E
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
241 HWPORT equ $0F
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
242 CURDTE equ $11
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
243 DATBYT1 equ $13
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
244 DATBYT2 equ $15
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
245 ODPROC equ $17
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
246 CALLREGS equ $19
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
247 RETERR equ $1A
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
248 EOSTACK equ $1B
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
249
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
250 * Entry: U=module header pointer
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
251 IAttach equ *
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
252 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
253 ldw #EOSTACK get stack count
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
254 leas <-EOSTACK,s make stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
255 leax <TheZero,pcr point at zero
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
256 tfr s,y move S to Y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
257 tfm x,y+ and transfer 0 to stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
258 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
259 ldb #EOSTACK-1 get stack count - 1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
260 IALoop clr ,-s clear each byte
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
261 decb decrement
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
262 bpl IALoop and branch until = 0
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
263 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
264 stu <CALLREGS,s save caller regs
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
265 lda R$A,u access mode
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
266 sta AMODE,s save on stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
267 ldx <D.Proc get curr proc desc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
268 stx <ODPROC,s save on stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
269 leay <P$DATImg,x point to DAT img of curr proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
270 ldx <D.SysPrc get sys proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
271 stx <D.Proc make sys proc current proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
272 ldx R$X,u get caller's X
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
273 lda #Devic link to device desc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
274 os9 F$SLink link to it
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
275 bcs L0155 branch if error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
276 stu VDESC,s save dev desc ptr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
277 ldy <CALLREGS,s get caller regs
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
278 stx R$X,y save updated X
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
279 lda M$Port,u get hw page
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
280 sta HWPG,s save onto stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
281 ldd M$Port+1,u get hw addr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
282 std HWPORT,s save onto stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
283 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
284 ldx M$PDev,u get driver name ptr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
285 addr u,x add U to X
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
286 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
287 ldd M$PDev,u get driver name ptr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
288 leax d,u add D to U and put in X
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
289 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
290 lda #Drivr driver
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
291 os9 F$Link link to driver
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
292 bcs L0155 branch if error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
293 stu VDRIV,s else save addr save on stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
294 sty DRVENT,s save entry point on stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
295 ldu VDESC,s get desc ptr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
296 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
297 ldx M$FMgr,u get fm name
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
298 addr u,x add U to X
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
299 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
300 ldd M$FMgr,u get fm name
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
301 leax d,u add D to U and put in X
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
302 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
303 lda #FlMgr link to fm
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
304 os9 F$Link link to it!
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
305 L0155 ldx <ODPROC,s get caller's proc desc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
306 stx <D.Proc restore orig proc desc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
307 bcc L016A branch if not error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
308 L015C stb <RETERR,s save off error code
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
309 leau VDRIV,s point U to device table entry
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
310 os9 I$Detach detach
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
311 leas <RETERR,s adjust stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
312 comb set carry
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
313 puls pc,b exit
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
314 L016A stu VFMGR,s save off fm module ptr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
315 sty FMENT,s save off fm entry point
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
316 ldx <D.Init get D.Init
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
317 ldb DevCnt,x get device entry count
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
318 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
319 tfr b,f
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
320 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
321 tfr b,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
322 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
323 ldu <D.DevTbl get device table pointer
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
324 L0177 ldx V$DESC,u get dev desc ptr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
325 beq L01B4 branch if empty
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
326 cmpx VDESC,s same as dev desc being attached?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
327 bne L0196 branch if not
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
328 ldx V$STAT,u get driver static
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
329 bne L0191 branch if zero
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
330 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
331 lde V$USRS,u get user count
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
332 beq L0177 branch if zero
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
333 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
334 pshs a save off A
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
335 lda V$USRS,u get user count
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
336 beq L0188 branch if zero
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
337 ENDC
709
6f84b2ce58a6 Incorporated full NitrOS-9 code set; chd/chx still doesn't work under L2
boisy
parents: 704
diff changeset
338 pshs u,b
6f84b2ce58a6 Incorporated full NitrOS-9 code set; chd/chx still doesn't work under L2
boisy
parents: 704
diff changeset
339 lbsr FIOQu2 call F$IOQu directly
6f84b2ce58a6 Incorporated full NitrOS-9 code set; chd/chx still doesn't work under L2
boisy
parents: 704
diff changeset
340 puls u,b
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
341 IFEQ H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
342 L0188 puls a pull A from stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
343 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
344 bra L0177
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
345 L0191 stu <CURDTE,s save current dev table ptr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
346 ldx V$DESC,u get dev desc ptr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
347 L0196 ldy M$Port+1,x get hw addr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
348 cmpy HWPORT,s same as dev entry on stack?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
349 bne L01B4 branch if not
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
350 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
351 lde M$Port,x get hw port
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
352 cmpe HWPG,s same as dev entry on stack?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
353 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
354 ldy M$Port,x get hw port
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
355 cmpy HWPG,s same as dev entry on stack?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
356 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
357 bne L01B4 branch if not
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
358 ldx V$DRIV,u get driver ptr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
359 cmpx VDRIV,s same as dev entry on stack?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
360 bne L01B4 branch if not
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
361 * A match between device table entries has occurred
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
362 ldx V$STAT,u get driver static
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
363 stx VSTAT,s save off in our statics
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
364 tst V$USRS,u any users for this device
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
365 beq L01B4 branch if not
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
366 IFEQ H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
367 sta HWPG,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
368 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
369 L01B4 leau DEVSIZ,u advance to the next device entry
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
370 decb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
371 bne L0177
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
372 ldu <CURDTE,s get curr dev entry ptr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
373 lbne L0264 branch if not zero
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
374 ldu <D.DevTbl
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
375 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
376 tfr f,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
377 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
378 L01C4 ldx V$DESC,u get desc ptr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
379 beq L01DD branch if zero
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
380 leau DEVSIZ,u move to next dev table entry
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
381 deca
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
382 bne L01C4
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
383 ldb #E$DevOvf dev table overflow
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
384 bra L015C
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
385
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
386 L01D1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
387 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
388 lsrd /2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
389 lsrd /4
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
390 lsrd /8
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
391 lsrd /16
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
392 lsrd /32
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
393 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
394 lsra
709
6f84b2ce58a6 Incorporated full NitrOS-9 code set; chd/chx still doesn't work under L2
boisy
parents: 704
diff changeset
395 rorb /2
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
396 lsra
709
6f84b2ce58a6 Incorporated full NitrOS-9 code set; chd/chx still doesn't work under L2
boisy
parents: 704
diff changeset
397 rorb /4
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
398 lsra
709
6f84b2ce58a6 Incorporated full NitrOS-9 code set; chd/chx still doesn't work under L2
boisy
parents: 704
diff changeset
399 rorb /8
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
400 lsra
709
6f84b2ce58a6 Incorporated full NitrOS-9 code set; chd/chx still doesn't work under L2
boisy
parents: 704
diff changeset
401 rorb /16
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
402 lsra
709
6f84b2ce58a6 Incorporated full NitrOS-9 code set; chd/chx still doesn't work under L2
boisy
parents: 704
diff changeset
403 rorb /32
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
404 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
405 clra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
406 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
407
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
408 L01DD ldx VSTAT,s get static storage off stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
409 bne L0259 branch if already alloced
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
410 stu <CURDTE,s else store off ptr to dev table entry
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
411 ldx VDRIV,s get ptr to driver
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
412 ldd M$Mem,x get driver storage req
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
413 os9 F$SRqMem allocate memory
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
414 lbcs L015C branch if error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
415 stu VSTAT,s save newly alloc'ed driver static storage ptr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
416 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
417 leay VSTAT+1,s point to zero byte
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
418 tfr d,w tfr count to w counter
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
419 tfm y,u+ clear driver static storage
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
420 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
421 Loop2 clr ,u+ clear newly alloc'ed mem
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
422 subd #$0001
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
423 bhi Loop2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
424 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
425 ldd HWPG,s get hwpage and upper addr
986
aebfc8992bfd Factored out what appears to be Level III code... was causing ERROR 207's under
boisy
parents: 939
diff changeset
426 * Code here appears to be for Level III?
1019
135b35daabcb Changed conditional to Level 3 for L3 specific code
boisy
parents: 991
diff changeset
427 IFEQ Level-3
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
428 bsr L01D1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
429 std <DATBYT2,s save off
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
430 ldu #$0000
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
431 tfr u,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
432 stu <DATBYT1,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
433 ldx <D.SysDAT get system mem map ptr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
434 L0209 ldd ,x++
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
435 cmpd <DATBYT2,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
436 beq L023B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
437 cmpd #DAT.Free
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
438 bne L021D
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
439 sty <DATBYT1,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
440 leau -$02,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
441 L021D leay >$2000,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
442 bne L0209
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
443 ldb #E$NoRAM
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
444 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
445 cmpr 0,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
446 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
447 cmpu #$0000
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
448 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
449 lbeq L015C
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
450 ldd <DATBYT2,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
451 std ,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
452 ldx <D.SysPrc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
453 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
454 oim #ImgChg,P$State,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
455 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
456 lda P$State,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
457 ora #ImgChg
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
458 sta P$State,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
459 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
460 os9 F$ID
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
461 bra L023F
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
462 L023B sty <DATBYT1,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
463 L023F ldd HWPORT,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
464 anda #$1F
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
465 addd <DATBYT1,s
986
aebfc8992bfd Factored out what appears to be Level III code... was causing ERROR 207's under
boisy
parents: 939
diff changeset
466 ENDC
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
467 ldu VSTAT,s load U with static storage of drvr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
468 clr ,u clear ??
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
469 std $01,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
470 ldy VDESC,s load Y with desc ptr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
471 jsr [<DRVENT,s] call driver init routine
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
472 lbcs L015C branch if error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
473 ldu <CURDTE,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
474 L0259
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
475 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
476 ldw #DEVSIZ
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
477 tfr s,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
478 tfm x+,u+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
479 leau -DEVSIZ,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
480 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
481 ldb #DEVSIZ-1 size of device table - 1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
482 LilLoop lda b,s get from src
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
483 sta b,u save in dest
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
484 decb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
485 bpl LilLoop
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
486 ENDC
67
d603059f2b9a references to systype.l2 changed to systype
boisy
parents: 0
diff changeset
487 * Here, U points to Device Table
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
488 L0264 ldx V$DESC,u get desc ptr in X
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
489 ldb M$Revs,x get revs
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
490 lda AMODE,s get access mode byte passed in A
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
491 anda M$Mode,x and with MODE byte in desc.
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
492 ldx V$DRIV,u X points to driver module
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
493 anda M$Mode,x AND with mode byte in driver
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
494 cmpa AMODE,s same as passed mode?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
495 beq L0279 if so, ok
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
496 ldb #E$BMode else bad mode
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
497 lbra L015C and return
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
498 L0279 inc V$USRS,u else inc user count
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
499 bne L027F if not zero, continue
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
500 dec V$USRS,u else bump back to 255
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
501 L027F ldx <CALLREGS,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
502 stu R$U,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
503 leas <EOSTACK,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
504 clrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
505 rts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
506
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
507 IDetach ldu R$U,u
85
29a65953e236 Commented out seemingly useless instruction
boisy
parents: 74
diff changeset
508 * ldx V$DESC,u
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
509 *** BUG FIX
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
510 * The following two lines fix a long-standing bug in IOMan where
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
511 * the I$Detach routine would deallocate the V$STAT area. This is
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
512 * because the V$USRS offset on the stack, where the temporary
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
513 * device table entry was being built, contained 0. I$Detach wouldn't
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
514 * bother to do a lookup to see if it should release the memory if
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
515 * this value was zero, so here force I$Detach to do the lookup no
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
516 * matter the V$USRS value
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
517 * BGP 04/30/2002
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
518 tst V$USRS,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
519 beq IDetach2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
520 *** BUG FIX
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
521 L0297 lda #$FF
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
522 cmpa V$USRS,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
523 lbeq L0351
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
524 dec V$USRS,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
525 lbne L0335
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
526 IDetach2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
527 ldx <D.Init
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
528 ldb DevCnt,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
529 pshs u,b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
530 ldx V$STAT,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
531 clr V$STAT,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
532 clr V$STAT+1,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
533 ldy <D.DevTbl
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
534 L02B4 cmpx V$STAT,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
535 beq L032B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
536 leay DEVSIZ,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
537 decb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
538 bne L02B4
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
539 ldy <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
540 ldb P$ID,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
541 stb V$USRS,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
542 ldy V$DESC,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
543 ldu V$DRIVEX,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
544 exg x,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
545 pshs u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
546 jsr $0F,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
547 puls u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
548 L02D1 ldx $01,s get ptr to dev table
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
549 ldx V$DRIV,x load X with driver addr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
550 ldd M$Mem,x get static storage size
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
551 addd #$00FF round up one page
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
552 clrb clear lo byte
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
553 os9 F$SRtMem return mem
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
554 ldx $01,s get old U on stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
555 ldx V$DESC,x
986
aebfc8992bfd Factored out what appears to be Level III code... was causing ERROR 207's under
boisy
parents: 939
diff changeset
556 * Code here appears to be for Level III?
1019
135b35daabcb Changed conditional to Level 3 for L3 specific code
boisy
parents: 991
diff changeset
557 IFEQ Level-3
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
558 ldd M$Port,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
559 beq L032B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
560 lbsr L01D1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
561 cmpb #$3F
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
562 beq L032B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
563 tfr d,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
564 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
565 ldf ,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
566 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
567 ldu <D.DevTbl
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
568 L02F4 cmpu $01,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
569 beq L0309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
570 ldx V$DESC,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
571 beq L0309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
572 ldd M$Port,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
573 beq L0309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
574 lbsr L01D1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
575 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
576 cmpr y,d
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
577 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
578 pshs y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
579 cmpd ,s++
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
580 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
581 beq L032B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
582 L0309 leau DEVSIZ,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
583 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
584 decf
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
585 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
586 dec ,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
587 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
588 bne L02F4
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
589 ldx <D.SysPrc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
590 ldu <D.SysDAT
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
591 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
592 ldf #$08
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
593 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
594 ldb #$08
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
595 pshs b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
596 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
597 L0316 ldd ,u++
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
598 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
599 cmpr y,d
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
600 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
601 pshs y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
602 cmpd ,s++
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
603 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
604 beq L0323
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
605 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
606 decf
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
607 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
608 dec ,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
609 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
610 bne L0316
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
611 IFEQ H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
612 leas 1,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
613 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
614 bra L032B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
615 L0323
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
616 IFEQ H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
617 leas 1,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
618 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
619 ldd #DAT.Free
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
620 std -$02,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
621 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
622 oim #ImgChg,P$State,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
623 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
624 lda P$State,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
625 ora #ImgChg
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
626 sta P$State,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
627 ENDC
986
aebfc8992bfd Factored out what appears to be Level III code... was causing ERROR 207's under
boisy
parents: 939
diff changeset
628 ENDC
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
629 L032B puls u,b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
630 ldx V$DESC,u get descriptor in X
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
631 clr V$DESC,u clear out descriptor
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
632 clr V$DESC+1,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
633 clr V$USRS,u and users
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
634 L0335
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
635 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
636 ldw <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
637 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
638 ldd <D.Proc get curr process
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
639 pshs d save it
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
640 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
641 ldd <D.SysPrc make system the current process
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
642 std <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
643 ldy V$DRIV,u get file manager module address
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
644 ldu V$FMGR,u get driver module address
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
645 os9 F$UnLink unlink file manager
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
646 leau ,y point to driver
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
647 os9 F$UnLink unlink driver
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
648 leau ,x point to descriptor
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
649 os9 F$UnLink unlink it
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
650 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
651 stw <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
652 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
653 puls d restore current process
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
654 std <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
655 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
656 L0351 lbsr L0595
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
657 clrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
658 rts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
659
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
660 UIDup bsr LocFrPth
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
661 bcs L0376
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
662 pshs x,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
663 lda R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
664 lda a,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
665 bsr L036F
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
666 bcs L036B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
667 puls x,b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
668 stb R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
669 sta b,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
670 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
671 L036B puls pc,x,a
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
672
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
673 SIDup lda R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
674 L036F lbsr GetPDesc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
675 bcs L0376
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
676 inc PD.CNT,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
677 L0376 rts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
678
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
679 * Locate a free path in D.Proc
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
680 LocFrPth ldx <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
681 leax <P$Path,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
682 clra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
683 L037D tst a,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
684 beq L038A
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
685 inca
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
686 cmpa #Numpaths
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
687 bcs L037D
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
688 comb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
689 ldb #E$PthFul
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
690 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
691 L038A andcc #^Carry
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
692 rts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
693
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
694 IUsrCall bsr LocFrPth
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
695 bcs L039F
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
696 pshs u,x,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
697 bsr ISysCall
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
698 puls u,x,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
699 bcs L039F
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
700 ldb R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
701 stb a,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
702 sta R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
703 L039F rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
705 ISysCall pshs b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
706 ldb R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
707 bsr AllcPDsc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
708 bcs L03B4
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
709 puls b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
710 lbsr CallFMgr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
711 bcs L03C3
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
712 lda PD.PD,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
713 sta R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
714 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
715 L03B4 puls pc,a
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
716
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
717 IMakDir pshs b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
718 ldb #DIR.+WRITE.
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
719 L03BA bsr AllcPDsc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
720 bcs L03B4
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
721 puls b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
722 lbsr CallFMgr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
723 L03C3 pshs b,cc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
724 ldu PD.DEV,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
725 os9 I$Detach
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
726 lda PD.PD,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
727 ldx <D.PthDBT
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
728 os9 F$Ret64
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
729 puls pc,b,cc
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
730
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
731 IChgDir pshs b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
732 ldb R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
733 orb #DIR.
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
734 bsr AllcPDsc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
735 bcs L03B4
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
736 puls b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
737 lbsr CallFMgr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
738 bcs L03C3
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
739 ldu <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
740 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
741 tim #PWRIT.+PREAD.+UPDAT.,PD.MOD,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
742 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
743 ldb PD.MOD,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
744 bitb #PWRIT.+PREAD.+UPDAT.
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
745 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
746 beq IChgExec
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
747 ldx PD.DEV,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
748 stx <P$DIO,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
749 inc V$USRS,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
750 bne IChgExec
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
751 dec V$USRS,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
752 IChgExec
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
753 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
754 tim #PEXEC.+EXEC.,PD.MOD,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
755 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
756 bitb #PEXEC.+EXEC.
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
757 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
758 beq L0406
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
759 ldx PD.DEV,y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
760 stx <P$DIO+6,u
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
761 inc V$USRS,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
762 bne L0406
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
763 dec V$USRS,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
764 L0406 clrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
765 bra L03C3
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
766
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
767 IDelete pshs b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
768 ldb #WRITE.
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
769 bra L03BA
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
770
991
0502363c6fa7 Fixed incorrectly labeled code and a problem with I$DeletX under OS-9 Level Two
boisy
parents: 986
diff changeset
771 IDeletX
0502363c6fa7 Fixed incorrectly labeled code and a problem with I$DeletX under OS-9 Level Two
boisy
parents: 986
diff changeset
772 IFNE NitrOS9
0502363c6fa7 Fixed incorrectly labeled code and a problem with I$DeletX under OS-9 Level Two
boisy
parents: 986
diff changeset
773 ldb #7 Delete offset in file manager
0502363c6fa7 Fixed incorrectly labeled code and a problem with I$DeletX under OS-9 Level Two
boisy
parents: 986
diff changeset
774 ELSE
0502363c6fa7 Fixed incorrectly labeled code and a problem with I$DeletX under OS-9 Level Two
boisy
parents: 986
diff changeset
775 ldb #$87 Delete offset in file manager
0502363c6fa7 Fixed incorrectly labeled code and a problem with I$DeletX under OS-9 Level Two
boisy
parents: 986
diff changeset
776 ENDC
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
777 pshs b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
778 ldb R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
779 bra L03BA
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
780
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
781 * Allocate path descriptor
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
782 * Entry:
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
783 * B = mode
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
784 AllcPDsc ldx <D.Proc get pointer to curr proc in X
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
785 pshs u,x save U/X
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
786 ldx <D.PthDBT get ptr to path desc base table
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
787 os9 F$All64 allocate 64 byte page
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
788 bcs L0484 branch if error
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
789 inc PD.CNT,y set path count
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
790 stb PD.MOD,y save mode byte
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
791 ldx <D.Proc get curr proc desc
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
792 ldb P$Task,x get task #
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
793 ldx R$X,u X points to pathlist
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
794 L042C os9 F$LDABX get byte at X
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
795 leax 1,x move to next
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
796 cmpa #C$SPAC space?
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
797 beq L042C continue if so
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
798 leax -1,x else back up
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
799 stx R$X,u save updated pointer
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
800 cmpa #PDELIM leading slash?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
801 beq L0459 yep...
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
802 ldx <D.Proc else get curr proc
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
803 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
804 tim #EXEC.,PD.MOD,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
805 ELSE
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
806 ldb PD.MOD,y get mode byte
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
807 bitb #EXEC. exec. dir relative?
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
808 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
809 beq L0449 nope...
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
810 ldx <P$DIO+6,x else get dev entry for exec path
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
811 bra L044C and branch
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
812 L0449 ldx <P$DIO,x get dev entry for data path
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
813 L044C beq L0489 branch if empty
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
814 ldd <D.SysPrc get system proc ptr
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
815 std <D.Proc get curr proc
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
816 ldx V$DESC,x get descriptor pointer
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
817 ldd M$Name,x get name offset
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
818 IFNE H6309
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
819 addr d,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
820 ELSE
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
821 leax d,x point X to name in descriptor
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
822 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
823 L0459 pshs y save off path desc ptr in Y
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
824 os9 F$PrsNam parse it
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
825 puls y restore path desc ptr
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
826 bcs L0489 branch if error
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
827 lda PD.MOD,y get mode byte
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
828 os9 I$Attach attach to device
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
829 stu PD.DEV,y save dev tbl entry
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
830 bcs L048B branch if error
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
831 ldx V$DESC,u else get descriptor pointer
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
832 * copy options from dev desc to path desc
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
833 leax <M$Opt,x point to opts in desc
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
834 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
835 ldf ,x+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
836 leau <PD.OPT,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
837 cmpf #PD.OPT
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
838 bcs L047E
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
839 ldf #$20
709
6f84b2ce58a6 Incorporated full NitrOS-9 code set; chd/chx still doesn't work under L2
boisy
parents: 704
diff changeset
840 L047E clre
6f84b2ce58a6 Incorporated full NitrOS-9 code set; chd/chx still doesn't work under L2
boisy
parents: 704
diff changeset
841 tfm x+,u+
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
842 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
843 ldb ,x+ get options count
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
844 leau <PD.OPT,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
845 cmpb #PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
846 bls L03E5
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
847 ldb #PD.OPT-1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
848 KeepLoop lda ,x+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
849 sta ,u+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
850 L03E5 decb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
851 bpl KeepLoop
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
852 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
853 clrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
854 L0484 puls u,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
855 stx <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
856 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
857
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
858 L0489 ldb #E$BPNam
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
859 L048B pshs b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
860 lda ,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
861 ldx <D.PthDBT
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
862 os9 F$Ret64
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
863 puls b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
864 coma
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
865 bra L0484
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
866
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
867 UISeek bsr S2UPath get user path #
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
868 bcc GtPDClFM get PD, call FM
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
869 rts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
870
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
871 SISeek lda R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
872 GtPDClFM bsr GetPDesc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
873 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
874 bcc CallFMgr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
875 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
876 lbcc CallFMgr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
877 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
878 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
879
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
880 L04A5 ldb #E$Read
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
881 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
882 tim #WRITE.,,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
883 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
884 lda ,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
885 bita #WRITE.
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
886 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
887 beq L04B2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
888 ldb #E$Write
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
889 bra L04B2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
890
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
891 L04B0 ldb #E$BMode
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
892 L04B2 com ,s+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
893 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
894
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
895 UIRead bsr S2UPath get user path #
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
896 bcc L04E3
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
897 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
898
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
899 UIWrite bsr S2UPath
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
900 bcc L04C1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
901 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
902
991
0502363c6fa7 Fixed incorrectly labeled code and a problem with I$DeletX under OS-9 Level Two
boisy
parents: 986
diff changeset
903 SIWrite lda R$A,u
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
904 L04C1 pshs b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
905 ldb #WRITE.
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
906 bra L04E7
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
907
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
908 * get path descriptor
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
909 * Passed: A = path number
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
910 * Returned: Y = address of path desc for path num
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
911 GetPDesc ldx <D.PthDBT
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
912 os9 F$Find64
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
913 bcs L04DD
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
914 rts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
915
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
916 * System to User Path routine
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
917 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
918 * Returns:
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
919 * A = user path #
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
920 * X = path table in path desc. of current proc.
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
921 S2UPath lda R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
922 cmpa #Numpaths
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
923 bcc L04DD illegal path number
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
924 ldx <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
925 adda #P$PATH
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
926 lda a,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
927 bne L04E0
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
928 L04DD comb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
929 ldb #E$BPNum
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
930 L04E0 rts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
931
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
932 SIRead lda R$A,u get user path
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
933 L04E3 pshs b
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
934 ldb #EXEC.+READ.
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
935 L04E7 bsr GetPDesc get path descriptor from path in A
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
936 bcs L04B2 branch if error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
937 bitb PD.MOD,y test bits against mode in path desc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
938 beq L04B0 branch if no corresponding bits
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
939 ldd R$Y,u else get count from user
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
940 beq L051C branch if zero count
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
941 addd R$X,u else update buffer pointer with size
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
942 bcs L04A5 branch if carry set
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
943 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
944 decd
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
945 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
946 subd #$0001 subtract 1 from count
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
947 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
948 lsra / 2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
949 lsra / 4
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
950 lsra / 8
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
951 lsra / 16
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
952 lsra / 32
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
953 ldb R$X,u get address of buffer to hold read data
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
954 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
955 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
956 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
957 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
958 ldx <D.Proc
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
959 leax <P$DATImg,x
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
960 abx
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
961 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
962 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
963 subr b,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
964 tfr a,e
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
965 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
966 pshs b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
967 suba ,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
968 sta ,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
969 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
970 L0510 ldd ,x++
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
971 cmpd #DAT.Free
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
972 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
973 beq L04A5
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
974 dece
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
975 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
976 bne L051X
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
977 puls a
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
978 bra L04A5
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
979 L051X dec ,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
980 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
981 bpl L0510
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
982 IFEQ H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
983 puls a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
984 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
985 L051C puls b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
986 CallFMgr equ *
991
0502363c6fa7 Fixed incorrectly labeled code and a problem with I$DeletX under OS-9 Level Two
boisy
parents: 986
diff changeset
987 IFNE NitrOS9
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
988 subb #$03
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
989 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
990 subb #$83
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
991 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
992 pshs u,y,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
993 ldx <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
994 L0524
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
995 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
996 lde $05,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
997 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
998 tst PD.CPR,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
999 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1000 bne L054B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1001 lda P$ID,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1002 sta PD.CPR,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1003 stu PD.RGS,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1004 ldx PD.DEV,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1005 ldx V$FMGREX,x get file manager address
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1006 lda #$03 length of lbra instruction
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1007 mul
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1008 jsr b,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1009 L0538 pshs b,cc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1010 bsr L0595
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1011 ldy $04,s get Y off stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1012 ldx <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1013 lda P$ID,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1014 cmpa PD.CPR,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1015 bne L0549
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1016 clr PD.CPR,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1017 L0549 puls pc,u,y,x,b,cc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1018 L054B pshs u,y,x,b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1019 lbsr FIOQu2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1020 puls u,y,x,b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1021 coma
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1022 lda <P$Signal,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1023 beq L0524
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1024 tfr a,b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1025 bra L0538
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1026
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1027 UIGetStt lbsr S2UPath get usr path #
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1028 ldx <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1029 bcc L0568
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1030 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1031
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1032 SIGetStt lda R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1033 ldx <D.SysPrc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1034 L0568 pshs x,b,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1035 lda R$B,u get func code
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1036 sta $01,s place on stack in B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1037 puls a get path off stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1038 lbsr GtPDClFM
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1039 puls x,a get func code in A, sys proc in X
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1040 pshs u,y,b,cc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1041 tsta SS.Opt?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1042 beq SSOpt
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1043 cmpa #SS.DevNm Get device name?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1044 beq SSDevNm
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1045 puls pc,u,y,b,cc
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1046
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1047 SSOpt lda <D.SysTsk
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1048 ldb P$Task,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1049 leax <PD.OPT,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1050 SSCopy ldy #PD.OPT
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1051 ldu R$X,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1052 os9 F$Move
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1053 leas $2,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1054 clrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1055 puls pc,u,y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1056
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1057 L0595 pshs y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1058 ldy <D.Proc get current process
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1059 lda <P$IOQN,y get ID of next process in I/O queue
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1060 beq L05AC branch if none
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1061 clr <P$IOQN,y else clear it
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1062 ldb #S$Wake get wake signal
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1063 os9 F$Send wake up process ID in A with signal in B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1064 os9 F$GProcP
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1065 clr P$IOQP,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1066 L05AC clrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1067 puls pc,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1068
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1069 SSDevNm lda <D.SysTsk
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1070 ldb P$Task,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1071 IFEQ H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1072 pshs d
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1073 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1074 ldx PD.DEV,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1075 ldx V$DESC,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1076 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1077 ldw M$Name,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1078 addr w,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1079 ELSE
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1080 ldd M$Name,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1081 leax d,x
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1082 puls d
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1083 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1084 bra SSCopy
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1085
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1086 UIClose lbsr S2UPath get user path #
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1087 bcs L05CE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1088 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1089 lde R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1090 adde #$30
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1091 clr e,x zero path entry
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1092 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1093 pshs b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1094 ldb R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1095 addb #P$PATH
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1096 clr b,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1097 puls b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1098 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1099 bra L05D1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1100 L05CE rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1101
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1102 SIClose lda R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1103 L05D1 lbsr GetPDesc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1104 bcs L05CE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1105 dec PD.CNT,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1106 tst PD.CPR,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1107 bne L05DF
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1108 lbsr CallFMgr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1109 L05DF tst PD.CNT,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1110 bne L05CE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1111 lbra L03C3
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1112
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1113 FIRQ ldx R$X,u get ptr to IRQ packet
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1114 ldb ,x B = flip byte
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1115 ldx $01,x X = mask/priority
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1116 clra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1117 pshs cc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1118 pshs x,b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1119 ldx <D.Init
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1120 ldb PollCnt,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1121 ldx <D.PolTbl
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1122 ldy R$X,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1123 beq L0634
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1124 tst $01,s test mask byte
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1125 beq L0662
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1126 decb dec poll table count
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1127 lda #POLSIZ
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1128 mul
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1129 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1130 addr d,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1131 ELSE
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1132 leax d,x point to last entry in table
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1133 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1134 lda Q$MASK,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1135 bne L0662
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1136 orcc #IntMasks
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1137 L060D ldb $02,s get priority byte
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1138 cmpb -(POLSIZ-Q$PRTY),x compare with prev entry's prior
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1139 bcs L0620
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1140 ldb #POLSIZ
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1141 L0615 lda ,-x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1142 sta POLSIZ,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1143 decb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1144 bne L0615
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1145 cmpx <D.PolTbl
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1146 bhi L060D
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1147 L0620 ldd R$D,u get dev stat reg
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1148 std Q$POLL,x save it
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1149 ldd ,s++ get flip/mask
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1150 std Q$FLIP,x save it
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1151 ldb ,s+ get priority
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1152 stb Q$PRTY,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1153 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1154 ldq R$Y,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1155 stq Q$SERV,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1156 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1157 ldd R$Y,u get IRQ svc addr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1158 std Q$SERV,x save
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1159 ldd R$U,u get IRQ svc mem ptr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1160 std Q$STAT,x save
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1161 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1162 puls pc,cc
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1163 * Remove the ISR
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1164 L0634 leas $04,s clean stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1165 ldy R$U,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1166 L0639 cmpy Q$STAT,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1167 beq L0645
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1168 leax POLSIZ,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1169 decb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1170 bne L0639
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1171 clrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1172 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1173 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1174 L0645 orcc #IntMasks
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1175 decb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1176 beq L0654
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1177 lda #POLSIZ
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1178 mul
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1179 tfr d,w
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1180 leay POLSIZ,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1181 tfm y+,x+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1182 L0654 ldw #POLSIZ
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1183 clr ,-s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1184 tfm s,x+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1185 leas $01,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1186 andcc #^IntMasks
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1187 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1188 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1189 L0645 pshs b,cc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1190 orcc #IntMasks
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1191 bra L0565
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1192
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1193 * Move prev poll entry up one
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1194 L055E ldb POLSIZ,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1195 stb ,x+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1196 deca
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1197 bne L055E
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1198 L0565 lda #POLSIZ
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1199 dec 1,s dec count
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1200 bne L055E
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1201 L056B clr ,x+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1202 deca
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1203 bne L056B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1204 puls pc,a,cc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1205 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1206
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1207 L0662 leas $04,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1208 L0664 comb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1209 ldb #E$Poll
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1210 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1211
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1212 ***************************
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1213 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1214 * Device polling routine
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1215 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1216 * Entry: None
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1217 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1218
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1219 IRQPoll ldy <D.PolTbl get pointer to polling table
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1220 ldx <D.Init get pointer to init module
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1221 ldb PollCnt,x get number of entries in table
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1222 L066F lda [Q$POLL,y] get device's status register
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1223 eora Q$FLIP,y flip it
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1224 bita Q$MASK,y origin of IRQ?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1225 bne L067E yes, branch
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1226 L0677 leay POLSIZ,y else move to next entry
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1227 decb done?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1228 bne L066F no, get next one
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1229 bra L0664 else branch
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1230 L067E ldu Q$STAT,y get device static storage
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1231 pshs y,b preserve device # & poll address
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1232 jsr [<Q$SERV,y] execute service routine
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1233 puls y,b restore device # & poll address
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1234 bcs L0677 go to next device if error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1235 rts return
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1236
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1237 FNMLoad pshs u save caller's regs ptr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1238 ldx R$X,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1239 lbsr LoadMod allocate proc desc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1240 bcs L06E2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1241 ldy ,s put caller's regs ptr in Y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1242 stx R$X,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1243 ldy ,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1244 ldx $04,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1245 ldd #$0006
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1246 os9 F$LDDDXY
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1247 leay ,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1248 puls u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1249 bra L06BF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1250
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1251 FNMLink ldx <D.Proc
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1252 leay <P$DATImg,x
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1253 pshs u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1254 ldx R$X,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1255 lda R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1256 os9 F$FModul
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1257 bcs L06E2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1258 leay ,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1259 puls u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1260 stx R$X,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1261 L06BF std R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1262 ldx MD$Link,y get link count
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1263 beq L06C9
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1264 bitb #ReEnt reentrant?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1265 beq L06DF branch if so
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1266 L06C9 leax 1,x increment module link count
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1267 beq L06CF branch if zero
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1268 stx MD$Link,y else save new link count
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1269 L06CF ldx MD$MPtr,y get module pointer in X
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1270 ldy MD$MPDAT,y get module DAT image ptr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1271 ldd #$000B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1272 os9 F$LDDDXY
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1273 bcs L06DE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1274 std R$Y,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1275 L06DE rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1276 L06DF comb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1277 ldb #E$ModBsy
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1278 L06E2 puls pc,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1279
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1280 FLoad pshs u place caller's reg ptr on stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1281 ldx R$X,u get pathname to load
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1282 bsr LoadMod allocate a process descriptor
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1283 bcs L070F exit if error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1284 puls y get caller's reg ptr in Y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1285 L06EE pshs y preserve y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1286 stx R$X,y save updated pathlist
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1287 ldy ,u get DAT image pointer
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1288 ldx $04,u get offset within DAT image
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1289 ldd #$0006 get offset to the offset
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1290 os9 F$LDDDXY get language & type
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1291 ldx ,s get caller's reg ptr in X
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1292 std R$D,x update language/type codes
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1293 leax ,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1294 os9 F$ELink
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1295 bcs L070F
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1296 ldx ,s get caller's reg ptr in X
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1297 sty R$Y,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1298 stu R$U,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1299 L070F puls pc,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1300
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1301 IDetach0 pshs u save off regs ptr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1302 ldx R$X,u get ptr to device name
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1303 bsr LoadMod
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1304 bcs L0729
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1305 puls y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1306 ldd <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1307 pshs y,b,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1308 ldd R$U,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1309 std <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1310 bsr L06EE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1311 puls x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1312 stx <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1313 L0729 puls pc,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1314
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1315 * Load module from file
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1316 * Entry: X = pathlist to file containing module(s)
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1317 * A fake process descriptor is created, then the file is
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1318 * opened and validated into memory.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1319
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1320 LoadMod os9 F$AllPrc allocate proc desc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1321 bcc L0731
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1322 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1323 L0731 leay ,u point Y at new alloced mem
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1324 ldu #$0000
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1325 pshs u,y,x,b,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1326 leas <-$11,s make a stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1327 clr $07,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1328 stu ,s save $0000
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1329 stu $02,s save $0000
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1330 ldu <D.Proc get proc desc ptr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1331 stu $04,s save onto stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1332 clr $06,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1333 lda P$Prior,u get priority
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1334 sta P$Prior,y save
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1335 sta P$Age,y and save as age
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1336 lda #EXEC. from exec dir
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1337 os9 I$Open open it
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1338 lbcs L07E1 branch if error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1339 sta $06,s else save path
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1340 stx <$13,s put updated pathlist in X on stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1341 ldx <$15,s get proc desc in Y on stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1342 os9 F$AllTsk allocate task
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1343 bcs L07E1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1344 stx <D.Proc save off X into curr proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1345 L0765 ldx <$15,s get proc desc in Y on stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1346 lda P$Prior,x get priority
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1347 adda #$08 add eight
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1348 bcc L0770 branch if not overflow
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1349 lda #$FF else load highest
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1350 L0770 sta P$Prior,x save back
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1351 sta P$Age,x and age
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1352 ldd #$0009
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1353 ldx $02,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1354 lbsr L0866
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1355 bcs L07E1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1356 ldu <$15,s get proc desc in Y on stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1357 lda P$Task,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1358 ldb <D.SysTsk
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1359 leau $08,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1360 pshs x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1361 ldx $04,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1362 os9 F$Move
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1363 puls x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1364 ldd M$ID,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1365 cmpd #M$ID12
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1366 bne L07DF
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1367 ldd M$Size,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1368 subd #M$IDSize
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1369 lbsr L0866
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1370 bcs L07E1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1371 ldx $04,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1372 lda P$Prior,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1373 ldy <$15,s get proc desc ptr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1374 sta P$Prior,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1375 sta P$Age,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1376 leay <P$DATImg,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1377 tfr y,d
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1378 ldx $02,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1379 os9 F$VModul
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1380 bcc L07C0
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1381 cmpb #E$KwnMod
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1382 beq L07C6
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1383 bra L07E1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1384 L07C0 ldd $02,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1385 addd $0A,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1386 std $02,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1387 * U = mod dir entry
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1388 L07C6 ldd <$17,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1389 bne L0765
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1390 ldd MD$MPtr,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1391 std <$11,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1392 ldd [MD$MPDAT,u]
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1393 std <$17,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1394 ldd MD$Link,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1395 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1396 incd
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1397 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1398 addd #$0001
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1399 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1400 beq L0765
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1401 std MD$Link,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1402 bra L0765
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1403 L07DF ldb #E$BMID
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1404 L07E1 stb $07,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1405 ldd $04,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1406 beq L07E9
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1407 std <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1408 L07E9 lda $06,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1409 beq L07F0
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1410 os9 I$Close close path to file
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1411 L07F0 ldd $02,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1412 addd #$1FFF
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1413 lsra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1414 lsra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1415 lsra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1416 lsra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1417 lsra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1418 sta $02,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1419 ldb ,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1420 beq L081D
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1421 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1422 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1423 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1424 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1425 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1426 subb $02,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1427 beq L081D
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1428 ldx <$15,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1429 leax <P$DATImg,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1430 lsla
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1431 leax a,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1432 leax $01,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1433 ldu <D.BlkMap
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1434 L0816 lda ,x++
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1435 clr a,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1436 decb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1437 bne L0816
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1438 L081D ldx <$15,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1439 lda P$ID,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1440 os9 F$DelPrc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1441 ldd <$17,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1442 bne L0832
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1443 ldb $07,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1444 stb <$12,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1445 comb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1446 bra L0861
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1447 L0832 ldu <D.ModDir
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1448 ldx <$11,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1449 ldd <$17,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1450 leau -MD$ESize,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1451 L083C leau MD$ESize,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1452 cmpu <D.ModEnd
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1453 bcs L084B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1454 comb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1455 ldb #E$MNF
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1456 stb <$12,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1457 bra L0861
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1458 L084B cmpx MD$MPtr,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1459 bne L083C
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1460 cmpd [MD$MPDAT,u]
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1461 bne L083C
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1462 ldd MD$Link,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1463 beq L085D
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1464 subd #$0001
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1465 std MD$Link,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1466 L085D stu <$17,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1467 clrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1468 L0861 leas <$11,s
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1469 puls pc,u,y,x,b,a
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1470
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1471 L0866 pshs y,x,b,a
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1472 addd $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1473 std $04,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1474 cmpd $08,s
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1475 bls L08C2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1476 addd #$1FFF
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1477 lsra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1478 lsra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1479 lsra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1480 lsra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1481 lsra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1482 cmpa #$07
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1483 bhi L08A4
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1484 ldb $08,s
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1485 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1486 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1487 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1488 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1489 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1490 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1491 subr b,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1492 lslb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1493 exg b,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1494 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1495 pshs b
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1496 exg b,a
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1497 subb ,s+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1498 lsla
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1499 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1500 ldu <$1D,s
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1501 leau <P$DATImg,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1502 leau a,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1503 clra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1504 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1505 tfr b,f
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1506 ELSE
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1507 tfr d,x
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1508 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1509 ldy <D.BlkMap
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1510 clrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1511 L0899 tst ,y+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1512 beq L08A9
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1513 L089D equ *
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1514 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1515 incd
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1516 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1517 addd #$0001
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1518 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1519 cmpy <D.BlkMap+2
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1520 bne L0899
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1521 L08A4 comb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1522 ldb #E$MemFul
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1523 bra L08CC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1524 L08A9 inc -$01,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1525 std ,u++
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1526 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1527 lde $08,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1528 adde #$20
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1529 ste $08,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1530 decf
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1531 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1532 pshs a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1533 lda $09,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1534 adda #$20
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1535 sta $09,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1536 puls a
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1537 leax -1,x
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1538 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1539 bne L089D
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1540 ldx <$1D,s
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1541 os9 F$SetTsk
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1542 bcs L08CC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1543 L08C2 lda $0E,s
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1544 ldx $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1545 ldy ,s
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1546 os9 I$Read
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1547 L08CC leas $04,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1548 puls pc,x
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1549
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1550 ********************************
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1551 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1552 * F$PErr System call entry point
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1553 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1554 * Entry: U = Register stack pointer
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1555 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1556
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1557 ErrHead fcc /ERROR #/
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1558 ErrNum equ *-ErrHead
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1559 fcb $2F,$3A,$30
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1560 fcb C$CR
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1561 ErrMessL equ *-ErrHead
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1562
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1563 FPErr ldx <D.Proc get current process pointer
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1564 lda <P$PATH+2,x get stderr path
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1565 beq L0922 return if not there
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1566 leas -ErrMessL,s make room on stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1567 * copy error message to stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1568 leax <ErrHead,pcr point to error text
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1569 leay ,s point to buffer
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1570 L08E9 lda ,x+ get a byte
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1571 sta ,y+ store a byte
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1572 cmpa #C$CR done?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1573 bne L08E9 no, keep going
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1574 ldb R$B,u get error #
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1575 * Convert error code to decimal
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1576 L08F3 inc ErrNum+0,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1577 subb #$64
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1578 bcc L08F3
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1579 L08F9 dec ErrNum+1,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1580 addb #$0A
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1581 bcc L08F9
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1582 addb #$30
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1583 stb ErrNum+2,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1584 ldx <D.Proc get current process pointer
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1585 ldu P$SP,x get the stack pointer
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1586 leau -ErrMessL,u put a buffer on it
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1587 lda <D.SysTsk get system task number
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1588 ldb P$Task,x get task number of process
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1589 leax ,s point to error text
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1590 ldy #ErrMessL get length of text
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1591 L0913 os9 F$Move move it to the process
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1592 leax ,u point to the moved text
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1593 ldu <D.Proc get process pointer
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1594 lda <P$PATH+2,u get path number
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1595 os9 I$WritLn write the text
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1596 leas ErrMessL,s purge the buffer
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1597 L0922 rts return
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1598
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1599 FIOQu
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1600 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1601 lde R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1602 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1603 FIOQu2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1604 ldy <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1605 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1606 clrf
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1607 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1608 L092B lda <P$IOQN,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1609 beq L094F
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1610 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1611 cmpr e,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1612 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1613 cmpa R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1614 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1615 bne L094A
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1616 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1617 stf <P$IOQN,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1618 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1619 clr <P$IOQN,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1620 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1621 os9 F$GProcP
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1622 bcs L09B1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1623 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1624 stf P$IOQP,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1625 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1626 clr P$IOQP,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1627 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1628 ldb #S$Wake
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1629 os9 F$Send
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1630 ldu <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1631 bra L0958
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1632 L094A os9 F$GProcP
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1633 bcc L092B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1634 L094F
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1635 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1636 tfr e,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1637 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1638 lda R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1639 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1640 ldu <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1641 os9 F$GProcP
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1642 bcs L09B1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1643 L0958 leax ,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1644 lda <P$IOQN,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1645 beq L097A
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1646 os9 F$GProcP
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1647 bcs L09B1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1648 ldb P$Age,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1649 cmpb P$Age,y FYI, was cmpd, bug in OS-9 Level Two from Tandy
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1650 bls L0958
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1651 ldb ,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1652 stb <P$IOQN,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1653 ldb ,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1654 stb P$IOQP,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1655 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1656 stf P$IOQP,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1657 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1658 clr P$IOQP,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1659 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1660 exg y,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1661 bra L0958
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1662 L097A lda ,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1663 sta <P$IOQN,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1664 lda ,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1665 sta P$IOQP,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1666 ldx #$0000
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1667 os9 F$Sleep
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1668 ldu <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1669 lda P$IOQP,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1670 beq L09B1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1671 os9 F$GProcP
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1672 bcs L09AE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1673 lda <P$IOQN,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1674 beq L09AE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1675 lda <P$IOQN,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1676 sta <P$IOQN,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1677 beq L09AE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1678 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1679 stf <P$IOQN,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1680 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1681 clr <P$IOQN,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1682 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1683 os9 F$GProcP
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1684 bcs L09AE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1685 lda P$IOQP,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1686 sta P$IOQP,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1687 L09AE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1688 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1689 stf P$IOQP,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1690 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1691 clr P$IOQP,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1692 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1693 L09B1 rts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1694
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1695 emod
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1696 eom equ *
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1697 end
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1698