Mercurial > hg > Members > kono > nitros9-code

annotate level1/modules/dwcheck.asm @ 2879:531841047512 lwtools-port

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
boot_scsi.asm: Fix SCSI ID when booting from SCSI Due to a typo it would probe for SCSI ID 4 instead of default 0 (or 8 for HDBDOS/SuperDriver).
author Tormod Volden <debian.tormod@gmail.com>
date Sun, 24 Nov 2013 16:08:53 +0100
parents 660cc987e18d
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2180
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
1 IFNE 1
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
2
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
3 * Checksum routine - D returns as the sum of all bytes of the sector
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
4 * Entry: X = address of sector
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
5 * Exit : D = checksum value
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
6 DoCSum equ *
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
7 clr ,-s
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
8 clra
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
9 clrb
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
10 c2@ addb ,x+
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
11 adca #0
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
12 dec ,s
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
13 bne c2@
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
14 leas 1,s
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
15 * exg a,b do endian conversion to match Server's checksum
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
16 rts
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
17
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
18
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
19 * Weak but fast CRC Computation Routine
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
20 * Entry: X = address of sector
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
21 * Exit : D = crc value
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
22 *DoCRC equ *
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
23 * IFNE H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
24 * clrd
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
25 * clre
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
26 *CRC2 eord ,x++
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
27 * ince
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
28 * bpl CRC2
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
29 * ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
30 * clr ,-s
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
31 * clra
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
32 * clrb
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
33 *CRC2 eora ,x+
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
34 * eorb ,x+
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
35 * inc ,s
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
36 * bpl CRC2
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
37 * leas 1,s
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
38 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
39 * exg a,b do endian conversion to match PC's CRC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
40 * rts
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
41
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
42
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
43 ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
44
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
45 * CCITT CRC-16 Computation Routine
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
46 *
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
47 * Provided by Tim Lindner - 02/12/2003
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
48 *
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
49 * Entry: X = address of sector
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
50 * Exit : D = crc value
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
51 *CRC16 equ *
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
52 * IFNE H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
53 * clrd
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
54 * clre
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
55 * ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
56 * clra
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
57 * clrb
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
58 * pshs b save as counter of 256 bytes
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
59 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
60 *CRCLP eora ,x+
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
61 * IFNE H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
62 * lsld
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
63 * ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
64 * lslb
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
65 * rola
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
66 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
67 * bcc CRCLp0
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
68 * IFNE H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
69 * eord #$1021
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
70 * ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
71 * eora #$10
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
72 * eorb #$21
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
73 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
74 *CRCLp0 equ *
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
75 * IFNE H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
76 * lsld
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
77 * ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
78 * lslb
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
79 * rola
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
80 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
81 * bcc CRCLp1
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
82 * IFNE H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
83 * eord #$1021
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
84 * ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
85 * eora #$10
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
86 * eorb #$21
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
87 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
88 *CRCLp1 equ *
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
89 * IFNE H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
90 * lsld
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
91 * ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
92 * lslb
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
93 * rola
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
94 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
95 * bcc CRCLp2
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
96 * IFNE H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
97 * eord #$1021
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
98 * ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
99 * eora #$10
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
100 * eorb #$21
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
101 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
102 *CRCLp2 equ *
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
103 * IFNE H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
104 * lsld
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
105 * ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
106 * lslb
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
107 * rola
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
108 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
109 * bcc CRCLp3
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
110 * IFNE H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
111 * eord #$1021
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
112 * ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
113 * eora #$10
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
114 * eorb #$21
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
115 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
116 *CRCLp3 equ *
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
117 * IFNE H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
118 * lsld
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
119 * ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
120 * lslb
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
121 * rola
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
122 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
123 * bcc CRCLp4
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
124 ** IFNE H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
125 ** eord #$1021
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
126 * ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
127 * eora #$10
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
128 * eorb #$21
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
129 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
130 *CRCLp4 equ *
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
131 * IFNE H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
132 * lsld
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
133 * ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
134 * lslb
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
135 * rola
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
136 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
137 * bcc CRCLp5
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
138 * IFNE H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
139 * eord #$1021
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
140 * ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
141 * eora #$10
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
142 * eorb #$21
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
143 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
144 *CRCLp5 equ *
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
145 * IFNE H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
146 * lsld
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
147 * ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
148 * lslb
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
149 * rola
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
150 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
151 * bcc CRCLp6
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
152 * IFNE H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
153 * eord #$1021
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
154 * ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
155 * eora #$10
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
156 * eorb #$21
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
157 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
158 *CRCLp6 equ *
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
159 * IFNE H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
160 * lsld
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
161 * ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
162 * lslb
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
163 * rola
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
164 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
165 * bcc CRCLp7
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
166 * IFNE H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
167 * eord #$1021
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
168 * ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
169 * eora #$10
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
170 * eorb #$21
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
171 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
172 *CRCLp7 equ *
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
173 * IFNE H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
174 * dece
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
175 * ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
176 * dec ,s
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
177 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
178 * bne CRCLp
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
179 * IFEQ H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
180 * leas 1,s eat counter on stack
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
181 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
182 * rts
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
183 *
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
184 * ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
185 *
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
186
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
187 * calculate CCITT CRC 16
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
188 * input: X - Address of block
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
189 * Block is assumed to be 256 bytes
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
190 * output: D - 16 bit CRC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
191 * uses: X, D, CC, and two bytes of stack
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
192
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
193 DoCRC equ *
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
194 IFNE H6309
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
195
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
196 clre
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
197 clrd
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
198 nextbyte ldf #8
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
199 eora ,x+
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
200 nextbit lsld
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
201 bcc loop
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
202 eord #$1021
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
203 loop decf
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
204 bne nextbit
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
205 dece
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
206 bne nextbyte
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
207 rts
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
208
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
209 ELSE
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
210
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
211 clra
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
212 clrb
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
213 pshs y,b
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
214 nextbyte ldy #8
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
215 eora ,x+
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
216 nextbit lslb
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
217 rola
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
218 bcc loop
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
219 eora #$10
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
220 eorb #$21
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
221 loop leay -1,y
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
222 bne nextbit
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
223 dec ,s
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
224 bne nextbyte
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
225 leas 1,s
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
226 puls y,pc
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
227
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
228 ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
229 ENDC
660cc987e18d Added DriveWire 3 modules to distribution
boisy
parents:
diff changeset
230