1 | .globl _ebflag
|
---|
2 | .globl _ebuf
|
---|
3 | .globl _curfet
|
---|
4 | .globl _cfetp
|
---|
5 | .globl _infetp
|
---|
6 | .globl _io_time
|
---|
7 | .globl _io_lcd
|
---|
8 | .globl _io_ser
|
---|
9 | .globl _io_midi
|
---|
10 | .globl _io_disk
|
---|
11 | .globl _io_tone
|
---|
12 | .globl _io_leds
|
---|
13 | .globl _io_kbrd
|
---|
14 | .globl _lcd_a0
|
---|
15 | .globl _lcd_a1
|
---|
16 | .globl _io_vreg
|
---|
17 | .globl _io_vraw
|
---|
18 | .globl _io_vram
|
---|
19 | .globl _io_fpu
|
---|
20 | .globl _v_regs
|
---|
21 | .globl _v_odtab
|
---|
22 | .globl _v_actab
|
---|
23 | .globl _v_ct0
|
---|
24 | .globl _v_gt1
|
---|
25 | .globl _v_score
|
---|
26 | .globl _v_cgtab
|
---|
27 | .globl _v_curs0
|
---|
28 | .globl _v_curs1
|
---|
29 | .globl _v_curs2
|
---|
30 | .globl _v_curs3
|
---|
31 | .globl _v_curs4
|
---|
32 | .globl _v_curs5
|
---|
33 | .globl _v_curs6
|
---|
34 | .globl _v_curs7
|
---|
35 | .globl _v_tcur
|
---|
36 | .globl _v_kbobj
|
---|
37 | .globl _v_lnobj
|
---|
38 | .globl _v_win0
|
---|
39 | .globl _v_cur
|
---|
40 | .globl _fc_sw
|
---|
41 | .globl _fc_val
|
---|
42 | .globl _astat
|
---|
43 | .globl _cmtype
|
---|
44 | .globl _curfunc
|
---|
45 | .globl _curinst
|
---|
46 | .globl _curslim
|
---|
47 | .globl _curvce
|
---|
48 | .globl _curwave
|
---|
49 | .globl _curwdth
|
---|
50 | .globl _curwfnl
|
---|
51 | .globl _curwhrm
|
---|
52 | .globl _curwhrv
|
---|
53 | .globl _curwoff
|
---|
54 | .globl _curwpnt
|
---|
55 | .globl _curwslt
|
---|
56 | .globl _cxrate
|
---|
57 | .globl _cxval
|
---|
58 | .globl _cyrate
|
---|
59 | .globl _cyval
|
---|
60 | .globl _hitbox
|
---|
61 | .globl _lstwoff
|
---|
62 | .globl _lstwpnt
|
---|
63 | .globl _stccol
|
---|
64 | .globl _stcrow
|
---|
65 | .globl _wdupdfl
|
---|
66 | .globl _wplast
|
---|
67 | .globl _wpntsv
|
---|
68 | .globl _wvlast
|
---|
69 | .globl _crate1
|
---|
70 | .globl _offsets
|
---|
71 | .globl _vmtab
|
---|
72 | .globl _wsbuf
|
---|
73 | .globl _wsnmod
|
---|
74 | .globl _waveob
|
---|
75 | .globl _bfs
|
---|
76 | .globl _vbufs
|
---|
77 | .globl _csbp
|
---|
78 | .globl _wdboxes
|
---|
79 | .globl _wdcurtb
|
---|
80 | .data
|
---|
81 | _wdcurtb:
|
---|
82 | .dc.w $7FFF
|
---|
83 | .dc.w $7FFB
|
---|
84 | .dc.w $7FEC
|
---|
85 | .dc.w $7FD3
|
---|
86 | .dc.w $7FB1
|
---|
87 | .dc.w $7F84
|
---|
88 | .dc.w $7F4E
|
---|
89 | .dc.w $7F0E
|
---|
90 | .dc.w $7EC5
|
---|
91 | .dc.w $7E71
|
---|
92 | .dc.w $7E15
|
---|
93 | .dc.w $7DAE
|
---|
94 | .dc.w $7D3E
|
---|
95 | .dc.w $7CC5
|
---|
96 | .dc.w $7C42
|
---|
97 | .dc.w $7BB6
|
---|
98 | .dc.w $7B20
|
---|
99 | .dc.w $7A82
|
---|
100 | .dc.w $79DB
|
---|
101 | .dc.w $792A
|
---|
102 | .dc.w $7871
|
---|
103 | .dc.w $77AF
|
---|
104 | .dc.w $76E5
|
---|
105 | .dc.w $7612
|
---|
106 | .dc.w $7536
|
---|
107 | .dc.w $7453
|
---|
108 | .dc.w $7367
|
---|
109 | .dc.w $7274
|
---|
110 | .dc.w $7179
|
---|
111 | .dc.w $7076
|
---|
112 | .dc.w $6F6B
|
---|
113 | .dc.w $6E5A
|
---|
114 | .dc.w $6D41
|
---|
115 | .dc.w $6C21
|
---|
116 | .dc.w $6AFB
|
---|
117 | .dc.w $69CD
|
---|
118 | .dc.w $689A
|
---|
119 | .dc.w $6760
|
---|
120 | .dc.w $6620
|
---|
121 | .dc.w $64DA
|
---|
122 | .dc.w $638E
|
---|
123 | .dc.w $623D
|
---|
124 | .dc.w $60E7
|
---|
125 | .dc.w $5F8B
|
---|
126 | .dc.w $5E2B
|
---|
127 | .dc.w $5CC6
|
---|
128 | .dc.w $5B5D
|
---|
129 | .dc.w $59EF
|
---|
130 | .dc.w $587E
|
---|
131 | .dc.w $5708
|
---|
132 | .dc.w $558F
|
---|
133 | .dc.w $5413
|
---|
134 | .dc.w $5294
|
---|
135 | .dc.w $5112
|
---|
136 | .dc.w $4F8D
|
---|
137 | .dc.w $4E06
|
---|
138 | .dc.w $4C7C
|
---|
139 | .dc.w $4AF1
|
---|
140 | .dc.w $4964
|
---|
141 | .dc.w $47D5
|
---|
142 | .dc.w $4646
|
---|
143 | .dc.w $44B5
|
---|
144 | .dc.w $4324
|
---|
145 | .dc.w $4192
|
---|
146 | .dc.w $4000
|
---|
147 | .dc.w $3E6E
|
---|
148 | .dc.w $3CDC
|
---|
149 | .dc.w $3B4B
|
---|
150 | .dc.w $39BA
|
---|
151 | .dc.w $382A
|
---|
152 | .dc.w $369C
|
---|
153 | .dc.w $350F
|
---|
154 | .dc.w $3383
|
---|
155 | .dc.w $31FA
|
---|
156 | .dc.w $3073
|
---|
157 | .dc.w $2EEE
|
---|
158 | .dc.w $2D6C
|
---|
159 | .dc.w $2BEC
|
---|
160 | .dc.w $2A70
|
---|
161 | .dc.w $28F7
|
---|
162 | .dc.w $2782
|
---|
163 | .dc.w $2610
|
---|
164 | .dc.w $24A3
|
---|
165 | .dc.w $2339
|
---|
166 | .dc.w $21D4
|
---|
167 | .dc.w $2074
|
---|
168 | .dc.w $1F19
|
---|
169 | .dc.w $1DC2
|
---|
170 | .dc.w $1C71
|
---|
171 | .dc.w $1B26
|
---|
172 | .dc.w $19E0
|
---|
173 | .dc.w $18A0
|
---|
174 | .dc.w $1766
|
---|
175 | .dc.w $1632
|
---|
176 | .dc.w $1505
|
---|
177 | .dc.w $13DE
|
---|
178 | .dc.w $12BE
|
---|
179 | .dc.w $11A6
|
---|
180 | .dc.w $1094
|
---|
181 | .dc.w $F8A
|
---|
182 | .dc.w $E87
|
---|
183 | .dc.w $D8B
|
---|
184 | .dc.w $C98
|
---|
185 | .dc.w $BAC
|
---|
186 | .dc.w $AC9
|
---|
187 | .dc.w $9EE
|
---|
188 | .dc.w $91B
|
---|
189 | .dc.w $850
|
---|
190 | .dc.w $78E
|
---|
191 | .dc.w $6D5
|
---|
192 | .dc.w $625
|
---|
193 | .dc.w $57D
|
---|
194 | .dc.w $4DF
|
---|
195 | .dc.w $449
|
---|
196 | .dc.w $3BD
|
---|
197 | .dc.w $33B
|
---|
198 | .dc.w $2C1
|
---|
199 | .dc.w $251
|
---|
200 | .dc.w $1EB
|
---|
201 | .dc.w $18E
|
---|
202 | .dc.w $13A
|
---|
203 | .dc.w $F1
|
---|
204 | .dc.w $B1
|
---|
205 | .dc.w $7B
|
---|
206 | .dc.w $4E
|
---|
207 | .dc.w $2C
|
---|
208 | .dc.w $13
|
---|
209 | .dc.w $4
|
---|
210 | .globl _wdcurct
|
---|
211 | .data
|
---|
212 | _wdcurct:
|
---|
213 | .dc.w $1
|
---|
214 | .dc.w $80
|
---|
215 | .dc.w $2
|
---|
216 | .dc.w $40
|
---|
217 | .dc.w $4
|
---|
218 | .dc.w $20
|
---|
219 | .dc.w $8
|
---|
220 | .dc.w $10
|
---|
221 | .dc.w $10
|
---|
222 | .dc.w $8
|
---|
223 | .dc.w $20
|
---|
224 | .dc.w $4
|
---|
225 | .dc.w $40
|
---|
226 | .dc.w $2
|
---|
227 | .dc.w $80
|
---|
228 | .dc.w $1
|
---|
229 | .globl _wxrate
|
---|
230 | .data
|
---|
231 | _wxrate:
|
---|
232 | .dc.w $1
|
---|
233 | .globl _wd_fet1
|
---|
234 | .data
|
---|
235 | _wd_fet1:
|
---|
236 | .dc.w $17
|
---|
237 | .dc.w $A
|
---|
238 | .dc.w $B
|
---|
239 | .dc.w $2
|
---|
240 | *line 106
|
---|
241 | .dc.l _et_wavs
|
---|
242 | *line 106
|
---|
243 | .dc.l _ef_wavs
|
---|
244 | *line 106
|
---|
245 | .dc.l _rd_wavs
|
---|
246 | *line 106
|
---|
247 | .dc.l _nd_wavs
|
---|
248 | .dc.w $17
|
---|
249 | .dc.w $13
|
---|
250 | .dc.w $14
|
---|
251 | .dc.w $102
|
---|
252 | *line 107
|
---|
253 | .dc.l _et_wvce
|
---|
254 | *line 107
|
---|
255 | .dc.l _ef_wvce
|
---|
256 | *line 107
|
---|
257 | .dc.l _rd_wvce
|
---|
258 | *line 107
|
---|
259 | .dc.l _nd_wvce
|
---|
260 | .dc.w $17
|
---|
261 | .dc.w $22
|
---|
262 | .dc.w $24
|
---|
263 | .dc.w $4
|
---|
264 | *line 108
|
---|
265 | .dc.l _et_wpnt
|
---|
266 | *line 108
|
---|
267 | .dc.l _ef_wpnt
|
---|
268 | *line 108
|
---|
269 | .dc.l _rd_wpnt
|
---|
270 | *line 108
|
---|
271 | .dc.l _nd_wpnt
|
---|
272 | .dc.w $17
|
---|
273 | .dc.w $2C
|
---|
274 | .dc.w $30
|
---|
275 | .dc.w $104
|
---|
276 | *line 109
|
---|
277 | .dc.l _et_woff
|
---|
278 | *line 109
|
---|
279 | .dc.l _ef_woff
|
---|
280 | *line 109
|
---|
281 | .dc.l _rd_woff
|
---|
282 | *line 109
|
---|
283 | .dc.l _nd_woff
|
---|
284 | .dc.w $17
|
---|
285 | .dc.w $3D
|
---|
286 | .dc.w $3E
|
---|
287 | .dc.w $5
|
---|
288 | *line 110
|
---|
289 | .dc.l _et_whar
|
---|
290 | *line 110
|
---|
291 | .dc.l _ef_whar
|
---|
292 | *line 110
|
---|
293 | .dc.l _rd_whar
|
---|
294 | *line 110
|
---|
295 | .dc.l _nd_whar
|
---|
296 | .dc.w $18
|
---|
297 | .dc.w $14
|
---|
298 | .dc.w $14
|
---|
299 | .dc.w $302
|
---|
300 | *line 112
|
---|
301 | .dc.l _et_wslt
|
---|
302 | *line 112
|
---|
303 | .dc.l _ef_wslt
|
---|
304 | *line 112
|
---|
305 | .dc.l _rd_wslt
|
---|
306 | *line 112
|
---|
307 | .dc.l _nd_wslt
|
---|
308 | .dc.w $18
|
---|
309 | .dc.w $39
|
---|
310 | .dc.w $3C
|
---|
311 | .dc.w $105
|
---|
312 | *line 113
|
---|
313 | .dc.l _et_whrv
|
---|
314 | *line 113
|
---|
315 | .dc.l _ef_whrv
|
---|
316 | *line 113
|
---|
317 | .dc.l _rd_whrv
|
---|
318 | *line 113
|
---|
319 | .dc.l _nd_whrv
|
---|
320 | .dc.w $0
|
---|
321 | .dc.w $0
|
---|
322 | .dc.w $0
|
---|
323 | .dc.w $0
|
---|
324 | .dc.l $0
|
---|
325 | .dc.l $0
|
---|
326 | .dc.l $0
|
---|
327 | .dc.l $0
|
---|
328 | .globl _wdbox
|
---|
329 | .data
|
---|
330 | _wdbox:
|
---|
331 | .dc.w $1
|
---|
332 | .dc.w $1
|
---|
333 | .dc.w $1FE
|
---|
334 | .dc.w $133
|
---|
335 | .dc.w $B
|
---|
336 | .dc.w $3
|
---|
337 | .dc.w $0
|
---|
338 | .dc.w $1
|
---|
339 | .dc.w $1
|
---|
340 | .dc.w $135
|
---|
341 | .dc.w $1FE
|
---|
342 | .dc.w $140
|
---|
343 | .dc.w $B
|
---|
344 | .dc.w $4
|
---|
345 | .dc.w $16
|
---|
346 | .dc.w $0
|
---|
347 | .dc.w $1
|
---|
348 | .dc.w $142
|
---|
349 | .dc.w $AE
|
---|
350 | .dc.w $15C
|
---|
351 | .dc.w $B
|
---|
352 | .dc.w $5
|
---|
353 | .dc.w $17
|
---|
354 | .dc.w $1
|
---|
355 | .dc.w $B0
|
---|
356 | .dc.w $142
|
---|
357 | .dc.w $E6
|
---|
358 | .dc.w $15C
|
---|
359 | .dc.w $B
|
---|
360 | .dc.w $E
|
---|
361 | .dc.w $17
|
---|
362 | .dc.w $17
|
---|
363 | .dc.w $E8
|
---|
364 | .dc.w $142
|
---|
365 | .dc.w $18E
|
---|
366 | .dc.w $15C
|
---|
367 | .dc.w $B
|
---|
368 | .dc.w $5
|
---|
369 | .dc.w $17
|
---|
370 | .dc.w $1E
|
---|
371 | .dc.w $190
|
---|
372 | .dc.w $142
|
---|
373 | .dc.w $1FE
|
---|
374 | .dc.w $15C
|
---|
375 | .dc.w $B
|
---|
376 | .dc.w $E
|
---|
377 | .dc.w $17
|
---|
378 | .dc.w $33
|
---|
379 | .globl _wdbxlb0
|
---|
380 | .data
|
---|
381 | _wdbxlb0:
|
---|
382 | *line 130
|
---|
383 | .dc.l L1
|
---|
384 | *line 134
|
---|
385 | .dc.l L2
|
---|
386 | *line 136
|
---|
387 | .dc.l L3
|
---|
388 | *line 137
|
---|
389 | .dc.l L4
|
---|
390 | *line 138
|
---|
391 | .dc.l L5
|
---|
392 | *line 140
|
---|
393 | .dc.l L6
|
---|
394 | .globl _wdbxlb1
|
---|
395 | .data
|
---|
396 | _wdbxlb1:
|
---|
397 | *line 144
|
---|
398 | .dc.l L7
|
---|
399 | *line 145
|
---|
400 | .dc.l L8
|
---|
401 | *line 146
|
---|
402 | .dc.l L9
|
---|
403 | *line 147
|
---|
404 | .dc.l L10
|
---|
405 | *line 148
|
---|
406 | .dc.l L11
|
---|
407 | *line 150
|
---|
408 | .dc.l L12
|
---|
409 | .globl _wd_flds
|
---|
410 | .data
|
---|
411 | _wd_flds:
|
---|
412 | *line 157
|
---|
413 | .dc.l _stdctp1
|
---|
414 | *line 158
|
---|
415 | .dc.l _nokey
|
---|
416 | *line 159
|
---|
417 | .dc.l _nokey
|
---|
418 | *line 160
|
---|
419 | .dc.l _cxkstd
|
---|
420 | *line 161
|
---|
421 | .dc.l _cykstd
|
---|
422 | *line 162
|
---|
423 | .dc.l _wdcxupd
|
---|
424 | *line 163
|
---|
425 | .dc.l _wdcyupd
|
---|
426 | *line 164
|
---|
427 | .dc.l _wdykup
|
---|
428 | *line 165
|
---|
429 | .dc.l _wdykdn
|
---|
430 | *line 166
|
---|
431 | .dc.l _wdxkey
|
---|
432 | *line 167
|
---|
433 | .dc.l _select
|
---|
434 | *line 168
|
---|
435 | .dc.l _stdmkey
|
---|
436 | *line 169
|
---|
437 | .dc.l _stddkey
|
---|
438 | *line 170
|
---|
439 | .dc.l _wdnfld
|
---|
440 | *line 171
|
---|
441 | .dc.l _wd_fet1
|
---|
442 | *line 172
|
---|
443 | .dc.l _wdboxes
|
---|
444 | *line 173
|
---|
445 | .dc.l _crate1
|
---|
446 | *line 174
|
---|
447 | .dc.l _crate1
|
---|
448 | .dc.w $0
|
---|
449 | .dc.w $100
|
---|
450 | .dc.w $80
|
---|
451 | .globl _updfpu
|
---|
452 | .text
|
---|
453 | _updfpu:
|
---|
454 | ~~updfpu:
|
---|
455 | link R14,#0
|
---|
456 | movem.l R6-R7/R12-R13,-(sp)
|
---|
457 | ~i=R7
|
---|
458 | ~wsp1=R13
|
---|
459 | ~wsp2=R12
|
---|
460 | *line 196
|
---|
461 | move _curvce,R0
|
---|
462 | move #9,R1
|
---|
463 | asl R1,R0
|
---|
464 | asl #1,R0
|
---|
465 | ext.l R0
|
---|
466 | move.l R0,R13
|
---|
467 | tst _curwslt
|
---|
468 | beq L10000
|
---|
469 | clr R0
|
---|
470 | bra L10002
|
---|
471 | L10000:move #256,R0
|
---|
472 | L10002:asl #1,R0
|
---|
473 | ext.l R0
|
---|
474 | add.l R0,R13
|
---|
475 | add.l #_io_fpu,R13
|
---|
476 | add.l #$2,R13
|
---|
477 | *line 197
|
---|
478 | tst _curwslt
|
---|
479 | beq L10003
|
---|
480 | move _curvce,R0
|
---|
481 | muls #3938,R0
|
---|
482 | add.l #_vbufs,R0
|
---|
483 | add.l #2858,R0
|
---|
484 | bra L10005
|
---|
485 | L10003:move _curvce,R0
|
---|
486 | muls #3938,R0
|
---|
487 | add.l #_vbufs,R0
|
---|
488 | add.l #1778,R0
|
---|
489 | L10005:move.l R0,R12
|
---|
490 | *line 199
|
---|
491 | move #254,(sp)
|
---|
492 | move.l R12,-(sp)
|
---|
493 | move.l R13,-(sp)
|
---|
494 | jsr _memcpyw
|
---|
495 | addq.l #8,sp
|
---|
496 | *line 203
|
---|
497 | move -2(R12),-2(R13)
|
---|
498 | *line 204
|
---|
499 | move 506(R12),508(R13)
|
---|
500 | *line 210
|
---|
501 | move #254,(sp)
|
---|
502 | move.l R12,-(sp)
|
---|
503 | move.l R13,-(sp)
|
---|
504 | jsr _memcpyw
|
---|
505 | addq.l #8,sp
|
---|
506 | *line 212
|
---|
507 | move -2(R12),-2(R13)
|
---|
508 | *line 213
|
---|
509 | move 506(R12),508(R13)
|
---|
510 | *line 216
|
---|
511 | move _curwpnt,R8
|
---|
512 | add.l R8,R8
|
---|
513 | move 0(R12,R8.l),R0
|
---|
514 | asr #5,R0
|
---|
515 | move R0,_curwfnl
|
---|
516 | L13:tst.l (sp)+
|
---|
517 | movem.l (sp)+,R7-R7/R12-R13
|
---|
518 | unlk R14
|
---|
519 | rts
|
---|
520 | .globl _wsupd
|
---|
521 | .text
|
---|
522 | _wsupd:
|
---|
523 | ~~wsupd:
|
---|
524 | link R14,#0
|
---|
525 | movem.l R6-R7/R12-R13,-(sp)
|
---|
526 | ~i=R7
|
---|
527 | ~wsp1=R13
|
---|
528 | ~wsp2=R12
|
---|
529 | *line 235
|
---|
530 | tst _curwslt
|
---|
531 | beq L10006
|
---|
532 | move _curvce,R0
|
---|
533 | muls #3938,R0
|
---|
534 | add.l #_vbufs,R0
|
---|
535 | add.l #3366,R0
|
---|
536 | bra L10008
|
---|
537 | L10006:move _curvce,R0
|
---|
538 | muls #3938,R0
|
---|
539 | add.l #_vbufs,R0
|
---|
540 | add.l #2286,R0
|
---|
541 | L10008:move.l R0,R12
|
---|
542 | *line 237
|
---|
543 | clr R7
|
---|
544 | bra L17
|
---|
545 | L18:
|
---|
546 | *line 238
|
---|
547 | move R7,R8
|
---|
548 | add.l R8,R8
|
---|
549 | move 0(R12,R8.l),R0
|
---|
550 | asr #5,R0
|
---|
551 | move R7,R9
|
---|
552 | add #1,R9
|
---|
553 | add.l R9,R9
|
---|
554 | add.l #_offsets,R9
|
---|
555 | move R0,(R9)
|
---|
556 | L16:
|
---|
557 | *line 237
|
---|
558 | add #1,R7
|
---|
559 | L17:
|
---|
560 | *line 237
|
---|
561 | cmp #254,R7
|
---|
562 | blt L18
|
---|
563 | L15:
|
---|
564 | *line 240
|
---|
565 | move 2+_offsets,_offsets
|
---|
566 | *line 242
|
---|
567 | jsr _wscalc
|
---|
568 | *line 246
|
---|
569 | tst _curwslt
|
---|
570 | beq L10009
|
---|
571 | move _curvce,R0
|
---|
572 | muls #3938,R0
|
---|
573 | add.l #_vbufs,R0
|
---|
574 | add.l #2858,R0
|
---|
575 | bra L10011
|
---|
576 | L10009:move _curvce,R0
|
---|
577 | muls #3938,R0
|
---|
578 | add.l #_vbufs,R0
|
---|
579 | add.l #1778,R0
|
---|
580 | L10011:move.l R0,R13
|
---|
581 | *line 248
|
---|
582 | clr R7
|
---|
583 | bra L21
|
---|
584 | L22:
|
---|
585 | *line 249
|
---|
586 | move R7,R8
|
---|
587 | add #1,R8
|
---|
588 | add.l R8,R8
|
---|
589 | move.l #_wsbuf,R9
|
---|
590 | move 0(R8,R9.l),R0
|
---|
591 | asl #5,R0
|
---|
592 | move.l R13,R9
|
---|
593 | move R7,R10
|
---|
594 | add.l R10,R10
|
---|
595 | add.l R10,R9
|
---|
596 | move R0,(R9)
|
---|
597 | L20:
|
---|
598 | *line 248
|
---|
599 | add #1,R7
|
---|
600 | L21:
|
---|
601 | *line 248
|
---|
602 | cmp #254,R7
|
---|
603 | blt L22
|
---|
604 | L19:
|
---|
605 | *line 251
|
---|
606 | jsr _updfpu
|
---|
607 | *line 252
|
---|
608 | move _curvce,R8
|
---|
609 | add.l R8,R8
|
---|
610 | add.l R8,R8
|
---|
611 | move _curwslt,R9
|
---|
612 | add.l R9,R9
|
---|
613 | add.l R9,R8
|
---|
614 | add.l #_wsnmod,R8
|
---|
615 | move #1,(R8)
|
---|
616 | L14:tst.l (sp)+
|
---|
617 | movem.l (sp)+,R7-R7/R12-R13
|
---|
618 | unlk R14
|
---|
619 | rts
|
---|
620 | .globl _whupd
|
---|
621 | .text
|
---|
622 | _whupd:
|
---|
623 | ~~whupd:
|
---|
624 | link R14,#0
|
---|
625 | movem.l R6-R7/R13-R13,-(sp)
|
---|
626 | ~i=R7
|
---|
627 | ~wsp1=R13
|
---|
628 | *line 268
|
---|
629 | tst _curwslt
|
---|
630 | beq L10012
|
---|
631 | move _curvce,R0
|
---|
632 | muls #3938,R0
|
---|
633 | add.l #_vbufs,R0
|
---|
634 | add.l #2858,R0
|
---|
635 | bra L10014
|
---|
636 | L10012:move _curvce,R0
|
---|
637 | muls #3938,R0
|
---|
638 | add.l #_vbufs,R0
|
---|
639 | add.l #1778,R0
|
---|
640 | L10014:move.l R0,R13
|
---|
641 | *line 270
|
---|
642 | clr R7
|
---|
643 | bra L26
|
---|
644 | L27:
|
---|
645 | *line 271
|
---|
646 | move R7,R8
|
---|
647 | add #1,R8
|
---|
648 | add.l R8,R8
|
---|
649 | move.l #_wsbuf,R9
|
---|
650 | move 0(R8,R9.l),R0
|
---|
651 | asl #5,R0
|
---|
652 | move.l R13,R9
|
---|
653 | move R7,R10
|
---|
654 | add.l R10,R10
|
---|
655 | add.l R10,R9
|
---|
656 | move R0,(R9)
|
---|
657 | L25:
|
---|
658 | *line 270
|
---|
659 | add #1,R7
|
---|
660 | L26:
|
---|
661 | *line 270
|
---|
662 | cmp #254,R7
|
---|
663 | blt L27
|
---|
664 | L24:
|
---|
665 | *line 273
|
---|
666 | jsr _updfpu
|
---|
667 | *line 274
|
---|
668 | move _curvce,R8
|
---|
669 | add.l R8,R8
|
---|
670 | add.l R8,R8
|
---|
671 | move _curwslt,R9
|
---|
672 | add.l R9,R9
|
---|
673 | add.l R9,R8
|
---|
674 | add.l #_wsnmod,R8
|
---|
675 | move #1,(R8)
|
---|
676 | L23:tst.l (sp)+
|
---|
677 | movem.l (sp)+,R7-R7/R13-R13
|
---|
678 | unlk R14
|
---|
679 | rts
|
---|
680 | .globl _pntsup
|
---|
681 | .text
|
---|
682 | _pntsup:
|
---|
683 | ~~pntsup:
|
---|
684 | link R14,#-8
|
---|
685 | movem.l R2-R7/R13-R13,-(sp)
|
---|
686 | ~ip=R13
|
---|
687 | ~ov=-4
|
---|
688 | ~i=R7
|
---|
689 | ~j=R6
|
---|
690 | ~k=R5
|
---|
691 | ~tv=R4
|
---|
692 | ~curdif=R3
|
---|
693 | ~cwnp=-6
|
---|
694 | ~cwin=-8
|
---|
695 | *line 293
|
---|
696 | move _curvce,R0
|
---|
697 | muls #3938,R0
|
---|
698 | move.l R0,R13
|
---|
699 | add.l #_vbufs,R13
|
---|
700 | *line 295
|
---|
701 | *line 296
|
---|
702 | tst _curwslt
|
---|
703 | beq L10015
|
---|
704 | move.l R13,R0
|
---|
705 | add.l #3366,R0
|
---|
706 | bra L10017
|
---|
707 | L10015:move.l R13,R0
|
---|
708 | add.l #2286,R0
|
---|
709 | L10017:move.l R0,-4(R14)
|
---|
710 | *line 298
|
---|
711 | move _curwdth,R8
|
---|
712 | add.l R8,R8
|
---|
713 | add.l R8,R8
|
---|
714 | add.l #_wdcurct,R8
|
---|
715 | move (R8),-6(R14)
|
---|
716 | *line 300
|
---|
717 | move _curwdth,R8
|
---|
718 | add.l R8,R8
|
---|
719 | add.l R8,R8
|
---|
720 | add.l #_wdcurct,R8
|
---|
721 | move 2(R8),-8(R14)
|
---|
722 | *line 302
|
---|
723 | move _lstwoff,R3
|
---|
724 | sub _curwoff,R3
|
---|
725 | *line 306
|
---|
726 | clr R7
|
---|
727 | clr R5
|
---|
728 | bra L31
|
---|
729 | L32:
|
---|
730 | *line 307
|
---|
731 | *line 308
|
---|
732 | *line 308
|
---|
733 | tst R7
|
---|
734 | bne L33
|
---|
735 | *line 309
|
---|
736 | *line 310
|
---|
737 | move _curwoff,R0
|
---|
738 | asl #5,R0
|
---|
739 | move _curwpnt,R9
|
---|
740 | add.l R9,R9
|
---|
741 | add.l -4(R14),R9
|
---|
742 | move R0,(R9)
|
---|
743 | *line 311
|
---|
744 | bra L34
|
---|
745 | L33:
|
---|
746 | *line 312
|
---|
747 | *line 313
|
---|
748 | *line 314
|
---|
749 | move R7,R6
|
---|
750 | add _curwpnt,R6
|
---|
751 | *line 315
|
---|
752 | *line 316
|
---|
753 | *line 316
|
---|
754 | cmp #254,R6
|
---|
755 | bge L35
|
---|
756 | *line 317
|
---|
757 | *line 318
|
---|
758 | *line 319
|
---|
759 | *line 320
|
---|
760 | move.l #$8000,-(sp)
|
---|
761 | move R5,R8
|
---|
762 | add.l R8,R8
|
---|
763 | move.l #_wdcurtb,R9
|
---|
764 | move 0(R8,R9.l),R0
|
---|
765 | ext.l R0
|
---|
766 | move.l R0,-(sp)
|
---|
767 | move R3,R8
|
---|
768 | move.l R8,-(sp)
|
---|
769 | jsr lmul
|
---|
770 | addq.l #8,sp
|
---|
771 | move.l R0,-(sp)
|
---|
772 | add.l #$4000,(sp)
|
---|
773 | jsr ldiv
|
---|
774 | addq.l #8,sp
|
---|
775 | move.l R0,-(sp)
|
---|
776 | move.l -4(R14),R8
|
---|
777 | move R6,R9
|
---|
778 | add.l R9,R9
|
---|
779 | move 0(R8,R9.l),R0
|
---|
780 | asr #5,R0
|
---|
781 | ext.l R0
|
---|
782 | sub.l (sp)+,R0
|
---|
783 | move R0,R4
|
---|
784 | *line 321
|
---|
785 | *line 322
|
---|
786 | *line 323
|
---|
787 | cmp #1023,R4
|
---|
788 | ble L36
|
---|
789 | *line 323
|
---|
790 | move #1023,R4
|
---|
791 | bra L37
|
---|
792 | L36:
|
---|
793 | *line 324
|
---|
794 | *line 325
|
---|
795 | cmp #-1023,R4
|
---|
796 | bge L38
|
---|
797 | *line 325
|
---|
798 | move #-1023,R4
|
---|
799 | *line 326
|
---|
800 | L38:L37:
|
---|
801 | *line 327
|
---|
802 | move R4,R0
|
---|
803 | asl #5,R0
|
---|
804 | move R6,R9
|
---|
805 | add.l R9,R9
|
---|
806 | add.l -4(R14),R9
|
---|
807 | move R0,(R9)
|
---|
808 | *line 328
|
---|
809 | *line 329
|
---|
810 | L35:
|
---|
811 | *line 330
|
---|
812 | move _curwpnt,R6
|
---|
813 | sub R7,R6
|
---|
814 | *line 331
|
---|
815 | *line 332
|
---|
816 | *line 332
|
---|
817 | tst R6
|
---|
818 | blt L39
|
---|
819 | *line 333
|
---|
820 | *line 334
|
---|
821 | *line 335
|
---|
822 | *line 336
|
---|
823 | move.l #$8000,-(sp)
|
---|
824 | move R5,R8
|
---|
825 | add.l R8,R8
|
---|
826 | move.l #_wdcurtb,R9
|
---|
827 | move 0(R8,R9.l),R0
|
---|
828 | ext.l R0
|
---|
829 | move.l R0,-(sp)
|
---|
830 | move R3,R8
|
---|
831 | move.l R8,-(sp)
|
---|
832 | jsr lmul
|
---|
833 | addq.l #8,sp
|
---|
834 | move.l R0,-(sp)
|
---|
835 | add.l #$4000,(sp)
|
---|
836 | jsr ldiv
|
---|
837 | addq.l #8,sp
|
---|
838 | move.l R0,-(sp)
|
---|
839 | move.l -4(R14),R8
|
---|
840 | move R6,R9
|
---|
841 | add.l R9,R9
|
---|
842 | move 0(R8,R9.l),R0
|
---|
843 | asr #5,R0
|
---|
844 | ext.l R0
|
---|
845 | sub.l (sp)+,R0
|
---|
846 | move R0,R4
|
---|
847 | *line 337
|
---|
848 | *line 338
|
---|
849 | *line 339
|
---|
850 | cmp #1023,R4
|
---|
851 | ble L40
|
---|
852 | *line 339
|
---|
853 | move #1023,R4
|
---|
854 | bra L41
|
---|
855 | L40:
|
---|
856 | *line 340
|
---|
857 | *line 341
|
---|
858 | cmp #-1023,R4
|
---|
859 | bge L42
|
---|
860 | *line 341
|
---|
861 | move #-1023,R4
|
---|
862 | *line 342
|
---|
863 | L42:L41:
|
---|
864 | *line 343
|
---|
865 | move R4,R0
|
---|
866 | asl #5,R0
|
---|
867 | move R6,R9
|
---|
868 | add.l R9,R9
|
---|
869 | add.l -4(R14),R9
|
---|
870 | move R0,(R9)
|
---|
871 | *line 344
|
---|
872 | L39:L34:
|
---|
873 | *line 345
|
---|
874 | L30:
|
---|
875 | *line 306
|
---|
876 | add #1,R7
|
---|
877 | add -8(R14),R5
|
---|
878 | L31:
|
---|
879 | *line 306
|
---|
880 | cmp -6(R14),R7
|
---|
881 | blt L32
|
---|
882 | L29:
|
---|
883 | *line 348
|
---|
884 | jsr _wsupd
|
---|
885 | L28:tst.l (sp)+
|
---|
886 | movem.l (sp)+,R3-R7/R13-R13
|
---|
887 | unlk R14
|
---|
888 | rts
|
---|
889 | .globl _wdintp
|
---|
890 | .text
|
---|
891 | _wdintp:
|
---|
892 | ~~wdintp:
|
---|
893 | link R14,#-4
|
---|
894 | movem.l R2-R7/R12-R13,-(sp)
|
---|
895 | ~ip=R13
|
---|
896 | ~ov=R12
|
---|
897 | ~i=R7
|
---|
898 | ~j=R6
|
---|
899 | ~k=R5
|
---|
900 | ~n=R4
|
---|
901 | ~t=R3
|
---|
902 | ~to=-2
|
---|
903 | ~from=-4
|
---|
904 | *line 368
|
---|
905 | move _curwpnt,-2(R14)
|
---|
906 | *line 369
|
---|
907 | move _wplast,-4(R14)
|
---|
908 | *line 371
|
---|
909 | move _curvce,R0
|
---|
910 | muls #3938,R0
|
---|
911 | move.l R0,R13
|
---|
912 | add.l #_vbufs,R13
|
---|
913 | *line 372
|
---|
914 | tst _curwslt
|
---|
915 | beq L10018
|
---|
916 | move.l R13,R0
|
---|
917 | add.l #3366,R0
|
---|
918 | bra L10020
|
---|
919 | L10018:move.l R13,R0
|
---|
920 | add.l #2286,R0
|
---|
921 | L10020:move.l R0,R12
|
---|
922 | *line 374
|
---|
923 | move _curwoff,R0
|
---|
924 | asl #5,R0
|
---|
925 | move.l R12,R9
|
---|
926 | move _curwpnt,R10
|
---|
927 | add.l R10,R10
|
---|
928 | add.l R10,R9
|
---|
929 | move R0,(R9)
|
---|
930 | *line 376
|
---|
931 | *line 376
|
---|
932 | move -4(R14),R0
|
---|
933 | cmp -2(R14),R0
|
---|
934 | ble L44
|
---|
935 | *line 377
|
---|
936 | *line 378
|
---|
937 | move -4(R14),R7
|
---|
938 | *line 379
|
---|
939 | move -2(R14),-4(R14)
|
---|
940 | *line 380
|
---|
941 | move R7,-2(R14)
|
---|
942 | *line 381
|
---|
943 | *line 382
|
---|
944 | L44:
|
---|
945 | *line 383
|
---|
946 | move -2(R14),R4
|
---|
947 | sub -4(R14),R4
|
---|
948 | *line 385
|
---|
949 | *line 385
|
---|
950 | cmp #1,R4
|
---|
951 | ble L45
|
---|
952 | *line 386
|
---|
953 | *line 387
|
---|
954 | move.l R12,R8
|
---|
955 | move -4(R14),R9
|
---|
956 | add.l R9,R9
|
---|
957 | add.l R9,R8
|
---|
958 | move (R8),R5
|
---|
959 | asr #5,R5
|
---|
960 | *line 388
|
---|
961 | move R4,R0
|
---|
962 | ext.l R0
|
---|
963 | move.l R0,-(sp)
|
---|
964 | move -2(R14),R8
|
---|
965 | add.l R8,R8
|
---|
966 | move 0(R12,R8.l),R0
|
---|
967 | asr #5,R0
|
---|
968 | ext.l R0
|
---|
969 | move R5,R1
|
---|
970 | ext.l R1
|
---|
971 | sub.l R1,R0
|
---|
972 | move.l #$10,R1
|
---|
973 | asl.l R1,R0
|
---|
974 | move.l R0,-(sp)
|
---|
975 | jsr ldiv
|
---|
976 | addq.l #8,sp
|
---|
977 | move.l R0,R3
|
---|
978 | *line 389
|
---|
979 | move -4(R14),R6
|
---|
980 | add #1,R6
|
---|
981 | *line 390
|
---|
982 | sub #1,R4
|
---|
983 | *line 391
|
---|
984 | *line 392
|
---|
985 | clr R7
|
---|
986 | bra L48
|
---|
987 | L49:
|
---|
988 | *line 393
|
---|
989 | move R7,R0
|
---|
990 | add #1,R0
|
---|
991 | ext.l R0
|
---|
992 | move.l R0,-(sp)
|
---|
993 | move.l R3,-(sp)
|
---|
994 | jsr lmul
|
---|
995 | addq.l #8,sp
|
---|
996 | move.l #$10,R1
|
---|
997 | asr.l R1,R0
|
---|
998 | add R5,R0
|
---|
999 | asl #5,R0
|
---|
1000 | move R0,-(sp)
|
---|
1001 | move.l R12,R8
|
---|
1002 | move R6,R9
|
---|
1003 | add.l R9,R9
|
---|
1004 | add.l R9,R8
|
---|
1005 | move (sp)+,(R8)
|
---|
1006 | add #1,R6
|
---|
1007 | L47:
|
---|
1008 | *line 392
|
---|
1009 | add #1,R7
|
---|
1010 | L48:
|
---|
1011 | *line 392
|
---|
1012 | cmp R4,R7
|
---|
1013 | blt L49
|
---|
1014 | L46:
|
---|
1015 | *line 393
|
---|
1016 | *line 394
|
---|
1017 | *line 395
|
---|
1018 | L45:
|
---|
1019 | *line 396
|
---|
1020 | move _curwpnt,_wplast
|
---|
1021 | *line 397
|
---|
1022 | move _curwoff,_wvlast
|
---|
1023 | *line 399
|
---|
1024 | jsr _wsupd
|
---|
1025 | L43:tst.l (sp)+
|
---|
1026 | movem.l (sp)+,R3-R7/R12-R13
|
---|
1027 | unlk R14
|
---|
1028 | rts
|
---|
1029 | .globl _wdykdn
|
---|
1030 | .text
|
---|
1031 | _wdykdn:
|
---|
1032 | ~~wdykdn:
|
---|
1033 | link R14,#-4
|
---|
1034 | *line 413
|
---|
1035 | *line 414
|
---|
1036 | tst _wpntsv
|
---|
1037 | beq L50
|
---|
1038 | *line 415
|
---|
1039 | *line 416
|
---|
1040 | move _curwpnt,_lstwpnt
|
---|
1041 | *line 417
|
---|
1042 | move _curwoff,_lstwoff
|
---|
1043 | L50:unlk R14
|
---|
1044 | rts
|
---|
1045 | .globl _wdykup
|
---|
1046 | .text
|
---|
1047 | _wdykup:
|
---|
1048 | ~~wdykup:
|
---|
1049 | link R14,#-4
|
---|
1050 | *line 428
|
---|
1051 | *line 429
|
---|
1052 | tst _wpntsv
|
---|
1053 | beq L51
|
---|
1054 | tst _wdupdfl
|
---|
1055 | beq L51
|
---|
1056 | *line 430
|
---|
1057 | *line 431
|
---|
1058 | *line 431
|
---|
1059 | cmp #1,_wpntsv
|
---|
1060 | bne L52
|
---|
1061 | *line 432
|
---|
1062 | *line 433
|
---|
1063 | *line 434
|
---|
1064 | cmp #8,_curwdth
|
---|
1065 | bne L53
|
---|
1066 | *line 434
|
---|
1067 | jsr _wdintp
|
---|
1068 | *line 435
|
---|
1069 | bra L54
|
---|
1070 | L53:
|
---|
1071 | *line 436
|
---|
1072 | jsr _pntsup
|
---|
1073 | L54:
|
---|
1074 | *line 437
|
---|
1075 | bra L55
|
---|
1076 | L52:
|
---|
1077 | *line 438
|
---|
1078 | *line 439
|
---|
1079 | *line 440
|
---|
1080 | move _curwhrm,(sp)
|
---|
1081 | jsr _adj
|
---|
1082 | *line 441
|
---|
1083 | jsr _wscalc
|
---|
1084 | *line 442
|
---|
1085 | jsr _whupd
|
---|
1086 | L55:
|
---|
1087 | *line 445
|
---|
1088 | clr (sp)
|
---|
1089 | jsr _wdswin
|
---|
1090 | *line 446
|
---|
1091 | move #2,(sp)
|
---|
1092 | jsr _wdswin
|
---|
1093 | *line 447
|
---|
1094 | move #4,(sp)
|
---|
1095 | jsr _wdswin
|
---|
1096 | *line 449
|
---|
1097 | clr _wdupdfl
|
---|
1098 | L51:unlk R14
|
---|
1099 | rts
|
---|
1100 | .globl _wdcyupd
|
---|
1101 | .text
|
---|
1102 | _wdcyupd:
|
---|
1103 | ~~wdcyupd:
|
---|
1104 | link R14,#-6
|
---|
1105 | movem.l R2-R7/R11-R13,-(sp)
|
---|
1106 | ~ip=R13
|
---|
1107 | ~ov=R12
|
---|
1108 | ~hv=R11
|
---|
1109 | ~i=R7
|
---|
1110 | ~j=R6
|
---|
1111 | ~k=R5
|
---|
1112 | ~tv=R4
|
---|
1113 | ~wsgn=R3
|
---|
1114 | ~wval=-2
|
---|
1115 | ~cwnp=-4
|
---|
1116 | ~cwin=-6
|
---|
1117 | *line 469
|
---|
1118 | move _curvce,R0
|
---|
1119 | muls #3938,R0
|
---|
1120 | move.l R0,R13
|
---|
1121 | add.l #_vbufs,R13
|
---|
1122 | *line 471
|
---|
1123 | move _wpntsv,R0
|
---|
1124 | bra L58
|
---|
1125 | *line 472
|
---|
1126 | L59:
|
---|
1127 | *line 473
|
---|
1128 | *line 474
|
---|
1129 | *line 475
|
---|
1130 | move _cyrate,R0
|
---|
1131 | add R0,_cyval
|
---|
1132 | *line 476
|
---|
1133 | *line 477
|
---|
1134 | *line 478
|
---|
1135 | cmp #348,_cyval
|
---|
1136 | ble L60
|
---|
1137 | *line 478
|
---|
1138 | move #348,_cyval
|
---|
1139 | bra L61
|
---|
1140 | L60:
|
---|
1141 | *line 479
|
---|
1142 | *line 480
|
---|
1143 | cmp #1,_cyval
|
---|
1144 | bge L62
|
---|
1145 | *line 480
|
---|
1146 | move #1,_cyval
|
---|
1147 | *line 481
|
---|
1148 | L62:L61:bra L56
|
---|
1149 | *line 482
|
---|
1150 | *line 483
|
---|
1151 | *line 484
|
---|
1152 | L63:
|
---|
1153 | *line 485
|
---|
1154 | *line 486
|
---|
1155 | *line 487
|
---|
1156 | move _cyrate,R0
|
---|
1157 | sub R0,_curwoff
|
---|
1158 | *line 488
|
---|
1159 | *line 489
|
---|
1160 | *line 490
|
---|
1161 | cmp #1023,_curwoff
|
---|
1162 | ble L64
|
---|
1163 | *line 490
|
---|
1164 | move #1023,_curwoff
|
---|
1165 | bra L65
|
---|
1166 | L64:
|
---|
1167 | *line 491
|
---|
1168 | *line 492
|
---|
1169 | cmp #-1023,_curwoff
|
---|
1170 | bge L66
|
---|
1171 | *line 492
|
---|
1172 | move #-1023,_curwoff
|
---|
1173 | *line 493
|
---|
1174 | L66:L65:
|
---|
1175 | *line 494
|
---|
1176 | move #133,R0
|
---|
1177 | move _curwoff,R1
|
---|
1178 | ext.l R1
|
---|
1179 | divs #8,R1
|
---|
1180 | sub R1,R0
|
---|
1181 | move R0,_cyval
|
---|
1182 | *line 495
|
---|
1183 | *line 496
|
---|
1184 | *line 496
|
---|
1185 | tst _curwoff
|
---|
1186 | bge L67
|
---|
1187 | *line 497
|
---|
1188 | *line 498
|
---|
1189 | move _curwoff,R0
|
---|
1190 | neg R0
|
---|
1191 | move R0,-2(R14)
|
---|
1192 | *line 499
|
---|
1193 | move.b #45,R3
|
---|
1194 | *line 500
|
---|
1195 | bra L68
|
---|
1196 | L67:
|
---|
1197 | *line 501
|
---|
1198 | *line 502
|
---|
1199 | *line 503
|
---|
1200 | move _curwoff,-2(R14)
|
---|
1201 | *line 504
|
---|
1202 | move.b #43,R3
|
---|
1203 | L68:
|
---|
1204 | *line 505
|
---|
1205 | *line 506
|
---|
1206 | *line 507
|
---|
1207 | move -2(R14),(sp)
|
---|
1208 | move.b R3,R0
|
---|
1209 | ext.w R0
|
---|
1210 | move R0,-(sp)
|
---|
1211 | move.l #L69,-(sp)
|
---|
1212 | move.l #_bfs,-(sp)
|
---|
1213 | jsr _sprintf
|
---|
1214 | adda.l #10,sp
|
---|
1215 | *line 508
|
---|
1216 | *line 509
|
---|
1217 | *line 510
|
---|
1218 | clr R0
|
---|
1219 | move 10+_v_regs,R0
|
---|
1220 | and #384,R0
|
---|
1221 | beq L70
|
---|
1222 | *line 510
|
---|
1223 | clr (sp)
|
---|
1224 | jsr _vbank
|
---|
1225 | *line 511
|
---|
1226 | L70:
|
---|
1227 | *line 512
|
---|
1228 | *line 513
|
---|
1229 | move #14,(sp)
|
---|
1230 | move.l #_bfs,-(sp)
|
---|
1231 | move 78+_wdbox,-(sp)
|
---|
1232 | add #14,(sp)
|
---|
1233 | move 76+_wdbox,-(sp)
|
---|
1234 | move 74+_wdbox,-(sp)
|
---|
1235 | move 72+_wdbox,-(sp)
|
---|
1236 | move #64,-(sp)
|
---|
1237 | move.l _waveob,-(sp)
|
---|
1238 | jsr _vcputsv
|
---|
1239 | adda.l #18,sp
|
---|
1240 | *line 514
|
---|
1241 | *line 515
|
---|
1242 | move #1,_wdupdfl
|
---|
1243 | bra L56
|
---|
1244 | *line 516
|
---|
1245 | *line 517
|
---|
1246 | *line 518
|
---|
1247 | L71:
|
---|
1248 | *line 519
|
---|
1249 | *line 520
|
---|
1250 | *line 521
|
---|
1251 | tst _curwslt
|
---|
1252 | beq L10021
|
---|
1253 | move.l R13,R0
|
---|
1254 | add.l #3874,R0
|
---|
1255 | bra L10023
|
---|
1256 | L10021:move.l R13,R0
|
---|
1257 | add.l #2794,R0
|
---|
1258 | L10023:move.l R0,R11
|
---|
1259 | *line 522
|
---|
1260 | *line 523
|
---|
1261 | move.l R11,R8
|
---|
1262 | move _curwhrm,R9
|
---|
1263 | add.l R9,R9
|
---|
1264 | add.l R9,R8
|
---|
1265 | tst (R8)
|
---|
1266 | bge L10024
|
---|
1267 | move _curwhrm,R8
|
---|
1268 | add.l R8,R8
|
---|
1269 | move 0(R11,R8.l),R0
|
---|
1270 | neg R0
|
---|
1271 | bra L10026
|
---|
1272 | L10024:move _curwhrm,R8
|
---|
1273 | add.l R8,R8
|
---|
1274 | move 0(R11,R8.l),R0
|
---|
1275 | L10026:sub _cyrate,R0
|
---|
1276 | move R0,_curwhrv
|
---|
1277 | *line 524
|
---|
1278 | *line 525
|
---|
1279 | *line 526
|
---|
1280 | cmp #100,_curwhrv
|
---|
1281 | ble L72
|
---|
1282 | *line 526
|
---|
1283 | move #100,_curwhrv
|
---|
1284 | bra L73
|
---|
1285 | L72:
|
---|
1286 | *line 527
|
---|
1287 | *line 528
|
---|
1288 | tst _curwhrv
|
---|
1289 | bge L74
|
---|
1290 | *line 528
|
---|
1291 | clr _curwhrv
|
---|
1292 | *line 529
|
---|
1293 | L74:L73:
|
---|
1294 | *line 530
|
---|
1295 | move.l R11,R8
|
---|
1296 | move _curwhrm,R9
|
---|
1297 | add.l R9,R9
|
---|
1298 | add.l R9,R8
|
---|
1299 | tst (R8)
|
---|
1300 | bge L10027
|
---|
1301 | move _curwhrv,R0
|
---|
1302 | neg R0
|
---|
1303 | bra L10029
|
---|
1304 | L10027:move _curwhrv,R0
|
---|
1305 | L10029:move R0,_curwhrv
|
---|
1306 | *line 531
|
---|
1307 | *line 532
|
---|
1308 | move.l R11,R8
|
---|
1309 | move _curwhrm,R9
|
---|
1310 | add.l R9,R9
|
---|
1311 | add.l R9,R8
|
---|
1312 | move _curwhrv,(R8)
|
---|
1313 | *line 533
|
---|
1314 | move _curwhrm,R8
|
---|
1315 | add.l R8,R8
|
---|
1316 | add.l #_vmtab,R8
|
---|
1317 | move _curwhrv,(R8)
|
---|
1318 | *line 534
|
---|
1319 | *line 535
|
---|
1320 | *line 535
|
---|
1321 | tst _curwhrv
|
---|
1322 | bge L75
|
---|
1323 | *line 536
|
---|
1324 | *line 537
|
---|
1325 | move _curwhrv,R0
|
---|
1326 | neg R0
|
---|
1327 | move R0,-2(R14)
|
---|
1328 | *line 538
|
---|
1329 | move.b #45,R3
|
---|
1330 | *line 539
|
---|
1331 | bra L76
|
---|
1332 | L75:
|
---|
1333 | *line 540
|
---|
1334 | *line 541
|
---|
1335 | *line 542
|
---|
1336 | move _curwhrv,-2(R14)
|
---|
1337 | *line 543
|
---|
1338 | move.b #43,R3
|
---|
1339 | L76:
|
---|
1340 | *line 544
|
---|
1341 | *line 545
|
---|
1342 | *line 546
|
---|
1343 | *line 547
|
---|
1344 | clr R0
|
---|
1345 | move 10+_v_regs,R0
|
---|
1346 | and #384,R0
|
---|
1347 | beq L77
|
---|
1348 | *line 547
|
---|
1349 | clr (sp)
|
---|
1350 | jsr _vbank
|
---|
1351 | *line 548
|
---|
1352 | L77:
|
---|
1353 | *line 549
|
---|
1354 | move -2(R14),(sp)
|
---|
1355 | move.b R3,R0
|
---|
1356 | ext.w R0
|
---|
1357 | move R0,-(sp)
|
---|
1358 | move.l #L78,-(sp)
|
---|
1359 | move.l #_bfs,-(sp)
|
---|
1360 | jsr _sprintf
|
---|
1361 | adda.l #10,sp
|
---|
1362 | *line 550
|
---|
1363 | *line 551
|
---|
1364 | *line 552
|
---|
1365 | move #14,(sp)
|
---|
1366 | move.l #_bfs,-(sp)
|
---|
1367 | move 94+_wdbox,-(sp)
|
---|
1368 | add #6,(sp)
|
---|
1369 | move 92+_wdbox,-(sp)
|
---|
1370 | add #1,(sp)
|
---|
1371 | move 90+_wdbox,-(sp)
|
---|
1372 | move 88+_wdbox,-(sp)
|
---|
1373 | move #64,-(sp)
|
---|
1374 | move.l _waveob,-(sp)
|
---|
1375 | jsr _vcputsv
|
---|
1376 | adda.l #18,sp
|
---|
1377 | *line 553
|
---|
1378 | *line 554
|
---|
1379 | *line 555
|
---|
1380 | tst _curwhrv
|
---|
1381 | bge L79
|
---|
1382 | *line 555
|
---|
1383 | move #306,R0
|
---|
1384 | move _curwhrv,R1
|
---|
1385 | neg R1
|
---|
1386 | asl #7,R1
|
---|
1387 | ext.l R1
|
---|
1388 | divs #100,R1
|
---|
1389 | sub R1,R0
|
---|
1390 | move R0,_cyval
|
---|
1391 | *line 556
|
---|
1392 | bra L80
|
---|
1393 | L79:
|
---|
1394 | *line 557
|
---|
1395 | move #306,R0
|
---|
1396 | move _curwhrv,R1
|
---|
1397 | asl #7,R1
|
---|
1398 | ext.l R1
|
---|
1399 | divs #100,R1
|
---|
1400 | sub R1,R0
|
---|
1401 | move R0,_cyval
|
---|
1402 | L80:
|
---|
1403 | *line 558
|
---|
1404 | *line 559
|
---|
1405 | move #1,_wdupdfl
|
---|
1406 | bra L56
|
---|
1407 | *line 560
|
---|
1408 | bra L57
|
---|
1409 | L58:tst R0
|
---|
1410 | beq L59
|
---|
1411 | cmp #1,R0
|
---|
1412 | beq L63
|
---|
1413 | cmp #2,R0
|
---|
1414 | beq L71
|
---|
1415 | bra L57
|
---|
1416 | L57:L56:tst.l (sp)+
|
---|
1417 | movem.l (sp)+,R3-R7/R11-R13
|
---|
1418 | unlk R14
|
---|
1419 | rts
|
---|
1420 | .globl _wdcxupd
|
---|
1421 | .text
|
---|
1422 | _wdcxupd:
|
---|
1423 | ~~wdcxupd:
|
---|
1424 | link R14,#-4
|
---|
1425 | *line 575
|
---|
1426 | move _wpntsv,R0
|
---|
1427 | bra L83
|
---|
1428 | *line 576
|
---|
1429 | L84:
|
---|
1430 | *line 577
|
---|
1431 | *line 578
|
---|
1432 | *line 579
|
---|
1433 | move _cxrate,R0
|
---|
1434 | add R0,_cxval
|
---|
1435 | *line 580
|
---|
1436 | *line 581
|
---|
1437 | *line 582
|
---|
1438 | cmp #510,_cxval
|
---|
1439 | ble L85
|
---|
1440 | *line 582
|
---|
1441 | move #510,_cxval
|
---|
1442 | bra L86
|
---|
1443 | L85:
|
---|
1444 | *line 583
|
---|
1445 | *line 584
|
---|
1446 | cmp #1,_cxval
|
---|
1447 | bge L87
|
---|
1448 | *line 584
|
---|
1449 | move #1,_cxval
|
---|
1450 | *line 585
|
---|
1451 | L87:L86:bra L81
|
---|
1452 | *line 586
|
---|
1453 | *line 587
|
---|
1454 | L88:
|
---|
1455 | *line 588
|
---|
1456 | *line 589
|
---|
1457 | *line 590
|
---|
1458 | *line 591
|
---|
1459 | cmp #8,_curwdth
|
---|
1460 | bne L81
|
---|
1461 | *line 592
|
---|
1462 | *line 593
|
---|
1463 | tst _cxrate
|
---|
1464 | bge L10030
|
---|
1465 | move _wxrate,R0
|
---|
1466 | neg R0
|
---|
1467 | bra L10032
|
---|
1468 | L10030:move _wxrate,R0
|
---|
1469 | L10032:add R0,_curwpnt
|
---|
1470 | *line 594
|
---|
1471 | *line 595
|
---|
1472 | *line 596
|
---|
1473 | cmp #254,_curwpnt
|
---|
1474 | blt L89
|
---|
1475 | *line 596
|
---|
1476 | move #253,_curwpnt
|
---|
1477 | bra L90
|
---|
1478 | L89:
|
---|
1479 | *line 597
|
---|
1480 | *line 598
|
---|
1481 | tst _curwpnt
|
---|
1482 | bge L91
|
---|
1483 | *line 598
|
---|
1484 | clr _curwpnt
|
---|
1485 | *line 599
|
---|
1486 | L91:L90:
|
---|
1487 | *line 600
|
---|
1488 | move _curwpnt,R0
|
---|
1489 | asl #1,R0
|
---|
1490 | add #2,R0
|
---|
1491 | move R0,_cxval
|
---|
1492 | *line 601
|
---|
1493 | *line 602
|
---|
1494 | *line 603
|
---|
1495 | clr R0
|
---|
1496 | move 10+_v_regs,R0
|
---|
1497 | and #384,R0
|
---|
1498 | beq L92
|
---|
1499 | *line 603
|
---|
1500 | clr (sp)
|
---|
1501 | jsr _vbank
|
---|
1502 | *line 604
|
---|
1503 | L92:
|
---|
1504 | *line 605
|
---|
1505 | move _curwpnt,(sp)
|
---|
1506 | move.l #L93,-(sp)
|
---|
1507 | move.l #_bfs,-(sp)
|
---|
1508 | jsr _sprintf
|
---|
1509 | addq.l #8,sp
|
---|
1510 | *line 606
|
---|
1511 | *line 607
|
---|
1512 | move #14,(sp)
|
---|
1513 | move.l #_bfs,-(sp)
|
---|
1514 | move 78+_wdbox,-(sp)
|
---|
1515 | add #4,(sp)
|
---|
1516 | move 76+_wdbox,-(sp)
|
---|
1517 | move 74+_wdbox,-(sp)
|
---|
1518 | move 72+_wdbox,-(sp)
|
---|
1519 | move #64,-(sp)
|
---|
1520 | move.l _waveob,-(sp)
|
---|
1521 | jsr _vcputsv
|
---|
1522 | adda.l #18,sp
|
---|
1523 | bra L82
|
---|
1524 | L83:tst R0
|
---|
1525 | beq L84
|
---|
1526 | cmp #1,R0
|
---|
1527 | beq L88
|
---|
1528 | bra L82
|
---|
1529 | L82:L81:unlk R14
|
---|
1530 | rts
|
---|
1531 | .globl _wdnfld
|
---|
1532 | .text
|
---|
1533 | _wdnfld:
|
---|
1534 | ~~wdnfld:
|
---|
1535 | ~k=8
|
---|
1536 | link R14,#0
|
---|
1537 | movem.l R7-R7/R12-R13,-(sp)
|
---|
1538 | ~hv=R13
|
---|
1539 | ~ip=R12
|
---|
1540 | *line 627
|
---|
1541 | *line 627
|
---|
1542 | tst _astat
|
---|
1543 | beq L95
|
---|
1544 | *line 628
|
---|
1545 | *line 629
|
---|
1546 | *line 629
|
---|
1547 | jsr _whatbox
|
---|
1548 | tst R0
|
---|
1549 | beq L96
|
---|
1550 | *line 630
|
---|
1551 | *line 631
|
---|
1552 | move _curvce,R0
|
---|
1553 | muls #3938,R0
|
---|
1554 | move.l R0,R12
|
---|
1555 | add.l #_vbufs,R12
|
---|
1556 | *line 632
|
---|
1557 | tst _curwslt
|
---|
1558 | beq L10033
|
---|
1559 | move.l R12,R0
|
---|
1560 | add.l #3874,R0
|
---|
1561 | bra L10035
|
---|
1562 | L10033:move.l R12,R0
|
---|
1563 | add.l #2794,R0
|
---|
1564 | L10035:move.l R0,R13
|
---|
1565 | *line 633
|
---|
1566 | *line 634
|
---|
1567 | *line 634
|
---|
1568 | tst _hitbox
|
---|
1569 | bne L97
|
---|
1570 | *line 635
|
---|
1571 | *line 636
|
---|
1572 | move _wpntsv,R0
|
---|
1573 | bra L99
|
---|
1574 | *line 637
|
---|
1575 | L100:
|
---|
1576 | *line 638
|
---|
1577 | *line 639
|
---|
1578 | *line 640
|
---|
1579 | *line 640
|
---|
1580 | cmp #8,8(R14)
|
---|
1581 | bne L101
|
---|
1582 | *line 641
|
---|
1583 | *line 642
|
---|
1584 | *line 643
|
---|
1585 | sub #1,_curwdth
|
---|
1586 | bge L102
|
---|
1587 | *line 643
|
---|
1588 | move #8,_curwdth
|
---|
1589 | *line 644
|
---|
1590 | L102:
|
---|
1591 | *line 645
|
---|
1592 | move #4,(sp)
|
---|
1593 | jsr _wdswin
|
---|
1594 | *line 646
|
---|
1595 | clr R0
|
---|
1596 | bra L94
|
---|
1597 | *line 647
|
---|
1598 | bra L103
|
---|
1599 | L101:
|
---|
1600 | *line 648
|
---|
1601 | *line 648
|
---|
1602 | cmp #9,8(R14)
|
---|
1603 | bne L104
|
---|
1604 | *line 649
|
---|
1605 | *line 650
|
---|
1606 | *line 651
|
---|
1607 | add #1,_curwdth
|
---|
1608 | move _curwdth,R0
|
---|
1609 | cmp #8,R0
|
---|
1610 | ble L105
|
---|
1611 | *line 651
|
---|
1612 | clr _curwdth
|
---|
1613 | *line 652
|
---|
1614 | L105:
|
---|
1615 | *line 653
|
---|
1616 | move #4,(sp)
|
---|
1617 | jsr _wdswin
|
---|
1618 | *line 654
|
---|
1619 | clr R0
|
---|
1620 | bra L94
|
---|
1621 | *line 655
|
---|
1622 | *line 656
|
---|
1623 | L104:L103:
|
---|
1624 | *line 657
|
---|
1625 | move #-1,R0
|
---|
1626 | bra L94
|
---|
1627 | *line 658
|
---|
1628 | *line 659
|
---|
1629 | L106:
|
---|
1630 | *line 660
|
---|
1631 | *line 661
|
---|
1632 | *line 662
|
---|
1633 | *line 662
|
---|
1634 | cmp #8,8(R14)
|
---|
1635 | bne L107
|
---|
1636 | *line 663
|
---|
1637 | *line 664
|
---|
1638 | *line 665
|
---|
1639 | cmp #8,_curwdth
|
---|
1640 | bne L108
|
---|
1641 | *line 665
|
---|
1642 | move #-1,R0
|
---|
1643 | bra L94
|
---|
1644 | *line 666
|
---|
1645 | L108:
|
---|
1646 | *line 667
|
---|
1647 | *line 668
|
---|
1648 | sub #1,_curwdth
|
---|
1649 | bge L109
|
---|
1650 | *line 668
|
---|
1651 | move #7,_curwdth
|
---|
1652 | *line 669
|
---|
1653 | L109:
|
---|
1654 | *line 670
|
---|
1655 | move #4,(sp)
|
---|
1656 | jsr _wdswin
|
---|
1657 | *line 671
|
---|
1658 | clr R0
|
---|
1659 | bra L94
|
---|
1660 | *line 672
|
---|
1661 | bra L110
|
---|
1662 | L107:
|
---|
1663 | *line 673
|
---|
1664 | *line 673
|
---|
1665 | cmp #9,8(R14)
|
---|
1666 | bne L111
|
---|
1667 | *line 674
|
---|
1668 | *line 675
|
---|
1669 | *line 675
|
---|
1670 | cmp #8,_curwdth
|
---|
1671 | bne L112
|
---|
1672 | *line 676
|
---|
1673 | *line 677
|
---|
1674 | jsr _wdintp
|
---|
1675 | *line 678
|
---|
1676 | clr (sp)
|
---|
1677 | jsr _wdswin
|
---|
1678 | *line 679
|
---|
1679 | move #2,(sp)
|
---|
1680 | jsr _wdswin
|
---|
1681 | *line 680
|
---|
1682 | bra L113
|
---|
1683 | L112:
|
---|
1684 | *line 681
|
---|
1685 | *line 682
|
---|
1686 | add #1,_curwdth
|
---|
1687 | move _curwdth,R0
|
---|
1688 | cmp #8,R0
|
---|
1689 | blt L114
|
---|
1690 | *line 682
|
---|
1691 | clr _curwdth
|
---|
1692 | *line 683
|
---|
1693 | L114:L113:
|
---|
1694 | *line 684
|
---|
1695 | move #4,(sp)
|
---|
1696 | jsr _wdswin
|
---|
1697 | *line 685
|
---|
1698 | clr R0
|
---|
1699 | bra L94
|
---|
1700 | *line 686
|
---|
1701 | *line 687
|
---|
1702 | L111:L110:
|
---|
1703 | *line 688
|
---|
1704 | move #-1,R0
|
---|
1705 | bra L94
|
---|
1706 | *line 689
|
---|
1707 | *line 690
|
---|
1708 | L115:
|
---|
1709 | *line 691
|
---|
1710 | *line 692
|
---|
1711 | *line 693
|
---|
1712 | *line 693
|
---|
1713 | cmp #8,8(R14)
|
---|
1714 | bne L116
|
---|
1715 | *line 694
|
---|
1716 | *line 695
|
---|
1717 | *line 696
|
---|
1718 | move.l R13,R8
|
---|
1719 | move _curwhrm,R9
|
---|
1720 | add.l R9,R9
|
---|
1721 | add.l R9,R8
|
---|
1722 | tst (R8)
|
---|
1723 | ble L117
|
---|
1724 | *line 696
|
---|
1725 | move _curwhrm,R8
|
---|
1726 | add.l R8,R8
|
---|
1727 | move 0(R13,R8.l),R0
|
---|
1728 | neg R0
|
---|
1729 | move.l R13,R9
|
---|
1730 | move _curwhrm,R10
|
---|
1731 | add.l R10,R10
|
---|
1732 | add.l R10,R9
|
---|
1733 | move R0,(R9)
|
---|
1734 | *line 697
|
---|
1735 | bra L118
|
---|
1736 | L117:
|
---|
1737 | *line 698
|
---|
1738 | move #-1,R0
|
---|
1739 | bra L94
|
---|
1740 | L118:
|
---|
1741 | *line 699
|
---|
1742 | bra L119
|
---|
1743 | L116:
|
---|
1744 | *line 700
|
---|
1745 | *line 700
|
---|
1746 | cmp #9,8(R14)
|
---|
1747 | bne L120
|
---|
1748 | *line 701
|
---|
1749 | *line 702
|
---|
1750 | *line 703
|
---|
1751 | move.l R13,R8
|
---|
1752 | move _curwhrm,R9
|
---|
1753 | add.l R9,R9
|
---|
1754 | add.l R9,R8
|
---|
1755 | tst (R8)
|
---|
1756 | bge L121
|
---|
1757 | *line 703
|
---|
1758 | move _curwhrm,R8
|
---|
1759 | add.l R8,R8
|
---|
1760 | move 0(R13,R8.l),R0
|
---|
1761 | neg R0
|
---|
1762 | move.l R13,R9
|
---|
1763 | move _curwhrm,R10
|
---|
1764 | add.l R10,R10
|
---|
1765 | add.l R10,R9
|
---|
1766 | move R0,(R9)
|
---|
1767 | *line 704
|
---|
1768 | bra L122
|
---|
1769 | L121:
|
---|
1770 | *line 705
|
---|
1771 | move #-1,R0
|
---|
1772 | bra L94
|
---|
1773 | L122:
|
---|
1774 | *line 706
|
---|
1775 | bra L123
|
---|
1776 | L120:
|
---|
1777 | *line 707
|
---|
1778 | *line 708
|
---|
1779 | *line 709
|
---|
1780 | move #-1,R0
|
---|
1781 | bra L94
|
---|
1782 | L123:L119:
|
---|
1783 | *line 710
|
---|
1784 | *line 711
|
---|
1785 | *line 712
|
---|
1786 | move.l R13,R8
|
---|
1787 | move _curwhrm,R9
|
---|
1788 | add.l R9,R9
|
---|
1789 | add.l R9,R8
|
---|
1790 | move (R8),_curwhrv
|
---|
1791 | *line 713
|
---|
1792 | move _curwhrm,R8
|
---|
1793 | add.l R8,R8
|
---|
1794 | add.l #_vmtab,R8
|
---|
1795 | move _curwhrv,(R8)
|
---|
1796 | *line 714
|
---|
1797 | move _curwhrm,(sp)
|
---|
1798 | jsr _adj
|
---|
1799 | *line 715
|
---|
1800 | jsr _wscalc
|
---|
1801 | *line 716
|
---|
1802 | jsr _whupd
|
---|
1803 | *line 717
|
---|
1804 | clr (sp)
|
---|
1805 | jsr _wdswin
|
---|
1806 | *line 718
|
---|
1807 | move #4,(sp)
|
---|
1808 | jsr _wdswin
|
---|
1809 | *line 719
|
---|
1810 | move #5,(sp)
|
---|
1811 | jsr _wdswin
|
---|
1812 | *line 720
|
---|
1813 | clr R0
|
---|
1814 | bra L94
|
---|
1815 | bra L98
|
---|
1816 | L99:tst R0
|
---|
1817 | beq L100
|
---|
1818 | cmp #1,R0
|
---|
1819 | beq L106
|
---|
1820 | cmp #2,R0
|
---|
1821 | beq L115
|
---|
1822 | bra L98
|
---|
1823 | L98:
|
---|
1824 | *line 721
|
---|
1825 | *line 722
|
---|
1826 | bra L124
|
---|
1827 | L97:
|
---|
1828 | *line 723
|
---|
1829 | *line 724
|
---|
1830 | move #-1,R0
|
---|
1831 | bra L94
|
---|
1832 | L124:
|
---|
1833 | *line 725
|
---|
1834 | *line 726
|
---|
1835 | bra L125
|
---|
1836 | L96:
|
---|
1837 | *line 727
|
---|
1838 | *line 727
|
---|
1839 | cmp #1,_hitbox
|
---|
1840 | bne L126
|
---|
1841 | *line 728
|
---|
1842 | *line 729
|
---|
1843 | *line 729
|
---|
1844 | cmp #8,8(R14)
|
---|
1845 | bne L127
|
---|
1846 | *line 730
|
---|
1847 | *line 731
|
---|
1848 | *line 732
|
---|
1849 | move.l R13,R8
|
---|
1850 | move _curwhrm,R9
|
---|
1851 | add.l R9,R9
|
---|
1852 | add.l R9,R8
|
---|
1853 | tst (R8)
|
---|
1854 | ble L128
|
---|
1855 | *line 732
|
---|
1856 | move _curwhrm,R8
|
---|
1857 | add.l R8,R8
|
---|
1858 | move 0(R13,R8.l),R0
|
---|
1859 | neg R0
|
---|
1860 | move.l R13,R9
|
---|
1861 | move _curwhrm,R10
|
---|
1862 | add.l R10,R10
|
---|
1863 | add.l R10,R9
|
---|
1864 | move R0,(R9)
|
---|
1865 | *line 733
|
---|
1866 | bra L129
|
---|
1867 | L128:
|
---|
1868 | *line 734
|
---|
1869 | move #-1,R0
|
---|
1870 | bra L94
|
---|
1871 | L129:
|
---|
1872 | *line 735
|
---|
1873 | bra L130
|
---|
1874 | L127:
|
---|
1875 | *line 736
|
---|
1876 | *line 736
|
---|
1877 | cmp #9,8(R14)
|
---|
1878 | bne L131
|
---|
1879 | *line 737
|
---|
1880 | *line 738
|
---|
1881 | *line 739
|
---|
1882 | move.l R13,R8
|
---|
1883 | move _curwhrm,R9
|
---|
1884 | add.l R9,R9
|
---|
1885 | add.l R9,R8
|
---|
1886 | tst (R8)
|
---|
1887 | bge L132
|
---|
1888 | *line 739
|
---|
1889 | move _curwhrm,R8
|
---|
1890 | add.l R8,R8
|
---|
1891 | move 0(R13,R8.l),R0
|
---|
1892 | neg R0
|
---|
1893 | move.l R13,R9
|
---|
1894 | move _curwhrm,R10
|
---|
1895 | add.l R10,R10
|
---|
1896 | add.l R10,R9
|
---|
1897 | move R0,(R9)
|
---|
1898 | *line 740
|
---|
1899 | bra L133
|
---|
1900 | L132:
|
---|
1901 | *line 741
|
---|
1902 | move #-1,R0
|
---|
1903 | bra L94
|
---|
1904 | L133:
|
---|
1905 | *line 742
|
---|
1906 | bra L134
|
---|
1907 | L131:
|
---|
1908 | *line 743
|
---|
1909 | *line 744
|
---|
1910 | *line 745
|
---|
1911 | move #-1,R0
|
---|
1912 | bra L94
|
---|
1913 | L134:L130:
|
---|
1914 | *line 746
|
---|
1915 | *line 747
|
---|
1916 | *line 748
|
---|
1917 | move.l R13,R8
|
---|
1918 | move _curwhrm,R9
|
---|
1919 | add.l R9,R9
|
---|
1920 | add.l R9,R8
|
---|
1921 | move (R8),_curwhrv
|
---|
1922 | *line 749
|
---|
1923 | move _curwhrm,R8
|
---|
1924 | add.l R8,R8
|
---|
1925 | add.l #_vmtab,R8
|
---|
1926 | move _curwhrv,(R8)
|
---|
1927 | *line 750
|
---|
1928 | move _curwhrm,(sp)
|
---|
1929 | jsr _adj
|
---|
1930 | *line 751
|
---|
1931 | jsr _wscalc
|
---|
1932 | *line 752
|
---|
1933 | jsr _whupd
|
---|
1934 | *line 753
|
---|
1935 | clr (sp)
|
---|
1936 | jsr _wdswin
|
---|
1937 | *line 754
|
---|
1938 | move #4,(sp)
|
---|
1939 | jsr _wdswin
|
---|
1940 | *line 755
|
---|
1941 | move #5,(sp)
|
---|
1942 | jsr _wdswin
|
---|
1943 | *line 756
|
---|
1944 | clr R0
|
---|
1945 | bra L94
|
---|
1946 | *line 757
|
---|
1947 | *line 758
|
---|
1948 | L126:L125:
|
---|
1949 | *line 759
|
---|
1950 | move #-1,R0
|
---|
1951 | bra L94
|
---|
1952 | *line 760
|
---|
1953 | L95:L94:tst.l (sp)+
|
---|
1954 | movem.l (sp)+,R12-R13
|
---|
1955 | unlk R14
|
---|
1956 | rts
|
---|
1957 | .globl _wdxkey
|
---|
1958 | .text
|
---|
1959 | _wdxkey:
|
---|
1960 | ~~wdxkey:
|
---|
1961 | link R14,#-4
|
---|
1962 | *line 775
|
---|
1963 | *line 776
|
---|
1964 | tst _astat
|
---|
1965 | bne L136
|
---|
1966 | *line 776
|
---|
1967 | move #-1,R0
|
---|
1968 | bra L135
|
---|
1969 | *line 777
|
---|
1970 | L136:
|
---|
1971 | *line 778
|
---|
1972 | move _cyval,R0
|
---|
1973 | ext.l R0
|
---|
1974 | divs #14,R0
|
---|
1975 | move R0,_stcrow
|
---|
1976 | *line 779
|
---|
1977 | move _cxval,R0
|
---|
1978 | asr #3,R0
|
---|
1979 | move R0,_stccol
|
---|
1980 | *line 781
|
---|
1981 | *line 781
|
---|
1982 | cmp #23,_stcrow
|
---|
1983 | bne L137
|
---|
1984 | *line 782
|
---|
1985 | *line 783
|
---|
1986 | *line 783
|
---|
1987 | cmp #2,_stccol
|
---|
1988 | bge L10036
|
---|
1989 | cmp #8,_stccol
|
---|
1990 | bgt L138
|
---|
1991 | L10036:*line 784
|
---|
1992 | *line 785
|
---|
1993 | jsr _clrws
|
---|
1994 | *line 786
|
---|
1995 | bra L139
|
---|
1996 | L138:
|
---|
1997 | *line 787
|
---|
1998 | *line 787
|
---|
1999 | cmp #38,_stccol
|
---|
2000 | blt L140
|
---|
2001 | cmp #42,_stccol
|
---|
2002 | bgt L140
|
---|
2003 | *line 788
|
---|
2004 | *line 789
|
---|
2005 | *line 790
|
---|
2006 | *line 791
|
---|
2007 | move #254,(sp)
|
---|
2008 | clr -(sp)
|
---|
2009 | tst _curwslt
|
---|
2010 | beq L10037
|
---|
2011 | move _curvce,R0
|
---|
2012 | muls #3938,R0
|
---|
2013 | add.l #_vbufs,R0
|
---|
2014 | move.l R0,-(sp)
|
---|
2015 | add.l #3366,(sp)
|
---|
2016 | bra L10039
|
---|
2017 | L10037:move _curvce,R0
|
---|
2018 | muls #3938,R0
|
---|
2019 | add.l #_vbufs,R0
|
---|
2020 | move.l R0,-(sp)
|
---|
2021 | add.l #3366,(sp)
|
---|
2022 | L10039:jsr _memsetw
|
---|
2023 | addq.l #6,sp
|
---|
2024 | *line 792
|
---|
2025 | *line 793
|
---|
2026 | clr _curwoff
|
---|
2027 | *line 794
|
---|
2028 | jsr _wsupd
|
---|
2029 | *line 795
|
---|
2030 | bra L141
|
---|
2031 | L140:
|
---|
2032 | *line 796
|
---|
2033 | *line 796
|
---|
2034 | cmp #51,_stccol
|
---|
2035 | blt L142
|
---|
2036 | cmp #58,_stccol
|
---|
2037 | bgt L142
|
---|
2038 | *line 797
|
---|
2039 | *line 798
|
---|
2040 | move #32,(sp)
|
---|
2041 | clr -(sp)
|
---|
2042 | move.l #_vmtab,-(sp)
|
---|
2043 | jsr _memsetw
|
---|
2044 | addq.l #6,sp
|
---|
2045 | *line 799
|
---|
2046 | clr _curwhrv
|
---|
2047 | *line 800
|
---|
2048 | jsr _wadj
|
---|
2049 | *line 801
|
---|
2050 | jsr _wscalc
|
---|
2051 | *line 802
|
---|
2052 | jsr _whupd
|
---|
2053 | *line 803
|
---|
2054 | bra L143
|
---|
2055 | L142:
|
---|
2056 | *line 804
|
---|
2057 | *line 805
|
---|
2058 | *line 806
|
---|
2059 | move #-1,R0
|
---|
2060 | bra L135
|
---|
2061 | L143:L141:L139:
|
---|
2062 | *line 807
|
---|
2063 | *line 808
|
---|
2064 | *line 809
|
---|
2065 | move _curvce,R8
|
---|
2066 | add.l R8,R8
|
---|
2067 | add.l R8,R8
|
---|
2068 | move _curwslt,R9
|
---|
2069 | add.l R9,R9
|
---|
2070 | add.l R9,R8
|
---|
2071 | add.l #_wsnmod,R8
|
---|
2072 | move #1,(R8)
|
---|
2073 | *line 810
|
---|
2074 | jsr _wwins
|
---|
2075 | *line 811
|
---|
2076 | clr R0
|
---|
2077 | bra L135
|
---|
2078 | *line 812
|
---|
2079 | *line 813
|
---|
2080 | L137:
|
---|
2081 | *line 814
|
---|
2082 | move #-1,R0
|
---|
2083 | bra L135
|
---|
2084 | L135:unlk R14
|
---|
2085 | rts
|
---|
2086 | .globl _wdfield
|
---|
2087 | .text
|
---|
2088 | _wdfield:
|
---|
2089 | ~~wdfield:
|
---|
2090 | link R14,#-4
|
---|
2091 | *line 828
|
---|
2092 | move #307,_curslim
|
---|
2093 | *line 830
|
---|
2094 | move.l #_wd_flds,(sp)
|
---|
2095 | jsr _curset
|
---|
2096 | L144:unlk R14
|
---|
2097 | rts
|
---|
2098 | .data
|
---|
2099 | L1:.dc.b $0
|
---|
2100 | L2:.dc.b $D0,$C1,$20,$20,$D0,$C3,$20,$20,$D0,$C5,$20,$20,$D0,$C7,$20,$20,$D0,$C9,$20,$20,$D1,$C1,$20,$20,$D1,$C3,$20,$20,$D1,$C5
|
---|
2101 | .dc.b $20,$20,$D1,$C7,$20,$20,$D1,$C9,$20,$20,$D2,$C1,$20,$20,$D2,$C3,$20,$20,$D2,$C5,$20,$20,$D2,$C7,$20,$20,$D2,$C9,$20,$20
|
---|
2102 | .dc.b $D3,$C1,$20,$20,$0
|
---|
2103 | L3:.dc.b $57,$61,$76,$65,$73,$68,$70,$65,$20,$20,$20,$20,$56,$6F,$69,$63,$65,$0
|
---|
2104 | L4:.dc.b $53,$74,$6F,$72,$65,$0
|
---|
2105 | L5:.dc.b $50,$6E,$74,$20,$20,$20,$20,$20,$4F,$66,$66,$73,$74,$0
|
---|
2106 | L6:.dc.b $48,$61,$72,$6D,$6F,$6E,$69,$63,$20,$23,$0
|
---|
2107 | L7:.dc.b $0
|
---|
2108 | L8:.dc.b $0
|
---|
2109 | L9:.dc.b $49,$6E,$73,$74,$72,$75,$6D,$65,$6E,$74,$20,$20,$20,$20,$53,$6C,$6F,$74,$0
|
---|
2110 | L10:.dc.b $46,$65,$74,$63,$68,$0
|
---|
2111 | L11:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$46,$69,$6E,$61,$6C,$0
|
---|
2112 | L12:.dc.b $56,$61,$6C,$75,$65,$0
|
---|
2113 | L69:.dc.b $25,$63,$25,$30,$34,$64,$0
|
---|
2114 | L78:.dc.b $25,$63,$25,$30,$33,$64,$0
|
---|
2115 | L93:.dc.b $25,$30,$33,$64,$0
|
---|