Mercurial > hg > Members > kono > nitros9-code

annotate level2/modules/ioman.asm @ 1347:89572d423498

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