Mercurial > hg > Members > kono > nitros9-code

annotate level2/modules/ioman.asm @ 1305:7d4057b4b5cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed bug pointed out by Robert Gault
author boisy
date Mon, 01 Sep 2003 22:35:29 +0000
parents 275aea78cb87
children edce5716d722
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
1098
9c837761a347 Fixed a bug where wrong address was being stuffed in driver's static
boisy
parents: 1062
diff changeset
23 * 13r4 Fixed bug where wrong address was being put BGP 03/04/09
9c837761a347 Fixed a bug where wrong address was being stuffed in driver's static
boisy
parents: 1062
diff changeset
24 * in V$STAT when driver INIT was called.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
26 nam IOMan
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
27 ttl OS-9 Level Two I/O Manager module
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
29 * 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
30
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
31 IFP1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
32 use defsfile
939
8f1263d3e3d5 Small touch-ups to source
boisy
parents: 744
diff changeset
33 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 tylg set Systm+Objct
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
36 atrv set ReEnt+rev
1098
9c837761a347 Fixed a bug where wrong address was being stuffed in driver's static
boisy
parents: 1062
diff changeset
37 rev set $04
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
38 edition set 13
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 mod eom,name,tylg,atrv,start,size
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
42 u0000 rmb 0
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
43 size equ .
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
44
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
45 name fcs /IOMan/
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
46 fcb edition
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
47
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
48 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
49 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
50 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
51 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
52 pshs d preserve it
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
53 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
54 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
55 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
56 pshs d preserve it
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
57 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
58 asld
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
59 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
60 lslb multiply by 2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
61 rola
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
62 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
63 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
64 os9 F$SRqMem allocate memory
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
65 bcs Crash branch if error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
66 leax ,u point to memory
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
67 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
68 leay <TheZero,pcr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
69 tfr d,w
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
70 tfm y,x+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
71 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
72 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
73 subd #$0001 done?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
74 bne ClrLoop no, keep going
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
75 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
76 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
77 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
78 puls x,d
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
79 addr u,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
80 stx <D.PolTbl
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
81 addr d,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
82 stx <D.CLTb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
83 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
84 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
85 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
86 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
87 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
88 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
89 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
90 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
91 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
92 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
93 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
94 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
95 bcs Crash branch if error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
96 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
97 os9 F$Ret64
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
98 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
99 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
100 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
101 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
102 rts and return to system
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
103
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
104 ******************************
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
105 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
106 * Fatal error Crash the system
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
107 *
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
108 Crash jmp <D.Crash
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
109
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
110 ******************************
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
111 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
112 * System service routine vector table
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
113 *
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
114 L005F fcb $7F
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
115 fdb UsrIO-*-2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
116 fcb F$Load
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
117 fdb FLoad-*-2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
118 fcb I$Detach
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
119 fdb IDetach0-*-2
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
120 fcb F$PErr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
121 fdb FPErr-*-2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
122 fcb F$IOQu+$80
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
123 fdb FIOQu-*-2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
124 fcb $FF
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
125 fdb SysIO-*-2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
126 fcb F$IRQ+$80
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
127 fdb FIRQ-*-2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
128 fcb F$IODel+$80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
129 fdb FIODel-*-2
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
130 fcb F$NMLink
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
131 fdb FNMLink-*-2
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
132 fcb F$NMLoad
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
133 fdb FNMLoad-*-2
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
134 fcb $80
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
135
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
136 ******************************
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
137 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
138 * Check device status service call?
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
139 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
140 * Entry: U = Callers register stack pointer
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
141 *
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
142 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
143 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
144 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
145 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
146 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
147 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
148 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
149 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
150 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
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 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
153 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
154 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
155 decb done them all?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
156 bne L0086 no, keep going
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
157 clrb clear carry
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
158 L009D rts and return
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
159 L009E comb else set carry
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
160 ldb #E$ModBsy submit error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
161 rts and return
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
162
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
163 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
164 TheZero fcb $00
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
165 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
166
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
167 UsrIODis fdb IAttach-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
168 fdb IDetach-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
169 fdb UIDup-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
170 fdb IUsrCall-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
171 fdb IUsrCall-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
172 fdb IMakDir-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
173 fdb IChgDir-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
174 fdb IDelete-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
175 fdb UISeek-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 UIRead-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
179 fdb UIWrite-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
180 fdb UIGetStt-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
181 fdb UISeek-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
182 fdb UIClose-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
183 fdb IDeletX-UsrIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
184
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
185 SysIODis fdb IAttach-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
186 fdb IDetach-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
187 fdb SIDup-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
188 fdb ISysCall-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
189 fdb ISysCall-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
190 fdb IMakDir-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
191 fdb IChgDir-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
192 fdb IDelete-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
193 fdb SISeek-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 SIRead-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
197 fdb SIWrite-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
198 fdb SIGetStt-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
199 fdb SISeek-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
200 fdb SIClose-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
201 fdb IDeletX-SysIODis
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
202
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
203 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
204 bra IODsptch
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
205 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
206 IODsptch equ *
0502363c6fa7 Fixed incorrectly labeled code and a problem with I$DeletX under OS-9 Level Two
boisy
parents: 986
diff changeset
207 cmpb #$20
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
208 bhi L00F9
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
209 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
210 ldw b,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
211 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
212 jmp w,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
213 ELSE
1252
275aea78cb87 SCF now fully uses V$DRIVEX saving time and code size
boisy
parents: 1242
diff changeset
214 pshs d
275aea78cb87 SCF now fully uses V$DRIVEX saving time and code size
boisy
parents: 1242
diff changeset
215 ldd b,x
275aea78cb87 SCF now fully uses V$DRIVEX saving time and code size
boisy
parents: 1242
diff changeset
216 leax d,x
275aea78cb87 SCF now fully uses V$DRIVEX saving time and code size
boisy
parents: 1242
diff changeset
217 puls d
275aea78cb87 SCF now fully uses V$DRIVEX saving time and code size
boisy
parents: 1242
diff changeset
218 lsrb
275aea78cb87 SCF now fully uses V$DRIVEX saving time and code size
boisy
parents: 1242
diff changeset
219 jmp ,x
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
220 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
221
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
222 ******************************
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
223 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
224 * Unknown service code error handler
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
225 *
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
226 L00F9 comb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
227 ldb #E$UnkSvc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
228 rts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
229
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
230 VDRIV equ $00 \
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
231 VSTAT equ $02 |
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
232 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
233 VFMGR equ $06 |
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
234 VUSRS equ $08 /
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
235 DRVENT equ $09
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
236 FMENT equ $0B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
237 AMODE equ $0D
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
238 HWPG equ $0E
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
239 HWPORT equ $0F
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
240 CURDTE equ $11
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
241 DATBYT1 equ $13
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
242 DATBYT2 equ $15
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
243 ODPROC equ $17
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
244 CALLREGS equ $19
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
245 RETERR equ $1A
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
246 EOSTACK equ $1B
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
247
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
248 * Entry: U=module header pointer
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
249 IAttach equ *
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
250 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
251 ldw #EOSTACK get stack count
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
252 leas <-EOSTACK,s make stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
253 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
254 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
255 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
256 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
257 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
258 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
259 decb decrement
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
260 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
261 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
262 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
263 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
264 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
265 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
266 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
267 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
268 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
269 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
270 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
271 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
272 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
273 bcs L0155 branch if error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
274 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
275 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
276 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
277 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
278 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
279 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
280 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
281 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
282 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
283 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
284 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
285 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
286 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
287 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
288 lda #Drivr driver
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
289 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
290 bcs L0155 branch if error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
291 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
292 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
293 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
294 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
295 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
296 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
297 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
298 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
299 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
300 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
301 lda #FlMgr link to fm
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
302 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
303 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
304 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
305 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
306 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
307 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
308 os9 I$Detach detach
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
309 leas <RETERR,s adjust stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
310 comb set carry
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
311 puls pc,b exit
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
312 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
313 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
314 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
315 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
316 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
317 tfr b,f
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
318 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
319 tfr b,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
320 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
321 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
322 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
323 beq L01B4 branch if empty
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
324 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
325 bne L0196 branch if not
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
326 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
327 bne L0191 branch if zero
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
328 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
329 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
330 beq L0177 branch if zero
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
331 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
332 pshs a save off A
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
333 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
334 beq L0188 branch if zero
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
335 ENDC
709
6f84b2ce58a6 Incorporated full NitrOS-9 code set; chd/chx still doesn't work under L2
boisy
parents: 704
diff changeset
336 pshs u,b
6f84b2ce58a6 Incorporated full NitrOS-9 code set; chd/chx still doesn't work under L2
boisy
parents: 704
diff changeset
337 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
338 puls u,b
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
339 IFEQ H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
340 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
341 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
342 bra L0177
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
343 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
344 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
345 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
346 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
347 bne L01B4 branch if not
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
348 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
349 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
350 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
351 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
352 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
353 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
354 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
355 bne L01B4 branch if not
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
356 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
357 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
358 bne L01B4 branch if not
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
359 * 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
360 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
361 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
362 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
363 beq L01B4 branch if not
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
364 IFEQ H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
365 sta HWPG,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
366 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
367 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
368 decb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
369 bne L0177
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
370 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
371 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
372 ldu <D.DevTbl
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
373 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
374 tfr f,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
375 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
376 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
377 beq L01DD branch if zero
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
378 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
379 deca
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
380 bne L01C4
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
381 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
382 bra L015C
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
383
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
384 L01D1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
385 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
386 lsrd /2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
387 lsrd /4
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
388 lsrd /8
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
389 lsrd /16
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
390 lsrd /32
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
391 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
392 lsra
709
6f84b2ce58a6 Incorporated full NitrOS-9 code set; chd/chx still doesn't work under L2
boisy
parents: 704
diff changeset
393 rorb /2
704
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 /4
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 /8
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 /16
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 /32
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
402 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
403 clra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
404 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
405
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
406 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
407 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
408 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
409 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
410 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
411 os9 F$SRqMem allocate memory
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
412 lbcs L015C branch if error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
413 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
414 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
415 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
416 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
417 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
418 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
419 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
420 subd #$0001
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
421 bhi Loop2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
422 ENDC
986
aebfc8992bfd Factored out what appears to be Level III code... was causing ERROR 207's under
boisy
parents: 939
diff changeset
423 * Code here appears to be for Level III?
1062
3bdcdf63f808 Removed LogBook
boisy
parents: 1019
diff changeset
424 IFGT Level-2
1098
9c837761a347 Fixed a bug where wrong address was being stuffed in driver's static
boisy
parents: 1062
diff changeset
425 ldd HWPG,s get hwpage and upper addr
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
426 bsr L01D1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
427 std <DATBYT2,s save off
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
428 ldu #$0000
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
429 tfr u,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
430 stu <DATBYT1,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
431 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
432 L0209 ldd ,x++
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
433 cmpd <DATBYT2,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
434 beq L023B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
435 cmpd #DAT.Free
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
436 bne L021D
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
437 sty <DATBYT1,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
438 leau -$02,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
439 L021D leay >$2000,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
440 bne L0209
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
441 ldb #E$NoRAM
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
442 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
443 cmpr 0,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
444 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
445 cmpu #$0000
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
446 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
447 lbeq L015C
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
448 ldd <DATBYT2,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
449 std ,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
450 ldx <D.SysPrc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
451 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
452 oim #ImgChg,P$State,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
453 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
454 lda P$State,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
455 ora #ImgChg
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
456 sta P$State,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
457 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
458 os9 F$ID
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
459 bra L023F
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
460 L023B sty <DATBYT1,s
1098
9c837761a347 Fixed a bug where wrong address was being stuffed in driver's static
boisy
parents: 1062
diff changeset
461 ENDC
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
462 L023F ldd HWPORT,s
1098
9c837761a347 Fixed a bug where wrong address was being stuffed in driver's static
boisy
parents: 1062
diff changeset
463 IFGT Level-2
704
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
1098
9c837761a347 Fixed a bug where wrong address was being stuffed in driver's static
boisy
parents: 1062
diff changeset
467 ldu VSTAT,s load U with static storage of drvr
9c837761a347 Fixed a bug where wrong address was being stuffed in driver's static
boisy
parents: 1062
diff changeset
468 clr V.PAGE,u clear page byte
9c837761a347 Fixed a bug where wrong address was being stuffed in driver's static
boisy
parents: 1062
diff changeset
469 std V.PORT,u save port address
9c837761a347 Fixed a bug where wrong address was being stuffed in driver's static
boisy
parents: 1062
diff changeset
470 ldy VDESC,s load Y with desc ptr
9c837761a347 Fixed a bug where wrong address was being stuffed in driver's static
boisy
parents: 1062
diff changeset
471 jsr [<DRVENT,s] call driver init routine
9c837761a347 Fixed a bug where wrong address was being stuffed in driver's static
boisy
parents: 1062
diff changeset
472 lbcs L015C branch if error
704
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?
1062
3bdcdf63f808 Removed LogBook
boisy
parents: 1019
diff changeset
557 IFGT Level-2
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 ldb #7 Delete offset in file manager
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
773 pshs b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
774 ldb R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
775 bra L03BA
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
776
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
777 * Allocate path descriptor
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
778 * Entry:
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
779 * B = mode
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
780 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
781 pshs u,x save U/X
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
782 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
783 os9 F$All64 allocate 64 byte page
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
784 bcs L0484 branch if error
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
785 inc PD.CNT,y set path count
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
786 stb PD.MOD,y save mode byte
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
787 ldx <D.Proc get curr proc desc
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
788 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
789 ldx R$X,u X points to pathlist
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
790 L042C os9 F$LDABX get byte at X
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
791 leax 1,x move to next
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
792 cmpa #C$SPAC space?
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
793 beq L042C continue if so
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
794 leax -1,x else back up
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
795 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
796 cmpa #PDELIM leading slash?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
797 beq L0459 yep...
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
798 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
799 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
800 tim #EXEC.,PD.MOD,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
801 ELSE
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
802 ldb PD.MOD,y get mode byte
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
803 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
804 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
805 beq L0449 nope...
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
806 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
807 bra L044C and branch
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
808 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
809 L044C beq L0489 branch if empty
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
810 ldd <D.SysPrc get system proc ptr
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
811 std <D.Proc get curr proc
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
812 ldx V$DESC,x get descriptor pointer
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
813 ldd M$Name,x get name offset
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
814 IFNE H6309
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
815 addr d,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
816 ELSE
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
817 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
818 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
819 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
820 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
821 puls y restore path desc ptr
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
822 bcs L0489 branch if error
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
823 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
824 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
825 stu PD.DEV,y save dev tbl entry
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
826 bcs L048B branch if error
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
827 ldx V$DESC,u else get descriptor pointer
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
828 * copy options from dev desc to path desc
744
07f62f74805a Fixed chd/chx bug, IDeletX bug, added more comments
boisy
parents: 709
diff changeset
829 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
830 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
831 ldf ,x+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
832 leau <PD.OPT,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
833 cmpf #PD.OPT
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
834 bcs L047E
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
835 ldf #$20
709
6f84b2ce58a6 Incorporated full NitrOS-9 code set; chd/chx still doesn't work under L2
boisy
parents: 704
diff changeset
836 L047E clre
6f84b2ce58a6 Incorporated full NitrOS-9 code set; chd/chx still doesn't work under L2
boisy
parents: 704
diff changeset
837 tfm x+,u+
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
838 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
839 ldb ,x+ get options count
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
840 leau <PD.OPT,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
841 cmpb #PD.OPT
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
842 bls L03E5
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
843 ldb #PD.OPT-1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
844 KeepLoop lda ,x+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
845 sta ,u+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
846 L03E5 decb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
847 bpl KeepLoop
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
848 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
849 clrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
850 L0484 puls u,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
851 stx <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
852 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
853
1242
bdd2f61d5dbc Fixed case issues in several files (thanks Rodney H.)
boisy
parents: 1098
diff changeset
854 L0489 ldb #E$BPNam
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
855 L048B pshs b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
856 lda ,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
857 ldx <D.PthDBT
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
858 os9 F$Ret64
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
859 puls b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
860 coma
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
861 bra L0484
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
862
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
863 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
864 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
865 rts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
866
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
867 SISeek lda R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
868 GtPDClFM bsr GetPDesc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
869 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
870 bcc CallFMgr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
871 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
872 lbcc CallFMgr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
873 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
874 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
875
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
876 L04A5 ldb #E$Read
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
877 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
878 tim #WRITE.,,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
879 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
880 lda ,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
881 bita #WRITE.
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
882 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
883 beq L04B2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
884 ldb #E$Write
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
885 bra L04B2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
886
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
887 L04B0 ldb #E$BMode
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
888 L04B2 com ,s+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
889 rts
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 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
892 bcc L04E3
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 UIWrite bsr S2UPath
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
896 bcc L04C1
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
991
0502363c6fa7 Fixed incorrectly labeled code and a problem with I$DeletX under OS-9 Level Two
boisy
parents: 986
diff changeset
899 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
900 L04C1 pshs b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
901 ldb #WRITE.
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
902 bra L04E7
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
903
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
904 * get path descriptor
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
905 * Passed: A = path number
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
906 * 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
907 GetPDesc ldx <D.PthDBT
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
908 os9 F$Find64
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
909 bcs L04DD
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
910 rts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
911
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
912 * System to User Path routine
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
913 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
914 * Returns:
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
915 * A = user path #
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
916 * 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
917 S2UPath lda R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
918 cmpa #Numpaths
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
919 bcc L04DD illegal path number
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
920 ldx <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
921 adda #P$PATH
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
922 lda a,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
923 bne L04E0
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
924 L04DD comb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
925 ldb #E$BPNum
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
926 L04E0 rts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
927
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
928 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
929 L04E3 pshs b
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
930 ldb #EXEC.+READ.
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
931 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
932 bcs L04B2 branch if error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
933 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
934 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
935 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
936 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
937 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
938 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
939 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
940 decd
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
941 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
942 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
943 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
944 lsra / 2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
945 lsra / 4
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
946 lsra / 8
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
947 lsra / 16
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
948 lsra / 32
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
949 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
950 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
951 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
952 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
953 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
954 ldx <D.Proc
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
955 leax <P$DATImg,x
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
956 abx
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 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
959 subr b,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
960 tfr a,e
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
961 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
962 pshs b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
963 suba ,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
964 sta ,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
965 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
966 L0510 ldd ,x++
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
967 cmpd #DAT.Free
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
968 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
969 beq L04A5
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
970 dece
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
971 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
972 bne L051X
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
973 puls a
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
974 bra L04A5
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
975 L051X dec ,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
976 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
977 bpl L0510
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
978 IFEQ H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
979 puls a
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 L051C puls b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
982 CallFMgr equ *
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
983 subb #$03
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
984 pshs u,y,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
985 ldx <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
986 L0524
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
987 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
988 lde $05,y
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 tst PD.CPR,y
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 bne L054B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
993 lda P$ID,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
994 sta PD.CPR,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
995 stu PD.RGS,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
996 ldx PD.DEV,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
997 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
998 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
999 mul
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1000 jsr b,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1001 L0538 pshs b,cc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1002 bsr L0595
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1003 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
1004 ldx <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1005 lda P$ID,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1006 cmpa PD.CPR,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1007 bne L0549
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1008 clr PD.CPR,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1009 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
1010 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
1011 lbsr FIOQu2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1012 puls u,y,x,b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1013 coma
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1014 lda <P$Signal,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1015 beq L0524
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1016 tfr a,b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1017 bra L0538
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1018
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1019 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
1020 ldx <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1021 bcc L0568
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1022 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1023
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1024 SIGetStt lda R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1025 ldx <D.SysPrc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1026 L0568 pshs x,b,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1027 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
1028 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
1029 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
1030 lbsr GtPDClFM
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1031 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
1032 pshs u,y,b,cc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1033 tsta SS.Opt?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1034 beq SSOpt
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1035 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
1036 beq SSDevNm
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1037 puls pc,u,y,b,cc
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1038
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1039 SSOpt lda <D.SysTsk
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1040 ldb P$Task,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1041 leax <PD.OPT,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1042 SSCopy ldy #PD.OPT
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1043 ldu R$X,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1044 os9 F$Move
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1045 leas $2,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1046 clrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1047 puls pc,u,y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1048
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1049 L0595 pshs y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1050 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
1051 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
1052 beq L05AC branch if none
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1053 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
1054 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
1055 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
1056 os9 F$GProcP
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1057 clr P$IOQP,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1058 L05AC clrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1059 puls pc,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1060
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1061 SSDevNm lda <D.SysTsk
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1062 ldb P$Task,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1063 IFEQ H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1064 pshs d
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1065 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1066 ldx PD.DEV,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1067 ldx V$DESC,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1068 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1069 ldw M$Name,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1070 addr w,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1071 ELSE
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1072 ldd M$Name,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1073 leax d,x
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1074 puls d
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1075 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1076 bra SSCopy
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1077
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1078 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
1079 bcs L05CE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1080 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1081 lde R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1082 adde #$30
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1083 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
1084 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1085 pshs b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1086 ldb R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1087 addb #P$PATH
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1088 clr b,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1089 puls b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1090 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1091 bra L05D1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1092 L05CE rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1093
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1094 SIClose lda R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1095 L05D1 lbsr GetPDesc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1096 bcs L05CE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1097 dec PD.CNT,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1098 tst PD.CPR,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1099 bne L05DF
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1100 lbsr CallFMgr
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1101 L05DF tst PD.CNT,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1102 bne L05CE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1103 lbra L03C3
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1104
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1105 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
1106 ldb ,x B = flip byte
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1107 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
1108 clra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1109 pshs cc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1110 pshs x,b
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1111 ldx <D.Init
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1112 ldb PollCnt,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1113 ldx <D.PolTbl
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1114 ldy R$X,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1115 beq L0634
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1116 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
1117 beq L0662
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1118 decb dec poll table count
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1119 lda #POLSIZ
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1120 mul
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1121 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1122 addr d,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1123 ELSE
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1124 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
1125 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1126 lda Q$MASK,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1127 bne L0662
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1128 orcc #IntMasks
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1129 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
1130 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
1131 bcs L0620
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1132 ldb #POLSIZ
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1133 L0615 lda ,-x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1134 sta POLSIZ,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1135 decb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1136 bne L0615
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1137 cmpx <D.PolTbl
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1138 bhi L060D
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1139 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
1140 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
1141 ldd ,s++ get flip/mask
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1142 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
1143 ldb ,s+ get priority
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1144 stb Q$PRTY,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1145 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1146 ldq R$Y,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1147 stq Q$SERV,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1148 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1149 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
1150 std Q$SERV,x save
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1151 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
1152 std Q$STAT,x save
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1153 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1154 puls pc,cc
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1155 * Remove the ISR
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1156 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
1157 ldy R$U,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1158 L0639 cmpy Q$STAT,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1159 beq L0645
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1160 leax POLSIZ,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1161 decb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1162 bne L0639
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1163 clrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1164 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1165 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1166 L0645 orcc #IntMasks
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1167 decb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1168 beq L0654
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1169 lda #POLSIZ
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1170 mul
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1171 tfr d,w
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1172 leay POLSIZ,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1173 tfm y+,x+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1174 L0654 ldw #POLSIZ
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1175 clr ,-s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1176 tfm s,x+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1177 leas $01,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1178 andcc #^IntMasks
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1179 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1180 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1181 L0645 pshs b,cc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1182 orcc #IntMasks
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1183 bra L0565
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1184
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1185 * 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
1186 L055E ldb POLSIZ,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1187 stb ,x+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1188 deca
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1189 bne L055E
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1190 L0565 lda #POLSIZ
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1191 dec 1,s dec count
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1192 bne L055E
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1193 L056B clr ,x+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1194 deca
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1195 bne L056B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1196 puls pc,a,cc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1197 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1198
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1199 L0662 leas $04,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1200 L0664 comb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1201 ldb #E$Poll
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1202 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1203
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1204 ***************************
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1205 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1206 * Device polling routine
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1207 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1208 * Entry: None
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1209 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1210
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1211 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
1212 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
1213 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
1214 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
1215 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
1216 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
1217 bne L067E yes, branch
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1218 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
1219 decb done?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1220 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
1221 bra L0664 else branch
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1222 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
1223 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
1224 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
1225 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
1226 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
1227 rts return
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1228
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1229 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
1230 ldx R$X,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1231 lbsr LoadMod allocate proc desc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1232 bcs L06E2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1233 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
1234 stx R$X,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1235 ldy ,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1236 ldx $04,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1237 ldd #$0006
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1238 os9 F$LDDDXY
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1239 leay ,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1240 puls u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1241 bra L06BF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1242
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1243 FNMLink ldx <D.Proc
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1244 leay <P$DATImg,x
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1245 pshs u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1246 ldx R$X,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1247 lda R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1248 os9 F$FModul
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1249 bcs L06E2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1250 leay ,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1251 puls u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1252 stx R$X,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1253 L06BF std R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1254 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
1255 beq L06C9
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1256 bitb #ReEnt reentrant?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1257 beq L06DF branch if so
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1258 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
1259 beq L06CF branch if zero
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1260 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
1261 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
1262 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
1263 ldd #$000B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1264 os9 F$LDDDXY
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1265 bcs L06DE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1266 std R$Y,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1267 L06DE rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1268 L06DF comb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1269 ldb #E$ModBsy
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1270 L06E2 puls pc,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1271
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1272 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
1273 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
1274 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
1275 bcs L070F exit if error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1276 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
1277 L06EE pshs y preserve y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1278 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
1279 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
1280 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
1281 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
1282 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
1283 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
1284 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
1285 leax ,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1286 os9 F$ELink
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1287 bcs L070F
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1288 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
1289 sty R$Y,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1290 stu R$U,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1291 L070F puls pc,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1292
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1293 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
1294 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
1295 bsr LoadMod
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1296 bcs L0729
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1297 puls y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1298 ldd <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1299 pshs y,b,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1300 ldd R$U,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1301 std <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1302 bsr L06EE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1303 puls x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1304 stx <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1305 L0729 puls pc,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1306
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1307 * Load module from file
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1308 * 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
1309 * 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
1310 * opened and validated into memory.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1311
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1312 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
1313 bcc L0731
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1314 rts
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1315 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
1316 ldu #$0000
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1317 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
1318 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
1319 clr $07,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1320 stu ,s save $0000
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1321 stu $02,s save $0000
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1322 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
1323 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
1324 clr $06,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1325 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
1326 sta P$Prior,y save
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1327 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
1328 lda #EXEC. from exec dir
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1329 os9 I$Open open it
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1330 lbcs L07E1 branch if error
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1331 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
1332 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
1333 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
1334 os9 F$AllTsk allocate task
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1335 bcs L07E1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1336 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
1337 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
1338 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
1339 adda #$08 add eight
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1340 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
1341 lda #$FF else load highest
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1342 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
1343 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
1344 ldd #$0009
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1345 ldx $02,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1346 lbsr L0866
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1347 bcs L07E1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1348 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
1349 lda P$Task,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1350 ldb <D.SysTsk
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1351 leau $08,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1352 pshs x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1353 ldx $04,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1354 os9 F$Move
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1355 puls x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1356 ldd M$ID,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1357 cmpd #M$ID12
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1358 bne L07DF
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1359 ldd M$Size,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1360 subd #M$IDSize
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1361 lbsr L0866
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1362 bcs L07E1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1363 ldx $04,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1364 lda P$Prior,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1365 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
1366 sta P$Prior,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1367 sta P$Age,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1368 leay <P$DATImg,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1369 tfr y,d
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1370 ldx $02,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1371 os9 F$VModul
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1372 bcc L07C0
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1373 cmpb #E$KwnMod
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1374 beq L07C6
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1375 bra L07E1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1376 L07C0 ldd $02,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1377 addd $0A,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1378 std $02,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1379 * U = mod dir entry
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1380 L07C6 ldd <$17,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1381 bne L0765
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1382 ldd MD$MPtr,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1383 std <$11,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1384 ldd [MD$MPDAT,u]
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1385 std <$17,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1386 ldd MD$Link,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1387 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1388 incd
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1389 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1390 addd #$0001
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1391 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1392 beq L0765
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1393 std MD$Link,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1394 bra L0765
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1395 L07DF ldb #E$BMID
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1396 L07E1 stb $07,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1397 ldd $04,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1398 beq L07E9
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1399 std <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1400 L07E9 lda $06,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1401 beq L07F0
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1402 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
1403 L07F0 ldd $02,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1404 addd #$1FFF
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1405 lsra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1406 lsra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1407 lsra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1408 lsra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1409 lsra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1410 sta $02,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1411 ldb ,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1412 beq L081D
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1413 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1414 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1415 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1416 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1417 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1418 subb $02,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1419 beq L081D
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1420 ldx <$15,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1421 leax <P$DATImg,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1422 lsla
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1423 leax a,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1424 leax $01,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1425 ldu <D.BlkMap
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1426 L0816 lda ,x++
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1427 clr a,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1428 decb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1429 bne L0816
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1430 L081D ldx <$15,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1431 lda P$ID,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1432 os9 F$DelPrc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1433 ldd <$17,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1434 bne L0832
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1435 ldb $07,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1436 stb <$12,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1437 comb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1438 bra L0861
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1439 L0832 ldu <D.ModDir
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1440 ldx <$11,s
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 leau -MD$ESize,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1443 L083C leau MD$ESize,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1444 cmpu <D.ModEnd
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1445 bcs L084B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1446 comb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1447 ldb #E$MNF
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1448 stb <$12,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1449 bra L0861
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1450 L084B cmpx MD$MPtr,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1451 bne L083C
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1452 cmpd [MD$MPDAT,u]
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1453 bne L083C
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1454 ldd MD$Link,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1455 beq L085D
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1456 subd #$0001
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1457 std MD$Link,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1458 L085D stu <$17,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1459 clrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1460 L0861 leas <$11,s
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1461 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
1462
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1463 L0866 pshs y,x,b,a
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1464 addd $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1465 std $04,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1466 cmpd $08,s
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1467 bls L08C2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1468 addd #$1FFF
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1469 lsra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1470 lsra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1471 lsra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1472 lsra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1473 lsra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1474 cmpa #$07
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1475 bhi L08A4
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1476 ldb $08,s
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1477 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1478 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1479 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1480 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1481 lsrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1482 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1483 subr b,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1484 lslb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1485 exg b,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1486 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1487 pshs b
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1488 exg b,a
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1489 subb ,s+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1490 lsla
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1491 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1492 ldu <$1D,s
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1493 leau <P$DATImg,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1494 leau a,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1495 clra
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1496 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1497 tfr b,f
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1498 ELSE
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1499 tfr d,x
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1500 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1501 ldy <D.BlkMap
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1502 clrb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1503 L0899 tst ,y+
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1504 beq L08A9
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1505 L089D equ *
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1506 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1507 incd
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1508 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1509 addd #$0001
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1510 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1511 cmpy <D.BlkMap+2
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1512 bne L0899
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1513 L08A4 comb
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1514 ldb #E$MemFul
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1515 bra L08CC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1516 L08A9 inc -$01,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1517 std ,u++
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1518 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1519 lde $08,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1520 adde #$20
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1521 ste $08,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1522 decf
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1523 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1524 pshs a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1525 lda $09,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1526 adda #$20
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1527 sta $09,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1528 puls a
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1529 leax -1,x
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1530 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1531 bne L089D
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1532 ldx <$1D,s
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1533 os9 F$SetTsk
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1534 bcs L08CC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1535 L08C2 lda $0E,s
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1536 ldx $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1537 ldy ,s
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1538 os9 I$Read
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1539 L08CC leas $04,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1540 puls pc,x
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1541
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1542 ********************************
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1543 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1544 * F$PErr System call entry point
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1545 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1546 * Entry: U = Register stack pointer
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1547 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1548
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1549 ErrHead fcc /ERROR #/
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1550 ErrNum equ *-ErrHead
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1551 fcb $2F,$3A,$30
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1552 fcb C$CR
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1553 ErrMessL equ *-ErrHead
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1554
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1555 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
1556 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
1557 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
1558 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
1559 * copy error message to stack
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1560 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
1561 leay ,s point to buffer
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1562 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
1563 sta ,y+ store a byte
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1564 cmpa #C$CR done?
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1565 bne L08E9 no, keep going
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1566 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
1567 * Convert error code to decimal
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1568 L08F3 inc ErrNum+0,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1569 subb #$64
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1570 bcc L08F3
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1571 L08F9 dec ErrNum+1,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1572 addb #$0A
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1573 bcc L08F9
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1574 addb #$30
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1575 stb ErrNum+2,s
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1576 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
1577 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
1578 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
1579 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
1580 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
1581 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
1582 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
1583 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
1584 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
1585 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
1586 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
1587 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
1588 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
1589 L0922 rts return
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1590
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1591 FIOQu
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1592 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1593 lde R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1594 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1595 FIOQu2
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1596 ldy <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1597 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1598 clrf
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1599 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1600 L092B lda <P$IOQN,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1601 beq L094F
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1602 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1603 cmpr e,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1604 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1605 cmpa R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1606 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1607 bne L094A
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1608 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1609 stf <P$IOQN,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1610 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1611 clr <P$IOQN,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1612 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1613 os9 F$GProcP
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1614 bcs L09B1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1615 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1616 stf P$IOQP,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1617 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1618 clr P$IOQP,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1619 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1620 ldb #S$Wake
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1621 os9 F$Send
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1622 ldu <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1623 bra L0958
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1624 L094A os9 F$GProcP
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1625 bcc L092B
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1626 L094F
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1627 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1628 tfr e,a
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1629 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1630 lda R$A,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1631 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1632 ldu <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1633 os9 F$GProcP
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1634 bcs L09B1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1635 L0958 leax ,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1636 lda <P$IOQN,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1637 beq L097A
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1638 os9 F$GProcP
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1639 bcs L09B1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1640 ldb P$Age,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1641 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
1642 bls L0958
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1643 ldb ,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1644 stb <P$IOQN,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1645 ldb ,x
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1646 stb P$IOQP,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1647 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1648 stf P$IOQP,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1649 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1650 clr P$IOQP,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1651 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1652 exg y,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1653 bra L0958
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1654 L097A lda ,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1655 sta <P$IOQN,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1656 lda ,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1657 sta P$IOQP,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1658 ldx #$0000
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1659 os9 F$Sleep
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1660 ldu <D.Proc
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1661 lda P$IOQP,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1662 beq L09B1
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1663 os9 F$GProcP
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1664 bcs L09AE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1665 lda <P$IOQN,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1666 beq L09AE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1667 lda <P$IOQN,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1668 sta <P$IOQN,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1669 beq L09AE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1670 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1671 stf <P$IOQN,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1672 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1673 clr <P$IOQN,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1674 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1675 os9 F$GProcP
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1676 bcs L09AE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1677 lda P$IOQP,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1678 sta P$IOQP,y
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1679 L09AE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1680 IFNE H6309
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1681 stf P$IOQP,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1682 ELSE
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1683 clr P$IOQP,u
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1684 ENDC
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1685 L09B1 rts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1686
704
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1687 emod
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1688 eom equ *
671274e822df Integrated NitrOS-9 IOMan with OS-9 Level Two. Note that DEVSIZ and
boisy
parents: 372
diff changeset
1689 end
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1690