Mercurial > hg > Members > kono > nitros9-code

annotate 3rdparty/drivers/flashpak/flashpak.asm @ 110:4e2459c8bf98

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated sources to edition 11, original Tandy version
author boisy
date Sat, 06 Jul 2002 16:12:33 +0000
parents 3f0f7b4e5111
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
52
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
1 ********************************************************************
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
2 * FlashPak - Cloud-9 Flash Pak device driver
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
3 *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
4 * $Id$
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
5 *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
7 * ------------------------------------------------------------------
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
8 * 1 Original version BGP 02/04/15
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
9
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
10 nam FlashPak
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
11 ttl Cloud-9 Flash Pak device driver
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
12
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
13 ifp1
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
14 use defsfile
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
15 endc
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
16
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
17 tylg set Drivr+Objct
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
18 atrv set ReEnt+rev
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
19 rev set $01
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
20 edition set 1
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
21
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
22 MSB set 0
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
23 LSB set 1
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
24 DATA set 2
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
25
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
26 mod eom,name,tylg,atrv,start,size
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
27
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
28 * RBF Data Area
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
29 rmb 129
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
30
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
31 * Free for driver use
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
32 size equ .
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
33
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
34 name fcs /FlashPak/
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
35 fcb edition
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
36
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
37 start lbra Init
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
38 lbra Read
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
39 lbra Write
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
40 lbra GetStat
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
41 lbra SetStat
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
42 lbra Term
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
43
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
44 * Init
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
45 *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
46 * Entry:
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
47 * Y = address of device descriptor
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
48 * U = address of device memory area
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
49 *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
50 * Exit:
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
51 * CC = carry set on error
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
52 * B = error code
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
53 *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
54 Init ldd #($FF*256)+1
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
55 stb V.NDRV,u
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
56 leax DRVBEG,u
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
57 * For each B, compute total sectors...
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
58 Init010 sta V.TRAK,x
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
59 pshs b,a
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
60 lda IT.CYL+1,y
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
61 ldb IT.SCT+1,y
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
62 mul
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
63 std DD.TOT+1,x
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
64 puls b,a
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
65 leax DRVMEM,x
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
66 decb
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
67 bne Init010
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
68 rts
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
69
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
70 * Write
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
71 *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
72 * Entry:
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
73 * B = MSB of the disk's LSN
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
74 * X = LSB of the disk's LSN
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
75 * Y = address of path descriptor
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
76 * U = address of device memory area
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
77 *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
78 * Exit:
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
79 * CC = carry set on error
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
80 * B = error code
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
81 *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
82 Write leas -1,s make room on the stack
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
83 ldy V.PORT,u
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
84 tfr x,d
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
85 sta MSB,y
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
86 stb LSB,y
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
87 ldx PD.BUF,y load X with address of path buffer
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
88 clrb
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
89 WritLoop lda ,x+
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
90 sta DATA,y
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
91 sta ,s
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
92 WritVfy lda DATA,y verify loop is here
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
93 cmpa ,s
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
94 bne WritVfy
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
95 incb
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
96 bne WritLoop
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
97 leas 1,s restore stack
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
98 rts
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
99
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
100 * Read
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
101 *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
102 * Entry:
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
103 * B = MSB of the disk's LSN
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
104 * X = LSB of the disk's LSN
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
105 * Y = address of path descriptor
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
106 * U = address of device memory area
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
107 *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
108 * Exit:
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
109 * CC = carry set on error
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
110 * B = error code
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
111 *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
112 Read cmpx #$0000
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
113 beq ReadLSN0
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
114
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
115 ReadSect ldy V.PORT,u
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
116 tfr x,d
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
117 sta MSB,y
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
118 stb LSB,y
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
119 ldx PD.BUF,y load X with address of path buffer
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
120 clrb
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
121 ReadLoop lda DATA,y
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
122 sta ,x+
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
123 incb
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
124 bne ReadLoop
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
125 rts
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
126
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
127
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
128 * Read LSN0 into our path descriptor
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
129 ReadLSN0 pshs y
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
130 bsr ReadSect
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
131 puls y
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
132 ldx PD.BUF,y
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
133 lda <PD.DRV,y
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
134 leay DRVBEG,u
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
135 ldb #DRVMEM
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
136 mul
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
137 leay d,y
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
138 ldb #DD.SIZ-1
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
139 LSN0Loop lda b,x
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
140 sta b,y
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
141 decb
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
142 bne LSN0Loop
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
143 rts
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
144
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
145
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
146 * GetStat
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
147 *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
148 * Entry:
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
149 * A = function code
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
150 * Y = address of path descriptor
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
151 * U = address of device memory area
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
152 *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
153 * Exit:
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
154 * CC = carry set on error
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
155 * B = error code
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
156 *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
157 GetStat comb
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
158 ldb #E$UnkSvc
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
159 rts
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
160
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
161 * SetStat
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
162 *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
163 * Entry:
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
164 * A = function code
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
165 * Y = address of path descriptor
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
166 * U = address of device memory area
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
167 *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
168 * Exit:
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
169 * CC = carry set on error
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
170 * B = error code
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
171 *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
172 SetStat
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
173
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
174 * Term
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
175 *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
176 * Entry:
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
177 * U = address of device memory area
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
178 *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
179 * Exit:
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
180 * CC = carry set on error
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
181 * B = error code
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
182 *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
183 Term clrb
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
184 rts
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
185
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
186 emod
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
187 eom equ *
3f0f7b4e5111 Added Cloud-9 FlashPak driver (untested, no hardware yet)
boisy
parents:
diff changeset
188 end