Mercurial > hg > Members > kono > nitros9-code

annotate level1/modules/dwcheck.asm @ 3277:33d539c123cf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
d64: Add mb.ddisk script for making Dragon boot floppy At least it works in XRoar when running off a 80d floppy and preparing a new 40d boot floppy in the second drive. The "format" must be run manually for now since there is not enough memory to run it from inside the script...
author Tormod Volden <debian.tormod@gmail.com>
date Sat, 07 Mar 2020 23:15:05 +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