annotate level2/modules/joydrv_6551M.asm @ 1834:87865128c951

Added defines for bit 2 of IT.DNS, which is track 0 density flag for format
author afra
date Tue, 31 May 2005 15:19:07 +0000 (2005-05-31)
parents 205b4fbc08cd
children 7a973074acbe
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
2 * JoyDrv - Joystick Driver for 6551/Microsoft Mouse
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 *
1263
205b4fbc08cd Fixed comments, revs to zero
boisy
parents: 0
diff changeset
6 * Edt/Rev YYYY/MM/DD Modified by
205b4fbc08cd Fixed comments, revs to zero
boisy
parents: 0
diff changeset
7 * Comment
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
8 * ------------------------------------------------------------------
1263
205b4fbc08cd Fixed comments, revs to zero
boisy
parents: 0
diff changeset
9 * 6 1988/??/??
205b4fbc08cd Fixed comments, revs to zero
boisy
parents: 0
diff changeset
10 * L2 Upgrade distribution version.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12 nam JoyDrv
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
13 ttl Joystick Driver for 6551/Microsoft Mouse
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15 * Disassembled 98/09/09 09:50:25 by Disasm v1.6 (C) 1988 by RML
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 MPI set 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19 ifp1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 use defsfile
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 endc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23 tylg set Systm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24 atrv set ReEnt+rev
1263
205b4fbc08cd Fixed comments, revs to zero
boisy
parents: 0
diff changeset
25 rev set $00
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26 edition set 6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
27
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28 mod eom,name,tylg,atrv,start,size
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30 u0000 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
31 u0002 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32 u0003 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 u0005 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34 u0006 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 u0007 rmb 8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 u000F rmb 113
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
37 u0080 rmb 18
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38 u0092 rmb 21
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 u00A7 rmb 65217
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 size equ .
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
42 name fcs /JoyDrv/
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
43 fcb edition
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
44
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
45 start lbra Init
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
46 lbra Term
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
47 lbra SSMsBtn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
48 lbra SSMsXY
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
49 lbra SSJoyBtn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
50
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
51 SSJoyXY pshs x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
52 ldx #PIA0Base
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
53 lda <$23,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
54 ldb <$20,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
55 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
56 anda #$F7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
57 sta <$23,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
58 lda $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
59 ldb $03,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
60 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
61 andb #$F7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
62 lsr $04,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
63 bcs L0043
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
64 orb #$08
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
65 L0043 stb $03,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
66 lda ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
67 ora #$08
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
68 bsr L0065
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
69 std $06,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
70 lda ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
71 anda #$F7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
72 bsr L0065
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
73 std $04,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
74 puls b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
75 sta $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
76 stb $03,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
77 puls b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
78 stb <$20,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
79 sta <$23,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
80 puls pc,y,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
81 L0065 sta $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
82 lda #$7F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
83 ldb #$40
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
84 bra L0078
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
85 L006D lsrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
86 cmpb #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
87 bhi L0078
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
88 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
89 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
90 tfr a,b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
91 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
92 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
93 L0078 pshs b
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
94 sta <$20,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
95 tst ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
96 bpl L0085
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
97 adda ,s+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
98 bra L006D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
99 L0085 suba ,s+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
100 bra L006D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
101 L0089 fcb $00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
102 L008A fcb $0f,$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
103
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
104 Init fcb $cc,$00,$07
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
105
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
106 L008F fcb $a7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
107 bitb #$5A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
108 bpl L008F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
109 ldd >M$Mem,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
110 addd #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
111 leax >L0089,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
112 leay >L0152,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
113 os9 F$IRQ
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
114 bcs L00F7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
115 ldx >M$Mem,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
116 ldd #$0938
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
117 pshs cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
118 orcc #IntMasks
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
119 sta $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
120 std $02,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
121 lda >PIA1Base+3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
122 anda #$FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
123 sta >PIA1Base+3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
124 lda >PIA1Base+2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
125 lda #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
126 ora <u0092
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
127 sta <u0092
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
128 sta >IrqEnR
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
129 ldb ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
130 ldb $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
131 ldb ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
132 ldb $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
133 andb >L008A,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
134 bne L00DF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
135
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
136 ifeq MPI-1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
137 lda #$03
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
138 sta MPI.Slct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
139 endc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
140
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
141 puls pc,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
142
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
143 Term pshs cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
144 orcc #IntMasks
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
145 L00DF ldx >M$Mem,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
146 lda #$0B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
147 sta $02,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
148 puls cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
149 leax $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
150 tfr x,d
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
151 ldx #$0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
152 leay >L0152,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
153 os9 F$IRQ
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
154 L00F7 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
155
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
156 SSJoyBtn ldb #$FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
157 ldx #PIA0Base
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
158 stb $02,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
159 ldb ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
160 comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
161 andb #$0F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
162 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
163
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
164 SSMsBtn lda ,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
165 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
166 bita #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
167 beq L010E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
168 orb #$03
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
169 L010E bita #$10
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
170 beq L0114
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
171 orb #$0C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
172 L0114 tfr b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
173 anda #$FA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
174 pshs a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
175 andb #$05
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
176 orb u0007,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
177 leax <L0134,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
178 lda b,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
179 anda #$0A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
180 sta u0007,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
181 ldb b,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
182 andb #$85
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
183 bpl L0131
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
184 ldb u0002,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
185 andb #$C0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
186 L0131 orb ,s+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
187 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
188 L0134 fdb $0003,$0003,$0806,$0206,$8002,$0002,$0806,$0a06
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
189
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
190 SSMsXY pshs cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
191 orcc #IntMasks
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
192 ldx u0003,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
193 ldd u0005,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
194 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
195 rorb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
196 tfr d,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
197 puls pc,cc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
198 L0152 ldx >M$Mem,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
199 bita #$07
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
200 beq L0164
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
201 ldb ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
202 L015C lda u0002,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
203 anda #$FC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
204 L0160 sta u0002,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
205 L0162 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
206 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
207 L0164 bita #$08
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
208 beq L0162
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
209 ldb ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
210 lda u0002,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
211 anda #$03
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
212 bne L017A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
213 bitb #$40
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
214 beq L0162
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
215 L0174 stb a,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
216 inc u0002,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
217 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
218 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
219 L017A bitb #$40
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
220 bne L015C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
221 cmpa #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
222 bcs L0174
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
223 ldx #$017E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
224 pshs x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
225 lda ,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
226 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
227 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
228 leax u0005,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
229 bsr L01A9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
230 ldd ,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
231 ldx #$027F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
232 stx ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
233 leax u0003,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
234 bsr L01A9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
235 leas $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
236 lda #$80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
237 ldx u0003,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
238 cmpx #$0140
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
239 bcc L0160
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
240 ora #$C0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
241 bra L0160
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
242 L01A9 lslb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
243 lslb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
244 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
245 rorb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
246 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
247 rorb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
248 sex
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
249 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
250 bpl L01BB
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
251 orb #$07
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
252 addd #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
253 bra L01BD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
254 L01BB andb #$F8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
255 L01BD asra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
256 rorb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
257 addd ,s++
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
258 addd ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
259 bpl L01C7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
260 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
261 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
262 L01C7 cmpd $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
263 bls L01CE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
264 ldd $02,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
265 L01CE std ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
266 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
267
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
268 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
269 eom equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
270 end