1 | .globl _io_time
|
---|
2 | .globl _io_lcd
|
---|
3 | .globl _io_ser
|
---|
4 | .globl _io_midi
|
---|
5 | .globl _io_disk
|
---|
6 | .globl _io_tone
|
---|
7 | .globl _io_leds
|
---|
8 | .globl _io_kbrd
|
---|
9 | .globl _lcd_a0
|
---|
10 | .globl _lcd_a1
|
---|
11 | .globl _io_vreg
|
---|
12 | .globl _io_vraw
|
---|
13 | .globl _io_vram
|
---|
14 | .globl _io_fpu
|
---|
15 | .globl _v_regs
|
---|
16 | .globl _v_odtab
|
---|
17 | .globl _v_actab
|
---|
18 | .globl _v_ct0
|
---|
19 | .globl _v_gt1
|
---|
20 | .globl _v_score
|
---|
21 | .globl _v_cgtab
|
---|
22 | .globl _v_curs0
|
---|
23 | .globl _v_curs1
|
---|
24 | .globl _v_curs2
|
---|
25 | .globl _v_curs3
|
---|
26 | .globl _v_curs4
|
---|
27 | .globl _v_curs5
|
---|
28 | .globl _v_curs6
|
---|
29 | .globl _v_curs7
|
---|
30 | .globl _v_tcur
|
---|
31 | .globl _v_kbobj
|
---|
32 | .globl _v_lnobj
|
---|
33 | .globl _v_win0
|
---|
34 | .globl _v_cur
|
---|
35 | .globl _fc_sw
|
---|
36 | .globl _fc_val
|
---|
37 | .globl _ebflag
|
---|
38 | .globl _ebuf
|
---|
39 | .globl _curfet
|
---|
40 | .globl _cfetp
|
---|
41 | .globl _infetp
|
---|
42 | .globl _stmptr
|
---|
43 | .globl _defptr
|
---|
44 | .globl _patches
|
---|
45 | .globl _defents
|
---|
46 | .globl _seqtab
|
---|
47 | .globl _seqflag
|
---|
48 | .globl _seqline
|
---|
49 | .globl _seqstim
|
---|
50 | .globl _seqtime
|
---|
51 | .globl _sregval
|
---|
52 | .globl _trstate
|
---|
53 | .globl _xy_up
|
---|
54 | .globl _xy_dn
|
---|
55 | .globl _premove
|
---|
56 | .globl _pstmove
|
---|
57 | .globl _curtype
|
---|
58 | .globl _astat
|
---|
59 | .globl _chtime
|
---|
60 | .globl _chwait
|
---|
61 | .globl _cmfirst
|
---|
62 | .globl _cmtype
|
---|
63 | .globl _curhold
|
---|
64 | .globl _cvtime
|
---|
65 | .globl _cvwait
|
---|
66 | .globl _ncvwait
|
---|
67 | .globl _ptbflag
|
---|
68 | .globl _ptecpos
|
---|
69 | .globl _ptedef
|
---|
70 | .globl _ptedfok
|
---|
71 | .globl _pteset
|
---|
72 | .globl _ptestm
|
---|
73 | .globl _ptestok
|
---|
74 | .globl _ss_ptsw
|
---|
75 | .globl _ss_sqsw
|
---|
76 | .globl _stccol
|
---|
77 | .globl _stcrow
|
---|
78 | .globl _syrate
|
---|
79 | .globl _tvcwval
|
---|
80 | .globl _vcwval
|
---|
81 | .globl _crate1
|
---|
82 | .globl _ptdebuf
|
---|
83 | .globl _csbp
|
---|
84 | .globl _ptboxes
|
---|
85 | .globl _ptebuf
|
---|
86 | .globl _trdata
|
---|
87 | .data
|
---|
88 | _trdata:
|
---|
89 | *line 88
|
---|
90 | .dc.l L1
|
---|
91 | *line 88
|
---|
92 | .dc.l L2
|
---|
93 | *line 88
|
---|
94 | .dc.l L3
|
---|
95 | .globl _ssdata
|
---|
96 | .data
|
---|
97 | _ssdata:
|
---|
98 | *line 89
|
---|
99 | .dc.l L4
|
---|
100 | *line 89
|
---|
101 | .dc.l L5
|
---|
102 | .globl _stdata
|
---|
103 | .data
|
---|
104 | _stdata:
|
---|
105 | *line 91
|
---|
106 | .dc.l L6
|
---|
107 | *line 91
|
---|
108 | .dc.l L7
|
---|
109 | *line 91
|
---|
110 | .dc.l L8
|
---|
111 | *line 91
|
---|
112 | .dc.l L9
|
---|
113 | *line 91
|
---|
114 | .dc.l L10
|
---|
115 | .globl _smdata
|
---|
116 | .data
|
---|
117 | _smdata:
|
---|
118 | *line 95
|
---|
119 | .dc.l L11
|
---|
120 | *line 96
|
---|
121 | .dc.l L12
|
---|
122 | *line 97
|
---|
123 | .dc.l L13
|
---|
124 | *line 98
|
---|
125 | .dc.l L14
|
---|
126 | *line 99
|
---|
127 | .dc.l L15
|
---|
128 | *line 100
|
---|
129 | .dc.l L16
|
---|
130 | *line 101
|
---|
131 | .dc.l L17
|
---|
132 | *line 102
|
---|
133 | .dc.l L18
|
---|
134 | *line 103
|
---|
135 | .dc.l L19
|
---|
136 | *line 104
|
---|
137 | .dc.l L20
|
---|
138 | *line 105
|
---|
139 | .dc.l L21
|
---|
140 | *line 106
|
---|
141 | .dc.l L22
|
---|
142 | *line 107
|
---|
143 | .dc.l L23
|
---|
144 | *line 108
|
---|
145 | .dc.l L24
|
---|
146 | .globl _pt_flds
|
---|
147 | .data
|
---|
148 | _pt_flds:
|
---|
149 | *line 113
|
---|
150 | .dc.l _stdctp5
|
---|
151 | *line 114
|
---|
152 | .dc.l _nokey
|
---|
153 | *line 115
|
---|
154 | .dc.l _aftercm
|
---|
155 | *line 116
|
---|
156 | .dc.l _cxkstd
|
---|
157 | *line 117
|
---|
158 | .dc.l _cykstd
|
---|
159 | *line 118
|
---|
160 | .dc.l _smxupd
|
---|
161 | *line 119
|
---|
162 | .dc.l _smyupd
|
---|
163 | *line 120
|
---|
164 | .dc.l _stopcm
|
---|
165 | *line 121
|
---|
166 | .dc.l _nokey
|
---|
167 | *line 122
|
---|
168 | .dc.l _ptxkey
|
---|
169 | *line 123
|
---|
170 | .dc.l _ptekey
|
---|
171 | *line 124
|
---|
172 | .dc.l _ptmkey
|
---|
173 | *line 125
|
---|
174 | .dc.l _ptdkey
|
---|
175 | *line 126
|
---|
176 | .dc.l _nokey
|
---|
177 | .dc.l $0
|
---|
178 | *line 128
|
---|
179 | .dc.l _ptboxes
|
---|
180 | *line 129
|
---|
181 | .dc.l _crate1
|
---|
182 | *line 130
|
---|
183 | .dc.l _crate1
|
---|
184 | .dc.w $4
|
---|
185 | .dc.w $10
|
---|
186 | .dc.w $7E
|
---|
187 | .globl _ptmkey
|
---|
188 | .text
|
---|
189 | _ptmkey:
|
---|
190 | ~~ptmkey:
|
---|
191 | link R14,#0
|
---|
192 | movem.l R6-R7,-(sp)
|
---|
193 | ~nc=R7
|
---|
194 | *line 149
|
---|
195 | *line 149
|
---|
196 | tst _astat
|
---|
197 | beq L26
|
---|
198 | *line 150
|
---|
199 | *line 151
|
---|
200 | *line 151
|
---|
201 | cmp #48,_stccol
|
---|
202 | bne L27
|
---|
203 | *line 152
|
---|
204 | *line 153
|
---|
205 | *line 153
|
---|
206 | tst _ss_sqsw
|
---|
207 | bne L28
|
---|
208 | *line 154
|
---|
209 | *line 155
|
---|
210 | move.l _xy_dn,R8
|
---|
211 | jsr (R8)
|
---|
212 | *line 156
|
---|
213 | *line 157
|
---|
214 | move.l _premove,R8
|
---|
215 | jsr (R8)
|
---|
216 | *line 158
|
---|
217 | *line 159
|
---|
218 | move.l _curtype,R8
|
---|
219 | jsr (R8)
|
---|
220 | move R0,R7
|
---|
221 | *line 160
|
---|
222 | *line 161
|
---|
223 | move _syrate,_cvtime
|
---|
224 | *line 162
|
---|
225 | move _curhold,_ncvwait
|
---|
226 | *line 163
|
---|
227 | *line 164
|
---|
228 | move #-1,_ss_ptsw
|
---|
229 | *line 165
|
---|
230 | move R7,_cmtype
|
---|
231 | *line 166
|
---|
232 | move #1,_cvwait
|
---|
233 | *line 167
|
---|
234 | *line 168
|
---|
235 | L28:bra L29
|
---|
236 | L27:
|
---|
237 | *line 169
|
---|
238 | *line 170
|
---|
239 | jsr _stdmkey
|
---|
240 | L29:
|
---|
241 | *line 171
|
---|
242 | bra L30
|
---|
243 | L26:
|
---|
244 | *line 172
|
---|
245 | *line 173
|
---|
246 | *line 174
|
---|
247 | *line 174
|
---|
248 | cmp #48,_stccol
|
---|
249 | bne L31
|
---|
250 | *line 175
|
---|
251 | *line 176
|
---|
252 | clr _ss_ptsw
|
---|
253 | *line 177
|
---|
254 | move #1,_cvwait
|
---|
255 | *line 178
|
---|
256 | move _cvtime,_ncvwait
|
---|
257 | *line 179
|
---|
258 | move #1,_cmfirst
|
---|
259 | *line 180
|
---|
260 | *line 181
|
---|
261 | *line 182
|
---|
262 | tst _ss_sqsw
|
---|
263 | bne L32
|
---|
264 | *line 182
|
---|
265 | move.l _xy_up,R8
|
---|
266 | jsr (R8)
|
---|
267 | *line 183
|
---|
268 | L32:
|
---|
269 | *line 184
|
---|
270 | move.l _pstmove,R8
|
---|
271 | jsr (R8)
|
---|
272 | *line 185
|
---|
273 | *line 186
|
---|
274 | bra L33
|
---|
275 | L31:
|
---|
276 | *line 187
|
---|
277 | jsr _stdmkey
|
---|
278 | L33:L30:L25:tst.l (sp)+
|
---|
279 | movem.l (sp)+,R7-R7
|
---|
280 | unlk R14
|
---|
281 | rts
|
---|
282 | .globl _ptekey
|
---|
283 | .text
|
---|
284 | _ptekey:
|
---|
285 | ~~ptekey:
|
---|
286 | link R14,#0
|
---|
287 | movem.l R6-R7,-(sp)
|
---|
288 | ~nc=R7
|
---|
289 | *line 204
|
---|
290 | *line 204
|
---|
291 | tst _astat
|
---|
292 | beq L35
|
---|
293 | *line 205
|
---|
294 | *line 206
|
---|
295 | *line 206
|
---|
296 | cmp #48,_stccol
|
---|
297 | bne L36
|
---|
298 | *line 207
|
---|
299 | *line 208
|
---|
300 | *line 208
|
---|
301 | tst _ss_sqsw
|
---|
302 | bne L37
|
---|
303 | *line 209
|
---|
304 | *line 210
|
---|
305 | move.l _xy_dn,R8
|
---|
306 | jsr (R8)
|
---|
307 | *line 211
|
---|
308 | *line 212
|
---|
309 | move.l _premove,R8
|
---|
310 | jsr (R8)
|
---|
311 | *line 213
|
---|
312 | *line 214
|
---|
313 | move.l _curtype,R8
|
---|
314 | jsr (R8)
|
---|
315 | move R0,R7
|
---|
316 | *line 215
|
---|
317 | *line 216
|
---|
318 | move _syrate,_cvtime
|
---|
319 | *line 217
|
---|
320 | move _curhold,_ncvwait
|
---|
321 | *line 218
|
---|
322 | *line 219
|
---|
323 | move #1,_ss_ptsw
|
---|
324 | *line 220
|
---|
325 | move R7,_cmtype
|
---|
326 | *line 221
|
---|
327 | move #1,_cvwait
|
---|
328 | *line 222
|
---|
329 | *line 223
|
---|
330 | L37:
|
---|
331 | *line 224
|
---|
332 | bra L38
|
---|
333 | L36:
|
---|
334 | *line 225
|
---|
335 | jsr _select
|
---|
336 | L38:
|
---|
337 | *line 226
|
---|
338 | bra L39
|
---|
339 | L35:
|
---|
340 | *line 227
|
---|
341 | *line 228
|
---|
342 | *line 229
|
---|
343 | *line 229
|
---|
344 | cmp #48,_stccol
|
---|
345 | bne L40
|
---|
346 | *line 230
|
---|
347 | *line 231
|
---|
348 | clr _ss_ptsw
|
---|
349 | *line 232
|
---|
350 | move #1,_cvwait
|
---|
351 | *line 233
|
---|
352 | move _cvtime,_ncvwait
|
---|
353 | *line 234
|
---|
354 | move #1,_cmfirst
|
---|
355 | *line 235
|
---|
356 | *line 236
|
---|
357 | *line 237
|
---|
358 | tst _ss_sqsw
|
---|
359 | bne L41
|
---|
360 | *line 237
|
---|
361 | move.l _xy_up,R8
|
---|
362 | jsr (R8)
|
---|
363 | *line 238
|
---|
364 | L41:
|
---|
365 | *line 239
|
---|
366 | move.l _pstmove,R8
|
---|
367 | jsr (R8)
|
---|
368 | *line 240
|
---|
369 | *line 241
|
---|
370 | bra L42
|
---|
371 | L40:
|
---|
372 | *line 242
|
---|
373 | jsr _select
|
---|
374 | L42:L39:L34:tst.l (sp)+
|
---|
375 | movem.l (sp)+,R7-R7
|
---|
376 | unlk R14
|
---|
377 | rts
|
---|
378 | .globl _ptxkey
|
---|
379 | .text
|
---|
380 | _ptxkey:
|
---|
381 | ~~ptxkey:
|
---|
382 | link R14,#0
|
---|
383 | movem.l R2-R7,-(sp)
|
---|
384 | ~i=R7
|
---|
385 | ~cp=R6
|
---|
386 | ~pp=R5
|
---|
387 | ~sp=R4
|
---|
388 | ~stm=R3
|
---|
389 | *line 259
|
---|
390 | *line 260
|
---|
391 | tst _astat
|
---|
392 | beq L43
|
---|
393 | *line 261
|
---|
394 | *line 262
|
---|
395 | *line 262
|
---|
396 | cmp #2,_stccol
|
---|
397 | blt L44
|
---|
398 | cmp #13,_stccol
|
---|
399 | bgt L44
|
---|
400 | *line 263
|
---|
401 | *line 264
|
---|
402 | *line 264
|
---|
403 | tst _ptecpos
|
---|
404 | beq L45
|
---|
405 | tst _ptbflag
|
---|
406 | bne L45
|
---|
407 | *line 265
|
---|
408 | *line 266
|
---|
409 | move #6,(sp)
|
---|
410 | move _ptecpos,R0
|
---|
411 | asl #4,R0
|
---|
412 | ext.l R0
|
---|
413 | add.l #_patches,R0
|
---|
414 | move.l R0,-(sp)
|
---|
415 | add.l #4,(sp)
|
---|
416 | move.l #4+_ptebuf,-(sp)
|
---|
417 | jsr _memcpyw
|
---|
418 | addq.l #8,sp
|
---|
419 | *line 267
|
---|
420 | move #1,_pteset
|
---|
421 | *line 268
|
---|
422 | jsr _pte2buf
|
---|
423 | *line 269
|
---|
424 | *line 270
|
---|
425 | L45:
|
---|
426 | *line 271
|
---|
427 | move #4608,_ptedef
|
---|
428 | *line 272
|
---|
429 | move #1,_ptedfok
|
---|
430 | *line 273
|
---|
431 | *line 274
|
---|
432 | move #12,(sp)
|
---|
433 | move #32,-(sp)
|
---|
434 | move.l #2+_ptdebuf,-(sp)
|
---|
435 | jsr _memset
|
---|
436 | addq.l #6,sp
|
---|
437 | *line 275
|
---|
438 | *line 276
|
---|
439 | clr R7
|
---|
440 | bra L48
|
---|
441 | L49:
|
---|
442 | *line 277
|
---|
443 | *line 278
|
---|
444 | move R7,R8
|
---|
445 | add.l #_ptdebuf,R8
|
---|
446 | tst.b (R8)
|
---|
447 | bne L50
|
---|
448 | *line 278
|
---|
449 | move R7,R8
|
---|
450 | add.l #_ptdebuf,R8
|
---|
451 | move.b #32,(R8)
|
---|
452 | *line 279
|
---|
453 | L50:L47:
|
---|
454 | *line 276
|
---|
455 | add #1,R7
|
---|
456 | L48:
|
---|
457 | *line 276
|
---|
458 | cmp #48,R7
|
---|
459 | blt L49
|
---|
460 | L46:
|
---|
461 | *line 280
|
---|
462 | move.b #176,_ptdebuf
|
---|
463 | *line 281
|
---|
464 | clr.b 48+_ptdebuf
|
---|
465 | *line 282
|
---|
466 | *line 283
|
---|
467 | move #18,(sp)
|
---|
468 | move.l #_ptdebuf,-(sp)
|
---|
469 | clr -(sp)
|
---|
470 | move #7,-(sp)
|
---|
471 | jsr _UpdVid
|
---|
472 | addq.l #8,sp
|
---|
473 | *line 284
|
---|
474 | move _stccol,(sp)
|
---|
475 | move _stcrow,-(sp)
|
---|
476 | jsr _movectc
|
---|
477 | addq.l #2,sp
|
---|
478 | *line 285
|
---|
479 | *line 286
|
---|
480 | *line 287
|
---|
481 | bra L51
|
---|
482 | L44:
|
---|
483 | *line 288
|
---|
484 | *line 288
|
---|
485 | cmp #15,_stccol
|
---|
486 | blt L52
|
---|
487 | cmp #26,_stccol
|
---|
488 | bgt L52
|
---|
489 | *line 289
|
---|
490 | *line 290
|
---|
491 | *line 290
|
---|
492 | tst _ptecpos
|
---|
493 | beq L53
|
---|
494 | tst _ptbflag
|
---|
495 | bne L53
|
---|
496 | *line 291
|
---|
497 | *line 292
|
---|
498 | move #6,(sp)
|
---|
499 | move _ptecpos,R0
|
---|
500 | asl #4,R0
|
---|
501 | ext.l R0
|
---|
502 | add.l #_patches,R0
|
---|
503 | move.l R0,-(sp)
|
---|
504 | add.l #4,(sp)
|
---|
505 | move.l #4+_ptebuf,-(sp)
|
---|
506 | jsr _memcpyw
|
---|
507 | addq.l #8,sp
|
---|
508 | *line 293
|
---|
509 | move #1,_pteset
|
---|
510 | *line 294
|
---|
511 | jsr _pte2buf
|
---|
512 | *line 295
|
---|
513 | *line 296
|
---|
514 | L53:
|
---|
515 | *line 297
|
---|
516 | move #4608,_ptestm
|
---|
517 | *line 298
|
---|
518 | clr _ptestok
|
---|
519 | *line 299
|
---|
520 | *line 300
|
---|
521 | move #12,(sp)
|
---|
522 | move #32,-(sp)
|
---|
523 | move.l #15+_ptdebuf,-(sp)
|
---|
524 | jsr _memset
|
---|
525 | addq.l #6,sp
|
---|
526 | *line 301
|
---|
527 | *line 302
|
---|
528 | clr R7
|
---|
529 | bra L56
|
---|
530 | L57:
|
---|
531 | *line 303
|
---|
532 | *line 304
|
---|
533 | move R7,R8
|
---|
534 | add.l #_ptdebuf,R8
|
---|
535 | tst.b (R8)
|
---|
536 | bne L58
|
---|
537 | *line 304
|
---|
538 | move R7,R8
|
---|
539 | add.l #_ptdebuf,R8
|
---|
540 | move.b #32,(R8)
|
---|
541 | *line 305
|
---|
542 | L58:L55:
|
---|
543 | *line 302
|
---|
544 | add #1,R7
|
---|
545 | L56:
|
---|
546 | *line 302
|
---|
547 | cmp #48,R7
|
---|
548 | blt L57
|
---|
549 | L54:
|
---|
550 | *line 306
|
---|
551 | move.b #176,_ptdebuf
|
---|
552 | *line 307
|
---|
553 | clr.b 48+_ptdebuf
|
---|
554 | *line 308
|
---|
555 | *line 309
|
---|
556 | move #18,(sp)
|
---|
557 | move.l #_ptdebuf,-(sp)
|
---|
558 | clr -(sp)
|
---|
559 | move #7,-(sp)
|
---|
560 | jsr _UpdVid
|
---|
561 | addq.l #8,sp
|
---|
562 | *line 310
|
---|
563 | move _stccol,(sp)
|
---|
564 | move _stcrow,-(sp)
|
---|
565 | jsr _movectc
|
---|
566 | addq.l #2,sp
|
---|
567 | *line 311
|
---|
568 | bra L59
|
---|
569 | L52:
|
---|
570 | *line 312
|
---|
571 | *line 312
|
---|
572 | cmp #28,_stccol
|
---|
573 | blt L60
|
---|
574 | cmp #40,_stccol
|
---|
575 | bgt L60
|
---|
576 | *line 313
|
---|
577 | *line 314
|
---|
578 | jsr _voidpb
|
---|
579 | *line 315
|
---|
580 | *line 316
|
---|
581 | move.b #176,_ptdebuf
|
---|
582 | *line 317
|
---|
583 | clr.b 48+_ptdebuf
|
---|
584 | *line 318
|
---|
585 | *line 319
|
---|
586 | move #18,(sp)
|
---|
587 | move.l #_ptdebuf,-(sp)
|
---|
588 | clr -(sp)
|
---|
589 | move #7,-(sp)
|
---|
590 | jsr _UpdVid
|
---|
591 | addq.l #8,sp
|
---|
592 | *line 320
|
---|
593 | move _stccol,(sp)
|
---|
594 | move _stcrow,-(sp)
|
---|
595 | jsr _movectc
|
---|
596 | addq.l #2,sp
|
---|
597 | *line 321
|
---|
598 | *line 322
|
---|
599 | bra L61
|
---|
600 | L60:
|
---|
601 | *line 323
|
---|
602 | *line 323
|
---|
603 | cmp #42,_stccol
|
---|
604 | blt L62
|
---|
605 | cmp #46,_stccol
|
---|
606 | bgt L62
|
---|
607 | *line 324
|
---|
608 | *line 325
|
---|
609 | *line 325
|
---|
610 | tst _ptecpos
|
---|
611 | beq L63
|
---|
612 | *line 326
|
---|
613 | *line 327
|
---|
614 | move _ptecpos,R6
|
---|
615 | *line 328
|
---|
616 | move R6,R0
|
---|
617 | asl #4,R0
|
---|
618 | ext.l R0
|
---|
619 | add.l #_patches,R0
|
---|
620 | move.l R0,R8
|
---|
621 | move 2(R8),R5
|
---|
622 | *line 329
|
---|
623 | move R6,R0
|
---|
624 | asl #4,R0
|
---|
625 | ext.l R0
|
---|
626 | add.l #_patches,R0
|
---|
627 | move.l R0,R8
|
---|
628 | move (R8),R4
|
---|
629 | *line 330
|
---|
630 | *line 331
|
---|
631 | move R6,R0
|
---|
632 | asl #4,R0
|
---|
633 | ext.l R0
|
---|
634 | add.l #_patches,R0
|
---|
635 | move.l R0,R8
|
---|
636 | move 6(R8),R3
|
---|
637 | *line 336
|
---|
638 | *line 337
|
---|
639 | *line 338
|
---|
640 | *line 339
|
---|
641 | tst R5
|
---|
642 | beq L64
|
---|
643 | *line 339
|
---|
644 | move R5,R0
|
---|
645 | asl #4,R0
|
---|
646 | ext.l R0
|
---|
647 | add.l #_patches,R0
|
---|
648 | move.l R0,R8
|
---|
649 | move R4,(R8)
|
---|
650 | bra L65
|
---|
651 | L64:
|
---|
652 | *line 340
|
---|
653 | *line 341
|
---|
654 | move R4,R0
|
---|
655 | move R3,R1
|
---|
656 | and #8191,R1
|
---|
657 | ext.l R1
|
---|
658 | add.l #_stmptr,R1
|
---|
659 | move.l R1,R9
|
---|
660 | move.b R0,(R9)
|
---|
661 | L65:
|
---|
662 | *line 342
|
---|
663 | *line 343
|
---|
664 | *line 344
|
---|
665 | tst R4
|
---|
666 | beq L66
|
---|
667 | *line 344
|
---|
668 | move R4,R0
|
---|
669 | asl #4,R0
|
---|
670 | ext.l R0
|
---|
671 | add.l #_patches,R0
|
---|
672 | move.l R0,R8
|
---|
673 | move R5,2(R8)
|
---|
674 | *line 345
|
---|
675 | L66:
|
---|
676 | *line 346
|
---|
677 | *line 347
|
---|
678 | move R6,(sp)
|
---|
679 | jsr _findnxt
|
---|
680 | move R0,R4
|
---|
681 | beq L67
|
---|
682 | *line 347
|
---|
683 | move R4,_ptecpos
|
---|
684 | bra L68
|
---|
685 | L67:
|
---|
686 | *line 348
|
---|
687 | *line 349
|
---|
688 | move R6,(sp)
|
---|
689 | jsr _findprv
|
---|
690 | move R0,R5
|
---|
691 | beq L69
|
---|
692 | *line 349
|
---|
693 | move R5,_ptecpos
|
---|
694 | *line 350
|
---|
695 | bra L70
|
---|
696 | L69:
|
---|
697 | *line 351
|
---|
698 | clr _ptecpos
|
---|
699 | L70:L68:
|
---|
700 | *line 352
|
---|
701 | *line 353
|
---|
702 | move R6,(sp)
|
---|
703 | jsr _pt_del
|
---|
704 | *line 354
|
---|
705 | *line 355
|
---|
706 | *line 356
|
---|
707 | clr R7
|
---|
708 | bra L73
|
---|
709 | L74:
|
---|
710 | *line 357
|
---|
711 | *line 358
|
---|
712 | *line 358
|
---|
713 | move.l #_defptr,R8
|
---|
714 | move.b 0(R8,R7),R0
|
---|
715 | ext.w R0
|
---|
716 | move R0,R6
|
---|
717 | beq L75
|
---|
718 | *line 359
|
---|
719 | *line 360
|
---|
720 | clr R5
|
---|
721 | *line 361
|
---|
722 | *line 362
|
---|
723 | bra L78
|
---|
724 | L77:
|
---|
725 | *line 363
|
---|
726 | *line 364
|
---|
727 | move R6,R0
|
---|
728 | muls #10,R0
|
---|
729 | add.l #_defents,R0
|
---|
730 | move.l R0,R8
|
---|
731 | move (R8),R4
|
---|
732 | *line 365
|
---|
733 | *line 366
|
---|
734 | *line 366
|
---|
735 | move R6,R0
|
---|
736 | muls #10,R0
|
---|
737 | add.l #_defents,R0
|
---|
738 | move.l R0,R8
|
---|
739 | cmp 2(R8),R3
|
---|
740 | bne L79
|
---|
741 | *line 367
|
---|
742 | *line 377
|
---|
743 | *line 378
|
---|
744 | *line 379
|
---|
745 | *line 380
|
---|
746 | tst R5
|
---|
747 | beq L80
|
---|
748 | *line 380
|
---|
749 | move R5,R0
|
---|
750 | muls #10,R0
|
---|
751 | add.l #_defents,R0
|
---|
752 | move.l R0,R8
|
---|
753 | move R4,(R8)
|
---|
754 | bra L81
|
---|
755 | L80:
|
---|
756 | *line 381
|
---|
757 | *line 382
|
---|
758 | move R4,R0
|
---|
759 | move R7,R9
|
---|
760 | add.l #_defptr,R9
|
---|
761 | move.b R0,(R9)
|
---|
762 | L81:
|
---|
763 | *line 383
|
---|
764 | *line 384
|
---|
765 | move R6,(sp)
|
---|
766 | jsr _dt_del
|
---|
767 | *line 385
|
---|
768 | bra L82
|
---|
769 | L79:
|
---|
770 | *line 386
|
---|
771 | *line 387
|
---|
772 | *line 388
|
---|
773 | move R6,R5
|
---|
774 | L82:
|
---|
775 | *line 389
|
---|
776 | *line 390
|
---|
777 | *line 391
|
---|
778 | move R4,R6
|
---|
779 | L78:
|
---|
780 | *line 392
|
---|
781 | tst R6
|
---|
782 | bne L77
|
---|
783 | L76:
|
---|
784 | *line 393
|
---|
785 | L75:L72:
|
---|
786 | *line 356
|
---|
787 | add #1,R7
|
---|
788 | L73:
|
---|
789 | *line 356
|
---|
790 | cmp #5120,R7
|
---|
791 | blt L74
|
---|
792 | L71:
|
---|
793 | *line 394
|
---|
794 | *line 395
|
---|
795 | *line 396
|
---|
796 | jsr _dptw
|
---|
797 | *line 397
|
---|
798 | L63:
|
---|
799 | *line 398
|
---|
800 | L62:L61:L59:L51:L43:tst.l (sp)+
|
---|
801 | movem.l (sp)+,R3-R7
|
---|
802 | unlk R14
|
---|
803 | rts
|
---|
804 | .globl _dspdfst
|
---|
805 | .text
|
---|
806 | _dspdfst:
|
---|
807 | ~~dspdfst:
|
---|
808 | ~val=R7
|
---|
809 | ~buf=8
|
---|
810 | link R14,#0
|
---|
811 | movem.l R3-R7,-(sp)
|
---|
812 | ~chan=R6
|
---|
813 | ~port=R5
|
---|
814 | ~stim=R4
|
---|
815 | *line 416
|
---|
816 | move 12(R14),R7
|
---|
817 | *line 416
|
---|
818 | *line 416
|
---|
819 | cmp #4608,R7
|
---|
820 | bne L84
|
---|
821 | *line 417
|
---|
822 | *line 418
|
---|
823 | move.l #L85,(sp)
|
---|
824 | move.l 8(R14),-(sp)
|
---|
825 | jsr _strcpy
|
---|
826 | addq.l #4,sp
|
---|
827 | bra L83
|
---|
828 | *line 419
|
---|
829 | *line 420
|
---|
830 | *line 421
|
---|
831 | L84:
|
---|
832 | *line 422
|
---|
833 | move R7,R5
|
---|
834 | move #11,R0
|
---|
835 | lsr R0,R5
|
---|
836 | and #3,R5
|
---|
837 | *line 423
|
---|
838 | move R7,R6
|
---|
839 | lsr #7,R6
|
---|
840 | and #15,R6
|
---|
841 | *line 424
|
---|
842 | move R7,R4
|
---|
843 | and #127,R4
|
---|
844 | *line 426
|
---|
845 | clr R0
|
---|
846 | move R5,R0
|
---|
847 | bra L87
|
---|
848 | *line 427
|
---|
849 | L88:
|
---|
850 | *line 428
|
---|
851 | L89:
|
---|
852 | *line 429
|
---|
853 | *line 430
|
---|
854 | *line 431
|
---|
855 | *line 432
|
---|
856 | *line 433
|
---|
857 | move R6,(sp)
|
---|
858 | add #1,(sp)
|
---|
859 | move R5,-(sp)
|
---|
860 | add #1,(sp)
|
---|
861 | move R4,-(sp)
|
---|
862 | add #1,(sp)
|
---|
863 | clr R0
|
---|
864 | move R7,R0
|
---|
865 | and #-32768,R0
|
---|
866 | beq L10000
|
---|
867 | move.l #L91,-(sp)
|
---|
868 | bra L10002
|
---|
869 | L10000:move.l #L92,-(sp)
|
---|
870 | L10002:move.l #L90,-(sp)
|
---|
871 | move.l 8(R14),-(sp)
|
---|
872 | jsr _sprintf
|
---|
873 | adda.l #16,sp
|
---|
874 | *line 434
|
---|
875 | bra L86
|
---|
876 | *line 435
|
---|
877 | *line 436
|
---|
878 | *line 437
|
---|
879 | *line 438
|
---|
880 | L93:
|
---|
881 | *line 439
|
---|
882 | *line 440
|
---|
883 | *line 441
|
---|
884 | clr R0
|
---|
885 | move R6,R0
|
---|
886 | bra L95
|
---|
887 | *line 442
|
---|
888 | L96:
|
---|
889 | *line 443
|
---|
890 | *line 444
|
---|
891 | *line 445
|
---|
892 | *line 446
|
---|
893 | *line 447
|
---|
894 | move R4,(sp)
|
---|
895 | add #1,(sp)
|
---|
896 | clr R0
|
---|
897 | move R7,R0
|
---|
898 | and #-32768,R0
|
---|
899 | beq L10003
|
---|
900 | move.l #L98,-(sp)
|
---|
901 | bra L10005
|
---|
902 | L10003:move.l #L99,-(sp)
|
---|
903 | L10005:move.l #L97,-(sp)
|
---|
904 | move.l 8(R14),-(sp)
|
---|
905 | jsr _sprintf
|
---|
906 | adda.l #12,sp
|
---|
907 | *line 448
|
---|
908 | bra L94
|
---|
909 | *line 449
|
---|
910 | *line 450
|
---|
911 | L100:
|
---|
912 | *line 451
|
---|
913 | *line 452
|
---|
914 | *line 453
|
---|
915 | move R4,(sp)
|
---|
916 | add #1,(sp)
|
---|
917 | move.l #L101,-(sp)
|
---|
918 | move.l 8(R14),-(sp)
|
---|
919 | jsr _sprintf
|
---|
920 | addq.l #8,sp
|
---|
921 | bra L94
|
---|
922 | *line 454
|
---|
923 | *line 455
|
---|
924 | L102:
|
---|
925 | *line 456
|
---|
926 | *line 457
|
---|
927 | *line 458
|
---|
928 | move R4,(sp)
|
---|
929 | add #1,(sp)
|
---|
930 | move.l #L103,-(sp)
|
---|
931 | move.l 8(R14),-(sp)
|
---|
932 | jsr _sprintf
|
---|
933 | addq.l #8,sp
|
---|
934 | bra L94
|
---|
935 | *line 459
|
---|
936 | *line 460
|
---|
937 | L104:
|
---|
938 | *line 461
|
---|
939 | *line 462
|
---|
940 | *line 463
|
---|
941 | *line 464
|
---|
942 | *line 465
|
---|
943 | move R6,(sp)
|
---|
944 | add #1,(sp)
|
---|
945 | move R4,-(sp)
|
---|
946 | add #1,(sp)
|
---|
947 | clr R0
|
---|
948 | move R7,R0
|
---|
949 | and #-32768,R0
|
---|
950 | beq L10006
|
---|
951 | move.l #L106,-(sp)
|
---|
952 | bra L10008
|
---|
953 | L10006:move.l #L107,-(sp)
|
---|
954 | L10008:move.l #L105,-(sp)
|
---|
955 | move.l 8(R14),-(sp)
|
---|
956 | jsr _sprintf
|
---|
957 | adda.l #14,sp
|
---|
958 | bra L94
|
---|
959 | *line 466
|
---|
960 | *line 467
|
---|
961 | bra L94
|
---|
962 | L95:tst R0
|
---|
963 | beq L96
|
---|
964 | cmp #2,R0
|
---|
965 | beq L100
|
---|
966 | cmp #3,R0
|
---|
967 | beq L102
|
---|
968 | bra L104
|
---|
969 | L94:
|
---|
970 | *line 468
|
---|
971 | *line 469
|
---|
972 | bra L86
|
---|
973 | *line 470
|
---|
974 | *line 471
|
---|
975 | L108:
|
---|
976 | *line 472
|
---|
977 | *line 473
|
---|
978 | *line 474
|
---|
979 | move R6,(sp)
|
---|
980 | add #1,(sp)
|
---|
981 | move R5,-(sp)
|
---|
982 | add #1,(sp)
|
---|
983 | move R4,-(sp)
|
---|
984 | add #1,(sp)
|
---|
985 | move.l #L109,-(sp)
|
---|
986 | move.l 8(R14),-(sp)
|
---|
987 | jsr _sprintf
|
---|
988 | adda.l #12,sp
|
---|
989 | bra L86
|
---|
990 | *line 475
|
---|
991 | bra L86
|
---|
992 | L87:tst R0
|
---|
993 | beq L88
|
---|
994 | cmp #1,R0
|
---|
995 | beq L89
|
---|
996 | cmp #2,R0
|
---|
997 | beq L93
|
---|
998 | bra L108
|
---|
999 | L86:L83:tst.l (sp)+
|
---|
1000 | movem.l (sp)+,R4-R7
|
---|
1001 | unlk R14
|
---|
1002 | rts
|
---|
1003 | .globl _dfpdat
|
---|
1004 | .text
|
---|
1005 | _dfpdat:
|
---|
1006 | ~~dfpdat:
|
---|
1007 | ~pp=R13
|
---|
1008 | link R14,#-8
|
---|
1009 | movem.l R7-R7/R13-R13,-(sp)
|
---|
1010 | ~buf=L111
|
---|
1011 | .bss
|
---|
1012 | L111:.ds.b 32
|
---|
1013 | .text
|
---|
1014 | ~sgn=-2
|
---|
1015 | ~vp1=-4
|
---|
1016 | ~vp2=-6
|
---|
1017 | ~val=-8
|
---|
1018 | *line 496
|
---|
1019 | move.l 8(R14),R13
|
---|
1020 | *line 496
|
---|
1021 | move 14(R13),-8(R14)
|
---|
1022 | *line 498
|
---|
1023 | clr R0
|
---|
1024 | move 12(R13),R0
|
---|
1025 | bra L113
|
---|
1026 | *line 499
|
---|
1027 | L114:
|
---|
1028 | *line 500
|
---|
1029 | *line 501
|
---|
1030 | *line 502
|
---|
1031 | move -8(R14),R8
|
---|
1032 | add.l R8,R8
|
---|
1033 | add.l R8,R8
|
---|
1034 | move.l #_smdata,R9
|
---|
1035 | move.l 0(R8,R9.l),(sp)
|
---|
1036 | move.l #L111,-(sp)
|
---|
1037 | jsr _strcpy
|
---|
1038 | addq.l #4,sp
|
---|
1039 | bra L112
|
---|
1040 | *line 503
|
---|
1041 | *line 504
|
---|
1042 | L115:
|
---|
1043 | *line 505
|
---|
1044 | *line 506
|
---|
1045 | *line 507
|
---|
1046 | move.l #_ebuf,(sp)
|
---|
1047 | move -8(R14),-(sp)
|
---|
1048 | jsr _fr2dec
|
---|
1049 | addq.l #2,sp
|
---|
1050 | *line 508
|
---|
1051 | *line 509
|
---|
1052 | move.b 3+_ebuf,L111
|
---|
1053 | *line 510
|
---|
1054 | move.b _ebuf,1+L111
|
---|
1055 | *line 511
|
---|
1056 | move.b #46,2+L111
|
---|
1057 | *line 512
|
---|
1058 | move.b 1+_ebuf,3+L111
|
---|
1059 | *line 513
|
---|
1060 | move.b 2+_ebuf,4+L111
|
---|
1061 | *line 514
|
---|
1062 | clr.b 5+L111
|
---|
1063 | bra L112
|
---|
1064 | *line 515
|
---|
1065 | *line 516
|
---|
1066 | *line 517
|
---|
1067 | L116:
|
---|
1068 | *line 518
|
---|
1069 | *line 519
|
---|
1070 | *line 520
|
---|
1071 | move -8(R14),R0
|
---|
1072 | asr #5,R0
|
---|
1073 | move R0,-8(R14)
|
---|
1074 | *line 521
|
---|
1075 | *line 522
|
---|
1076 | *line 522
|
---|
1077 | tst -8(R14)
|
---|
1078 | bge L117
|
---|
1079 | *line 523
|
---|
1080 | *line 524
|
---|
1081 | move -8(R14),R0
|
---|
1082 | neg R0
|
---|
1083 | move R0,-8(R14)
|
---|
1084 | *line 525
|
---|
1085 | move #45,-2(R14)
|
---|
1086 | *line 526
|
---|
1087 | bra L118
|
---|
1088 | L117:
|
---|
1089 | *line 527
|
---|
1090 | *line 528
|
---|
1091 | *line 529
|
---|
1092 | move #43,-2(R14)
|
---|
1093 | L118:
|
---|
1094 | *line 530
|
---|
1095 | *line 531
|
---|
1096 | *line 532
|
---|
1097 | move -8(R14),R0
|
---|
1098 | ext.l R0
|
---|
1099 | divs #100,R0
|
---|
1100 | move R0,-4(R14)
|
---|
1101 | *line 533
|
---|
1102 | move -8(R14),R0
|
---|
1103 | clr R1
|
---|
1104 | move -4(R14),R1
|
---|
1105 | mulu #100,R1
|
---|
1106 | sub R1,R0
|
---|
1107 | move R0,-6(R14)
|
---|
1108 | *line 534
|
---|
1109 | *line 535
|
---|
1110 | *line 535
|
---|
1111 | cmp #9,-4(R14)
|
---|
1112 | bls L119
|
---|
1113 | *line 536
|
---|
1114 | *line 537
|
---|
1115 | clr -4(R14)
|
---|
1116 | *line 538
|
---|
1117 | *line 539
|
---|
1118 | *line 540
|
---|
1119 | cmp #43,-2(R14)
|
---|
1120 | bne L120
|
---|
1121 | *line 540
|
---|
1122 | move #160,-2(R14)
|
---|
1123 | *line 541
|
---|
1124 | bra L121
|
---|
1125 | L120:
|
---|
1126 | *line 542
|
---|
1127 | move #161,-2(R14)
|
---|
1128 | L121:
|
---|
1129 | *line 543
|
---|
1130 | *line 544
|
---|
1131 | L119:
|
---|
1132 | *line 545
|
---|
1133 | move -6(R14),(sp)
|
---|
1134 | move -4(R14),-(sp)
|
---|
1135 | move -2(R14),-(sp)
|
---|
1136 | move.l #L122,-(sp)
|
---|
1137 | move.l #L111,-(sp)
|
---|
1138 | jsr _sprintf
|
---|
1139 | adda.l #12,sp
|
---|
1140 | bra L112
|
---|
1141 | *line 546
|
---|
1142 | *line 547
|
---|
1143 | *line 548
|
---|
1144 | L123:
|
---|
1145 | *line 549
|
---|
1146 | *line 550
|
---|
1147 | *line 551
|
---|
1148 | move -8(R14),(sp)
|
---|
1149 | jsr _fromfpu
|
---|
1150 | move R0,-4(R14)
|
---|
1151 | *line 552
|
---|
1152 | *line 553
|
---|
1153 | move -4(R14),(sp)
|
---|
1154 | move.l #L124,-(sp)
|
---|
1155 | move.l #L111,-(sp)
|
---|
1156 | jsr _sprintf
|
---|
1157 | addq.l #8,sp
|
---|
1158 | bra L112
|
---|
1159 | *line 554
|
---|
1160 | *line 555
|
---|
1161 | L125:
|
---|
1162 | *line 556
|
---|
1163 | *line 557
|
---|
1164 | *line 558
|
---|
1165 | *line 559
|
---|
1166 | clr R0
|
---|
1167 | move 8(R13),R0
|
---|
1168 | and #255,R0
|
---|
1169 | cmp #22,R0
|
---|
1170 | bne L126
|
---|
1171 | *line 559
|
---|
1172 | btst #0,-7(R14)
|
---|
1173 | beq L10009
|
---|
1174 | move.l #L128,(sp)
|
---|
1175 | bra L10011
|
---|
1176 | L10009:move.l #L129,(sp)
|
---|
1177 | L10011:move.l #L127,-(sp)
|
---|
1178 | move.l #L111,-(sp)
|
---|
1179 | jsr _sprintf
|
---|
1180 | addq.l #8,sp
|
---|
1181 | *line 560
|
---|
1182 | bra L130
|
---|
1183 | L126:
|
---|
1184 | *line 561
|
---|
1185 | btst #0,-7(R14)
|
---|
1186 | beq L10012
|
---|
1187 | move.l #L132,(sp)
|
---|
1188 | bra L10014
|
---|
1189 | L10012:move.l #L133,(sp)
|
---|
1190 | L10014:move.l #L131,-(sp)
|
---|
1191 | move.l #L111,-(sp)
|
---|
1192 | jsr _sprintf
|
---|
1193 | addq.l #8,sp
|
---|
1194 | L130:
|
---|
1195 | *line 562
|
---|
1196 | bra L112
|
---|
1197 | *line 563
|
---|
1198 | *line 564
|
---|
1199 | L134:
|
---|
1200 | *line 565
|
---|
1201 | *line 566
|
---|
1202 | *line 567
|
---|
1203 | move -8(R14),(sp)
|
---|
1204 | move.l #L135,-(sp)
|
---|
1205 | move.l #L111,-(sp)
|
---|
1206 | jsr _sprintf
|
---|
1207 | addq.l #8,sp
|
---|
1208 | bra L112
|
---|
1209 | *line 568
|
---|
1210 | bra L112
|
---|
1211 | L113:cmp #4,R0
|
---|
1212 | bhi L134
|
---|
1213 | asl #2,R0
|
---|
1214 | move R0,R8
|
---|
1215 | add.l #L136,R8
|
---|
1216 | move.l (R8),R8
|
---|
1217 | jmp (R8)
|
---|
1218 | .data
|
---|
1219 | L136:.dc.l L114
|
---|
1220 | .dc.l L115
|
---|
1221 | .dc.l L123
|
---|
1222 | .dc.l L116
|
---|
1223 | .dc.l L125
|
---|
1224 | .text
|
---|
1225 | L112:
|
---|
1226 | *line 571
|
---|
1227 | move.l #L111,R0
|
---|
1228 | bra L110
|
---|
1229 | L110:tst.l (sp)+
|
---|
1230 | movem.l (sp)+,R13-R13
|
---|
1231 | unlk R14
|
---|
1232 | rts
|
---|
1233 | .globl _pafpu1
|
---|
1234 | .text
|
---|
1235 | _pafpu1:
|
---|
1236 | ~~pafpu1:
|
---|
1237 | ~pp=R13
|
---|
1238 | ~bf=8
|
---|
1239 | ~ad=12
|
---|
1240 | ~gt=16
|
---|
1241 | ~gn=18
|
---|
1242 | link R14,#0
|
---|
1243 | movem.l R7-R7/R13-R13,-(sp)
|
---|
1244 | *line 591
|
---|
1245 | move.l 20(R14),R13
|
---|
1246 | *line 591
|
---|
1247 | move.l R13,(sp)
|
---|
1248 | jsr _dfpdat
|
---|
1249 | move.l R0,(sp)
|
---|
1250 | move 18(R14),-(sp)
|
---|
1251 | move 16(R14),-(sp)
|
---|
1252 | clr R0
|
---|
1253 | move 12(R13),R0
|
---|
1254 | lsl #2,R0
|
---|
1255 | swap R0
|
---|
1256 | clr R0
|
---|
1257 | swap R0
|
---|
1258 | move.l R0,R8
|
---|
1259 | move.l #_stdata,R9
|
---|
1260 | move.l 0(R8,R9.l),-(sp)
|
---|
1261 | move.l 12(R14),-(sp)
|
---|
1262 | move.l #L138,-(sp)
|
---|
1263 | move.l 8(R14),-(sp)
|
---|
1264 | jsr _sprintf
|
---|
1265 | adda.l #20,sp
|
---|
1266 | L137:tst.l (sp)+
|
---|
1267 | movem.l (sp)+,R13-R13
|
---|
1268 | unlk R14
|
---|
1269 | rts
|
---|
1270 | .globl _pafpu2
|
---|
1271 | .text
|
---|
1272 | _pafpu2:
|
---|
1273 | ~~pafpu2:
|
---|
1274 | ~pp=R13
|
---|
1275 | ~bf=8
|
---|
1276 | ~ad=12
|
---|
1277 | ~os=16
|
---|
1278 | ~gt=18
|
---|
1279 | ~gn=20
|
---|
1280 | link R14,#0
|
---|
1281 | movem.l R7-R7/R13-R13,-(sp)
|
---|
1282 | *line 608
|
---|
1283 | move.l 22(R14),R13
|
---|
1284 | *line 608
|
---|
1285 | move.l R13,(sp)
|
---|
1286 | jsr _dfpdat
|
---|
1287 | move.l R0,(sp)
|
---|
1288 | move 20(R14),-(sp)
|
---|
1289 | move 18(R14),-(sp)
|
---|
1290 | clr R0
|
---|
1291 | move 12(R13),R0
|
---|
1292 | lsl #2,R0
|
---|
1293 | swap R0
|
---|
1294 | clr R0
|
---|
1295 | swap R0
|
---|
1296 | move.l R0,R8
|
---|
1297 | move.l #_stdata,R9
|
---|
1298 | move.l 0(R8,R9.l),-(sp)
|
---|
1299 | move 16(R14),-(sp)
|
---|
1300 | move.l 12(R14),-(sp)
|
---|
1301 | move.l #L140,-(sp)
|
---|
1302 | move.l 8(R14),-(sp)
|
---|
1303 | jsr _sprintf
|
---|
1304 | adda.l #22,sp
|
---|
1305 | L139:tst.l (sp)+
|
---|
1306 | movem.l (sp)+,R13-R13
|
---|
1307 | unlk R14
|
---|
1308 | rts
|
---|
1309 | .globl _pafpu3
|
---|
1310 | .text
|
---|
1311 | _pafpu3:
|
---|
1312 | ~~pafpu3:
|
---|
1313 | ~pp=R13
|
---|
1314 | ~bf=8
|
---|
1315 | ~ad=12
|
---|
1316 | link R14,#0
|
---|
1317 | movem.l R7-R7/R13-R13,-(sp)
|
---|
1318 | *line 624
|
---|
1319 | move.l 16(R14),R13
|
---|
1320 | *line 624
|
---|
1321 | move.l R13,(sp)
|
---|
1322 | jsr _dfpdat
|
---|
1323 | move.l R0,(sp)
|
---|
1324 | clr R0
|
---|
1325 | move 12(R13),R0
|
---|
1326 | lsl #2,R0
|
---|
1327 | swap R0
|
---|
1328 | clr R0
|
---|
1329 | swap R0
|
---|
1330 | move.l R0,R8
|
---|
1331 | move.l #_stdata,R9
|
---|
1332 | move.l 0(R8,R9.l),-(sp)
|
---|
1333 | move.l 12(R14),-(sp)
|
---|
1334 | move.l #L142,-(sp)
|
---|
1335 | move.l 8(R14),-(sp)
|
---|
1336 | jsr _sprintf
|
---|
1337 | adda.l #16,sp
|
---|
1338 | L141:tst.l (sp)+
|
---|
1339 | movem.l (sp)+,R13-R13
|
---|
1340 | unlk R14
|
---|
1341 | rts
|
---|
1342 | .globl _dspdest
|
---|
1343 | .text
|
---|
1344 | _dspdest:
|
---|
1345 | ~~dspdest:
|
---|
1346 | ~pp=R13
|
---|
1347 | ~buf=8
|
---|
1348 | link R14,#-42
|
---|
1349 | movem.l R7-R7/R13-R13,-(sp)
|
---|
1350 | ~chan=-2
|
---|
1351 | ~osc=-4
|
---|
1352 | ~port=-6
|
---|
1353 | ~stim=-8
|
---|
1354 | ~vg=-10
|
---|
1355 | ~vgt=-12
|
---|
1356 | ~vgn=-14
|
---|
1357 | ~vp1=-16
|
---|
1358 | ~vp2=-18
|
---|
1359 | ~sgn=-20
|
---|
1360 | ~val=-22
|
---|
1361 | ~buf2=-38
|
---|
1362 | ~rtype=-42
|
---|
1363 | *line 644
|
---|
1364 | move.l 12(R14),R13
|
---|
1365 | *line 644
|
---|
1366 | clr R0
|
---|
1367 | move 10(R13),R0
|
---|
1368 | move #11,R1
|
---|
1369 | lsr R1,R0
|
---|
1370 | and #3,R0
|
---|
1371 | move R0,-6(R14)
|
---|
1372 | *line 645
|
---|
1373 | clr R0
|
---|
1374 | move 10(R13),R0
|
---|
1375 | lsr #7,R0
|
---|
1376 | and #15,R0
|
---|
1377 | move R0,-2(R14)
|
---|
1378 | *line 646
|
---|
1379 | clr R0
|
---|
1380 | move 10(R13),R0
|
---|
1381 | and #127,R0
|
---|
1382 | move R0,-8(R14)
|
---|
1383 | *line 648
|
---|
1384 | clr R0
|
---|
1385 | move 10(R13),R0
|
---|
1386 | lsr #8,R0
|
---|
1387 | and #255,R0
|
---|
1388 | move R0,-10(R14)
|
---|
1389 | *line 649
|
---|
1390 | clr R0
|
---|
1391 | move 10(R13),R0
|
---|
1392 | and #255,R0
|
---|
1393 | add #1,R0
|
---|
1394 | move R0,-4(R14)
|
---|
1395 | *line 651
|
---|
1396 | *line 651
|
---|
1397 | cmp #11,-10(R14)
|
---|
1398 | bls L144
|
---|
1399 | *line 652
|
---|
1400 | *line 653
|
---|
1401 | move #71,-12(R14)
|
---|
1402 | *line 654
|
---|
1403 | clr R0
|
---|
1404 | move -10(R14),R0
|
---|
1405 | add #-11,R0
|
---|
1406 | move R0,-14(R14)
|
---|
1407 | *line 655
|
---|
1408 | bra L145
|
---|
1409 | L144:
|
---|
1410 | *line 656
|
---|
1411 | *line 657
|
---|
1412 | *line 658
|
---|
1413 | move #86,-12(R14)
|
---|
1414 | *line 659
|
---|
1415 | clr R0
|
---|
1416 | move -10(R14),R0
|
---|
1417 | add #1,R0
|
---|
1418 | move R0,-14(R14)
|
---|
1419 | L145:
|
---|
1420 | *line 662
|
---|
1421 | cmp #9,-14(R14)
|
---|
1422 | bls L10015
|
---|
1423 | move #162,R0
|
---|
1424 | bra L10017
|
---|
1425 | L10015:move #48,R0
|
---|
1426 | L10017:add -14(R14),R0
|
---|
1427 | move R0,-14(R14)
|
---|
1428 | *line 666
|
---|
1429 | clr R0
|
---|
1430 | move 8(R13),R0
|
---|
1431 | and #255,R0
|
---|
1432 | bra L147
|
---|
1433 | *line 667
|
---|
1434 | L148:
|
---|
1435 | *line 668
|
---|
1436 | *line 669
|
---|
1437 | *line 670
|
---|
1438 | *line 671
|
---|
1439 | *line 672
|
---|
1440 | clr R0
|
---|
1441 | move 14(R13),R0
|
---|
1442 | and #3,R0
|
---|
1443 | lsl #2,R0
|
---|
1444 | swap R0
|
---|
1445 | clr R0
|
---|
1446 | swap R0
|
---|
1447 | move.l R0,R8
|
---|
1448 | move.l #_trdata,R9
|
---|
1449 | move.l 0(R8,R9.l),(sp)
|
---|
1450 | move -2(R14),-(sp)
|
---|
1451 | add #1,(sp)
|
---|
1452 | move -6(R14),-(sp)
|
---|
1453 | add #1,(sp)
|
---|
1454 | move -8(R14),-(sp)
|
---|
1455 | add #1,(sp)
|
---|
1456 | move.l #L149,-(sp)
|
---|
1457 | move.l 8(R14),-(sp)
|
---|
1458 | jsr _sprintf
|
---|
1459 | adda.l #14,sp
|
---|
1460 | *line 673
|
---|
1461 | bra L146
|
---|
1462 | *line 674
|
---|
1463 | *line 675
|
---|
1464 | L150:
|
---|
1465 | *line 676
|
---|
1466 | *line 677
|
---|
1467 | *line 678
|
---|
1468 | *line 679
|
---|
1469 | *line 680
|
---|
1470 | clr R0
|
---|
1471 | move 14(R13),R0
|
---|
1472 | and #1,R0
|
---|
1473 | lsl #2,R0
|
---|
1474 | swap R0
|
---|
1475 | clr R0
|
---|
1476 | swap R0
|
---|
1477 | move.l R0,R8
|
---|
1478 | move.l #_ssdata,R9
|
---|
1479 | move.l 0(R8,R9.l),(sp)
|
---|
1480 | move -8(R14),-(sp)
|
---|
1481 | add #1,(sp)
|
---|
1482 | move.l #L151,-(sp)
|
---|
1483 | move.l 8(R14),-(sp)
|
---|
1484 | jsr _sprintf
|
---|
1485 | adda.l #10,sp
|
---|
1486 | *line 681
|
---|
1487 | bra L146
|
---|
1488 | *line 682
|
---|
1489 | *line 683
|
---|
1490 | L152:
|
---|
1491 | *line 684
|
---|
1492 | *line 685
|
---|
1493 | *line 686
|
---|
1494 | *line 687
|
---|
1495 | *line 688
|
---|
1496 | clr R0
|
---|
1497 | move 14(R13),R0
|
---|
1498 | and #3,R0
|
---|
1499 | lsl #2,R0
|
---|
1500 | swap R0
|
---|
1501 | clr R0
|
---|
1502 | swap R0
|
---|
1503 | move.l R0,R8
|
---|
1504 | move.l #_trdata,R9
|
---|
1505 | move.l 0(R8,R9.l),(sp)
|
---|
1506 | move -8(R14),-(sp)
|
---|
1507 | add #1,(sp)
|
---|
1508 | move.l #L153,-(sp)
|
---|
1509 | move.l 8(R14),-(sp)
|
---|
1510 | jsr _sprintf
|
---|
1511 | adda.l #10,sp
|
---|
1512 | *line 689
|
---|
1513 | bra L146
|
---|
1514 | *line 690
|
---|
1515 | *line 691
|
---|
1516 | *line 692
|
---|
1517 | L154:
|
---|
1518 | *line 693
|
---|
1519 | *line 694
|
---|
1520 | *line 695
|
---|
1521 | *line 695
|
---|
1522 | btst #0,11(R13)
|
---|
1523 | beq L155
|
---|
1524 | *line 696
|
---|
1525 | *line 697
|
---|
1526 | *line 698
|
---|
1527 | *line 699
|
---|
1528 | *line 700
|
---|
1529 | *line 701
|
---|
1530 | *line 702
|
---|
1531 | clr R0
|
---|
1532 | move 12(R13),R0
|
---|
1533 | lsr #8,R0
|
---|
1534 | move R0,(sp)
|
---|
1535 | and #3,(sp)
|
---|
1536 | add #48,(sp)
|
---|
1537 | clr R0
|
---|
1538 | move 12(R13),R0
|
---|
1539 | move #10,R1
|
---|
1540 | lsr R1,R0
|
---|
1541 | move R0,-(sp)
|
---|
1542 | and #3,(sp)
|
---|
1543 | add #48,(sp)
|
---|
1544 | clr R0
|
---|
1545 | move 12(R13),R0
|
---|
1546 | move #12,R1
|
---|
1547 | lsr R1,R0
|
---|
1548 | move R0,-(sp)
|
---|
1549 | and #3,(sp)
|
---|
1550 | add #48,(sp)
|
---|
1551 | clr R0
|
---|
1552 | move 12(R13),R0
|
---|
1553 | move #14,R1
|
---|
1554 | lsr R1,R0
|
---|
1555 | move R0,-(sp)
|
---|
1556 | and #3,(sp)
|
---|
1557 | add #48,(sp)
|
---|
1558 | move 10(R13),-(sp)
|
---|
1559 | add #65,(sp)
|
---|
1560 | move.l #L156,-(sp)
|
---|
1561 | move.l 8(R14),-(sp)
|
---|
1562 | jsr _sprintf
|
---|
1563 | adda.l #16,sp
|
---|
1564 | *line 703
|
---|
1565 | bra L157
|
---|
1566 | L155:
|
---|
1567 | *line 704
|
---|
1568 | *line 705
|
---|
1569 | *line 706
|
---|
1570 | *line 707
|
---|
1571 | *line 708
|
---|
1572 | *line 709
|
---|
1573 | *line 710
|
---|
1574 | clr R0
|
---|
1575 | move 12(R13),R0
|
---|
1576 | move #10,R1
|
---|
1577 | lsr R1,R0
|
---|
1578 | move R0,(sp)
|
---|
1579 | and #3,(sp)
|
---|
1580 | add #48,(sp)
|
---|
1581 | clr R0
|
---|
1582 | move 12(R13),R0
|
---|
1583 | move #12,R1
|
---|
1584 | lsr R1,R0
|
---|
1585 | move R0,-(sp)
|
---|
1586 | and #3,(sp)
|
---|
1587 | add #48,(sp)
|
---|
1588 | clr R0
|
---|
1589 | move 12(R13),R0
|
---|
1590 | move #14,R1
|
---|
1591 | lsr R1,R0
|
---|
1592 | move R0,-(sp)
|
---|
1593 | and #3,(sp)
|
---|
1594 | add #48,(sp)
|
---|
1595 | move 10(R13),-(sp)
|
---|
1596 | add #65,(sp)
|
---|
1597 | move.l #L158,-(sp)
|
---|
1598 | move.l 8(R14),-(sp)
|
---|
1599 | jsr _sprintf
|
---|
1600 | adda.l #14,sp
|
---|
1601 | L157:
|
---|
1602 | *line 711
|
---|
1603 | *line 712
|
---|
1604 | bra L146
|
---|
1605 | *line 713
|
---|
1606 | *line 714
|
---|
1607 | L159:
|
---|
1608 | *line 715
|
---|
1609 | *line 716
|
---|
1610 | *line 717
|
---|
1611 | *line 718
|
---|
1612 | *line 719
|
---|
1613 | move 12(R13),(sp)
|
---|
1614 | move 10(R13),-(sp)
|
---|
1615 | add #1,(sp)
|
---|
1616 | move.l #L160,-(sp)
|
---|
1617 | move.l 8(R14),-(sp)
|
---|
1618 | jsr _sprintf
|
---|
1619 | adda.l #10,sp
|
---|
1620 | *line 720
|
---|
1621 | bra L146
|
---|
1622 | *line 721
|
---|
1623 | *line 722
|
---|
1624 | L161:
|
---|
1625 | *line 723
|
---|
1626 | *line 724
|
---|
1627 | *line 725
|
---|
1628 | *line 726
|
---|
1629 | *line 727
|
---|
1630 | clr R0
|
---|
1631 | move 14(R13),R0
|
---|
1632 | and #1,R0
|
---|
1633 | lsl #2,R0
|
---|
1634 | swap R0
|
---|
1635 | clr R0
|
---|
1636 | swap R0
|
---|
1637 | move.l R0,R8
|
---|
1638 | move.l #_ssdata,R9
|
---|
1639 | move.l 0(R8,R9.l),(sp)
|
---|
1640 | move 10(R13),-(sp)
|
---|
1641 | add #1,(sp)
|
---|
1642 | move.l #L162,-(sp)
|
---|
1643 | move.l 8(R14),-(sp)
|
---|
1644 | jsr _sprintf
|
---|
1645 | adda.l #10,sp
|
---|
1646 | *line 728
|
---|
1647 | bra L146
|
---|
1648 | *line 729
|
---|
1649 | *line 730
|
---|
1650 | L163:
|
---|
1651 | *line 731
|
---|
1652 | *line 732
|
---|
1653 | *line 733
|
---|
1654 | *line 734
|
---|
1655 | move 12(R13),(sp)
|
---|
1656 | move.l #L164,-(sp)
|
---|
1657 | move.l 8(R14),-(sp)
|
---|
1658 | jsr _sprintf
|
---|
1659 | addq.l #8,sp
|
---|
1660 | *line 735
|
---|
1661 | bra L146
|
---|
1662 | *line 736
|
---|
1663 | *line 737
|
---|
1664 | *line 738
|
---|
1665 | L165:
|
---|
1666 | *line 739
|
---|
1667 | *line 740
|
---|
1668 | *line 741
|
---|
1669 | move.l #L166,-42(R14)
|
---|
1670 | bra L167
|
---|
1671 | *line 742
|
---|
1672 | *line 743
|
---|
1673 | L168:
|
---|
1674 | *line 744
|
---|
1675 | *line 745
|
---|
1676 | *line 746
|
---|
1677 | move.l #L169,-42(R14)
|
---|
1678 | *line 747
|
---|
1679 | L167:
|
---|
1680 | *line 748
|
---|
1681 | *line 749
|
---|
1682 | *line 750
|
---|
1683 | *line 750
|
---|
1684 | btst #0,13(R13)
|
---|
1685 | beq L170
|
---|
1686 | *line 751
|
---|
1687 | *line 752
|
---|
1688 | *line 753
|
---|
1689 | *line 754
|
---|
1690 | move 14(R13),(sp)
|
---|
1691 | add #1,(sp)
|
---|
1692 | move.l -42(R14),-(sp)
|
---|
1693 | move 10(R13),-(sp)
|
---|
1694 | add #1,(sp)
|
---|
1695 | move.l #L171,-(sp)
|
---|
1696 | move.l 8(R14),-(sp)
|
---|
1697 | jsr _sprintf
|
---|
1698 | adda.l #14,sp
|
---|
1699 | *line 755
|
---|
1700 | bra L172
|
---|
1701 | L170:
|
---|
1702 | *line 756
|
---|
1703 | *line 757
|
---|
1704 | *line 758
|
---|
1705 | *line 758
|
---|
1706 | move 14(R13),-22(R14)
|
---|
1707 | bge L173
|
---|
1708 | *line 759
|
---|
1709 | *line 760
|
---|
1710 | move #45,-20(R14)
|
---|
1711 | *line 761
|
---|
1712 | move -22(R14),R0
|
---|
1713 | neg R0
|
---|
1714 | move R0,-22(R14)
|
---|
1715 | *line 762
|
---|
1716 | bra L174
|
---|
1717 | L173:
|
---|
1718 | *line 763
|
---|
1719 | *line 764
|
---|
1720 | *line 765
|
---|
1721 | move #43,-20(R14)
|
---|
1722 | L174:
|
---|
1723 | *line 766
|
---|
1724 | *line 767
|
---|
1725 | *line 768
|
---|
1726 | *line 769
|
---|
1727 | *line 770
|
---|
1728 | move -22(R14),(sp)
|
---|
1729 | move -20(R14),-(sp)
|
---|
1730 | move.l -42(R14),-(sp)
|
---|
1731 | move 10(R13),-(sp)
|
---|
1732 | add #1,(sp)
|
---|
1733 | move.l #L175,-(sp)
|
---|
1734 | move.l 8(R14),-(sp)
|
---|
1735 | jsr _sprintf
|
---|
1736 | adda.l #16,sp
|
---|
1737 | L172:
|
---|
1738 | *line 771
|
---|
1739 | *line 772
|
---|
1740 | bra L146
|
---|
1741 | *line 773
|
---|
1742 | *line 774
|
---|
1743 | L176:
|
---|
1744 | *line 775
|
---|
1745 | *line 776
|
---|
1746 | *line 777
|
---|
1747 | *line 778
|
---|
1748 | move 12(R13),(sp)
|
---|
1749 | move -14(R14),-(sp)
|
---|
1750 | move -12(R14),-(sp)
|
---|
1751 | move.l #L177,-(sp)
|
---|
1752 | move.l 8(R14),-(sp)
|
---|
1753 | jsr _sprintf
|
---|
1754 | adda.l #12,sp
|
---|
1755 | *line 779
|
---|
1756 | bra L146
|
---|
1757 | *line 780
|
---|
1758 | *line 781
|
---|
1759 | *line 782
|
---|
1760 | L178:
|
---|
1761 | *line 783
|
---|
1762 | *line 784
|
---|
1763 | *line 785
|
---|
1764 | clr R0
|
---|
1765 | move 14(R13),R0
|
---|
1766 | lsr #1,R0
|
---|
1767 | move R0,-22(R14)
|
---|
1768 | *line 786
|
---|
1769 | *line 787
|
---|
1770 | clr R0
|
---|
1771 | move 12(R13),R0
|
---|
1772 | bra L180
|
---|
1773 | *line 788
|
---|
1774 | L181:
|
---|
1775 | *line 789
|
---|
1776 | *line 790
|
---|
1777 | *line 791
|
---|
1778 | *line 791
|
---|
1779 | tst -22(R14)
|
---|
1780 | bge L182
|
---|
1781 | *line 792
|
---|
1782 | *line 793
|
---|
1783 | move #45,-20(R14)
|
---|
1784 | *line 794
|
---|
1785 | move -22(R14),R0
|
---|
1786 | neg R0
|
---|
1787 | move R0,-22(R14)
|
---|
1788 | *line 795
|
---|
1789 | bra L183
|
---|
1790 | L182:
|
---|
1791 | *line 796
|
---|
1792 | *line 797
|
---|
1793 | *line 798
|
---|
1794 | move #43,-20(R14)
|
---|
1795 | L183:
|
---|
1796 | *line 799
|
---|
1797 | *line 800
|
---|
1798 | *line 801
|
---|
1799 | *line 802
|
---|
1800 | move -22(R14),(sp)
|
---|
1801 | move -20(R14),-(sp)
|
---|
1802 | move -14(R14),-(sp)
|
---|
1803 | move -12(R14),-(sp)
|
---|
1804 | move -4(R14),-(sp)
|
---|
1805 | move.l #L184,-(sp)
|
---|
1806 | move.l 8(R14),-(sp)
|
---|
1807 | jsr _sprintf
|
---|
1808 | adda.l #16,sp
|
---|
1809 | *line 803
|
---|
1810 | bra L179
|
---|
1811 | *line 804
|
---|
1812 | *line 805
|
---|
1813 | L185:
|
---|
1814 | *line 806
|
---|
1815 | *line 807
|
---|
1816 | *line 808
|
---|
1817 | move -22(R14),(sp)
|
---|
1818 | jsr _int2rat
|
---|
1819 | *line 809
|
---|
1820 | *line 810
|
---|
1821 | *line 811
|
---|
1822 | move.l #_ebuf,(sp)
|
---|
1823 | move -14(R14),-(sp)
|
---|
1824 | move -12(R14),-(sp)
|
---|
1825 | move -4(R14),-(sp)
|
---|
1826 | move.l #L186,-(sp)
|
---|
1827 | move.l 8(R14),-(sp)
|
---|
1828 | jsr _sprintf
|
---|
1829 | adda.l #14,sp
|
---|
1830 | *line 812
|
---|
1831 | bra L179
|
---|
1832 | *line 813
|
---|
1833 | *line 814
|
---|
1834 | L187:
|
---|
1835 | *line 815
|
---|
1836 | *line 816
|
---|
1837 | *line 817
|
---|
1838 | move -22(R14),R0
|
---|
1839 | ext.l R0
|
---|
1840 | divs #10,R0
|
---|
1841 | move R0,-16(R14)
|
---|
1842 | *line 818
|
---|
1843 | move -22(R14),R0
|
---|
1844 | clr R1
|
---|
1845 | move -16(R14),R1
|
---|
1846 | mulu #10,R1
|
---|
1847 | sub R1,R0
|
---|
1848 | move R0,-18(R14)
|
---|
1849 | *line 819
|
---|
1850 | *line 820
|
---|
1851 | *line 821
|
---|
1852 | move -18(R14),(sp)
|
---|
1853 | move -16(R14),-(sp)
|
---|
1854 | move -14(R14),-(sp)
|
---|
1855 | move -12(R14),-(sp)
|
---|
1856 | move -4(R14),-(sp)
|
---|
1857 | move.l #L188,-(sp)
|
---|
1858 | move.l 8(R14),-(sp)
|
---|
1859 | jsr _sprintf
|
---|
1860 | adda.l #16,sp
|
---|
1861 | *line 822
|
---|
1862 | bra L179
|
---|
1863 | *line 823
|
---|
1864 | *line 824
|
---|
1865 | *line 825
|
---|
1866 | L189:
|
---|
1867 | *line 826
|
---|
1868 | *line 827
|
---|
1869 | *line 828
|
---|
1870 | move -22(R14),(sp)
|
---|
1871 | move.l #_ebuf,-(sp)
|
---|
1872 | jsr _cnvc2p
|
---|
1873 | addq.l #4,sp
|
---|
1874 | *line 829
|
---|
1875 | *line 830
|
---|
1876 | *line 831
|
---|
1877 | move.l #_ebuf,(sp)
|
---|
1878 | move -14(R14),-(sp)
|
---|
1879 | move -12(R14),-(sp)
|
---|
1880 | move -4(R14),-(sp)
|
---|
1881 | move.l #L190,-(sp)
|
---|
1882 | move.l 8(R14),-(sp)
|
---|
1883 | jsr _sprintf
|
---|
1884 | adda.l #14,sp
|
---|
1885 | *line 832
|
---|
1886 | bra L179
|
---|
1887 | *line 833
|
---|
1888 | *line 834
|
---|
1889 | L191:
|
---|
1890 | *line 835
|
---|
1891 | *line 836
|
---|
1892 | bra L179
|
---|
1893 | *line 837
|
---|
1894 | bra L179
|
---|
1895 | L180:tst R0
|
---|
1896 | beq L181
|
---|
1897 | cmp #1,R0
|
---|
1898 | beq L185
|
---|
1899 | cmp #2,R0
|
---|
1900 | beq L187
|
---|
1901 | cmp #3,R0
|
---|
1902 | beq L189
|
---|
1903 | bra L191
|
---|
1904 | L179:
|
---|
1905 | *line 838
|
---|
1906 | *line 839
|
---|
1907 | bra L146
|
---|
1908 | *line 840
|
---|
1909 | *line 841
|
---|
1910 | *line 842
|
---|
1911 | L192:
|
---|
1912 | *line 843
|
---|
1913 | *line 844
|
---|
1914 | *line 845
|
---|
1915 | move #65,-20(R14)
|
---|
1916 | bra L193
|
---|
1917 | *line 846
|
---|
1918 | *line 847
|
---|
1919 | L194:
|
---|
1920 | *line 848
|
---|
1921 | *line 849
|
---|
1922 | *line 850
|
---|
1923 | move #66,-20(R14)
|
---|
1924 | *line 851
|
---|
1925 | L193:
|
---|
1926 | *line 852
|
---|
1927 | *line 853
|
---|
1928 | *line 854
|
---|
1929 | *line 855
|
---|
1930 | move 12(R13),(sp)
|
---|
1931 | move -14(R14),-(sp)
|
---|
1932 | move -12(R14),-(sp)
|
---|
1933 | move -20(R14),-(sp)
|
---|
1934 | move.l #L195,-(sp)
|
---|
1935 | move.l 8(R14),-(sp)
|
---|
1936 | jsr _sprintf
|
---|
1937 | adda.l #14,sp
|
---|
1938 | *line 856
|
---|
1939 | bra L146
|
---|
1940 | *line 857
|
---|
1941 | *line 858
|
---|
1942 | L196:
|
---|
1943 | *line 859
|
---|
1944 | *line 860
|
---|
1945 | *line 861
|
---|
1946 | *line 862
|
---|
1947 | move 12(R13),(sp)
|
---|
1948 | move -14(R14),-(sp)
|
---|
1949 | move -12(R14),-(sp)
|
---|
1950 | move.l #L197,-(sp)
|
---|
1951 | move.l 8(R14),-(sp)
|
---|
1952 | jsr _sprintf
|
---|
1953 | adda.l #12,sp
|
---|
1954 | *line 863
|
---|
1955 | bra L146
|
---|
1956 | *line 864
|
---|
1957 | *line 865
|
---|
1958 | *line 866
|
---|
1959 | L198:
|
---|
1960 | *line 867
|
---|
1961 | *line 868
|
---|
1962 | *line 869
|
---|
1963 | move.l R13,(sp)
|
---|
1964 | move -14(R14),-(sp)
|
---|
1965 | move -12(R14),-(sp)
|
---|
1966 | move.l #L199,-(sp)
|
---|
1967 | move.l 8(R14),-(sp)
|
---|
1968 | jsr _pafpu1
|
---|
1969 | adda.l #12,sp
|
---|
1970 | bra L146
|
---|
1971 | *line 870
|
---|
1972 | *line 871
|
---|
1973 | L200:
|
---|
1974 | *line 872
|
---|
1975 | *line 873
|
---|
1976 | *line 874
|
---|
1977 | move.l R13,(sp)
|
---|
1978 | move -14(R14),-(sp)
|
---|
1979 | move -12(R14),-(sp)
|
---|
1980 | move -4(R14),-(sp)
|
---|
1981 | move.l #L201,-(sp)
|
---|
1982 | move.l 8(R14),-(sp)
|
---|
1983 | jsr _pafpu2
|
---|
1984 | adda.l #14,sp
|
---|
1985 | bra L146
|
---|
1986 | *line 875
|
---|
1987 | *line 876
|
---|
1988 | L202:
|
---|
1989 | *line 877
|
---|
1990 | *line 878
|
---|
1991 | *line 879
|
---|
1992 | move.l R13,(sp)
|
---|
1993 | move -14(R14),-(sp)
|
---|
1994 | move -12(R14),-(sp)
|
---|
1995 | move -4(R14),-(sp)
|
---|
1996 | move.l #L203,-(sp)
|
---|
1997 | move.l 8(R14),-(sp)
|
---|
1998 | jsr _pafpu2
|
---|
1999 | adda.l #14,sp
|
---|
2000 | bra L146
|
---|
2001 | *line 880
|
---|
2002 | *line 881
|
---|
2003 | L204:
|
---|
2004 | *line 882
|
---|
2005 | *line 883
|
---|
2006 | *line 884
|
---|
2007 | move.l R13,(sp)
|
---|
2008 | move -14(R14),-(sp)
|
---|
2009 | move -12(R14),-(sp)
|
---|
2010 | move.l #L205,-(sp)
|
---|
2011 | move.l 8(R14),-(sp)
|
---|
2012 | jsr _pafpu1
|
---|
2013 | adda.l #12,sp
|
---|
2014 | bra L146
|
---|
2015 | *line 885
|
---|
2016 | *line 886
|
---|
2017 | L206:
|
---|
2018 | *line 887
|
---|
2019 | *line 888
|
---|
2020 | *line 889
|
---|
2021 | move.l R13,(sp)
|
---|
2022 | move -14(R14),-(sp)
|
---|
2023 | move -12(R14),-(sp)
|
---|
2024 | move.l #L207,-(sp)
|
---|
2025 | move.l 8(R14),-(sp)
|
---|
2026 | jsr _pafpu1
|
---|
2027 | adda.l #12,sp
|
---|
2028 | bra L146
|
---|
2029 | *line 890
|
---|
2030 | *line 891
|
---|
2031 | L208:
|
---|
2032 | *line 892
|
---|
2033 | *line 893
|
---|
2034 | *line 894
|
---|
2035 | move.l R13,(sp)
|
---|
2036 | move -14(R14),-(sp)
|
---|
2037 | move -12(R14),-(sp)
|
---|
2038 | move.l #L209,-(sp)
|
---|
2039 | move.l 8(R14),-(sp)
|
---|
2040 | jsr _pafpu1
|
---|
2041 | adda.l #12,sp
|
---|
2042 | bra L146
|
---|
2043 | *line 895
|
---|
2044 | *line 896
|
---|
2045 | L210:
|
---|
2046 | *line 897
|
---|
2047 | *line 898
|
---|
2048 | *line 899
|
---|
2049 | move.l R13,(sp)
|
---|
2050 | move -14(R14),-(sp)
|
---|
2051 | move -12(R14),-(sp)
|
---|
2052 | move.l #L211,-(sp)
|
---|
2053 | move.l 8(R14),-(sp)
|
---|
2054 | jsr _pafpu1
|
---|
2055 | adda.l #12,sp
|
---|
2056 | bra L146
|
---|
2057 | *line 900
|
---|
2058 | *line 901
|
---|
2059 | *line 902
|
---|
2060 | L212:
|
---|
2061 | *line 903
|
---|
2062 | *line 904
|
---|
2063 | *line 905
|
---|
2064 | move.l R13,(sp)
|
---|
2065 | move.l #L213,-(sp)
|
---|
2066 | move.l 8(R14),-(sp)
|
---|
2067 | jsr _pafpu3
|
---|
2068 | addq.l #8,sp
|
---|
2069 | bra L146
|
---|
2070 | *line 906
|
---|
2071 | *line 907
|
---|
2072 | L214:
|
---|
2073 | *line 908
|
---|
2074 | *line 909
|
---|
2075 | *line 910
|
---|
2076 | move.l R13,(sp)
|
---|
2077 | move.l #L215,-(sp)
|
---|
2078 | move.l 8(R14),-(sp)
|
---|
2079 | jsr _pafpu3
|
---|
2080 | addq.l #8,sp
|
---|
2081 | bra L146
|
---|
2082 | *line 911
|
---|
2083 | *line 912
|
---|
2084 | L216:
|
---|
2085 | *line 913
|
---|
2086 | *line 914
|
---|
2087 | *line 915
|
---|
2088 | move.l R13,(sp)
|
---|
2089 | move.l #L217,-(sp)
|
---|
2090 | move.l 8(R14),-(sp)
|
---|
2091 | jsr _pafpu3
|
---|
2092 | addq.l #8,sp
|
---|
2093 | bra L146
|
---|
2094 | *line 916
|
---|
2095 | *line 917
|
---|
2096 | L218:
|
---|
2097 | *line 918
|
---|
2098 | *line 919
|
---|
2099 | *line 920
|
---|
2100 | move.l R13,(sp)
|
---|
2101 | move.l #L219,-(sp)
|
---|
2102 | move.l 8(R14),-(sp)
|
---|
2103 | jsr _pafpu3
|
---|
2104 | addq.l #8,sp
|
---|
2105 | bra L146
|
---|
2106 | *line 921
|
---|
2107 | *line 922
|
---|
2108 | L220:
|
---|
2109 | *line 923
|
---|
2110 | *line 924
|
---|
2111 | *line 925
|
---|
2112 | move 10(R13),(sp)
|
---|
2113 | move.l #L221,-(sp)
|
---|
2114 | move.l R14,-(sp)
|
---|
2115 | add.l #-38,(sp)
|
---|
2116 | jsr _sprintf
|
---|
2117 | addq.l #8,sp
|
---|
2118 | *line 926
|
---|
2119 | move.l R13,(sp)
|
---|
2120 | move.l R14,-(sp)
|
---|
2121 | add.l #-38,(sp)
|
---|
2122 | move.l 8(R14),-(sp)
|
---|
2123 | jsr _pafpu3
|
---|
2124 | addq.l #8,sp
|
---|
2125 | bra L146
|
---|
2126 | *line 927
|
---|
2127 | *line 928
|
---|
2128 | L222:
|
---|
2129 | *line 929
|
---|
2130 | *line 930
|
---|
2131 | bra L146
|
---|
2132 | *line 931
|
---|
2133 | bra L146
|
---|
2134 | L147:sub #1,R0
|
---|
2135 | cmp #25,R0
|
---|
2136 | bhi L222
|
---|
2137 | asl #2,R0
|
---|
2138 | move R0,R8
|
---|
2139 | add.l #L223,R8
|
---|
2140 | move.l (R8),R8
|
---|
2141 | jmp (R8)
|
---|
2142 | .data
|
---|
2143 | L223:.dc.l L148
|
---|
2144 | .dc.l L150
|
---|
2145 | .dc.l L152
|
---|
2146 | .dc.l L154
|
---|
2147 | .dc.l L159
|
---|
2148 | .dc.l L161
|
---|
2149 | .dc.l L163
|
---|
2150 | .dc.l L165
|
---|
2151 | .dc.l L168
|
---|
2152 | .dc.l L176
|
---|
2153 | .dc.l L178
|
---|
2154 | .dc.l L192
|
---|
2155 | .dc.l L194
|
---|
2156 | .dc.l L196
|
---|
2157 | .dc.l L198
|
---|
2158 | .dc.l L200
|
---|
2159 | .dc.l L202
|
---|
2160 | .dc.l L204
|
---|
2161 | .dc.l L206
|
---|
2162 | .dc.l L208
|
---|
2163 | .dc.l L210
|
---|
2164 | .dc.l L212
|
---|
2165 | .dc.l L214
|
---|
2166 | .dc.l L216
|
---|
2167 | .dc.l L218
|
---|
2168 | .dc.l L220
|
---|
2169 | .text
|
---|
2170 | L146:L143:tst.l (sp)+
|
---|
2171 | movem.l (sp)+,R13-R13
|
---|
2172 | unlk R14
|
---|
2173 | rts
|
---|
2174 | .globl _ptfield
|
---|
2175 | .text
|
---|
2176 | _ptfield:
|
---|
2177 | ~~ptfield:
|
---|
2178 | link R14,#-4
|
---|
2179 | *line 946
|
---|
2180 | move.l #_pt_flds,(sp)
|
---|
2181 | jsr _curset
|
---|
2182 | L224:unlk R14
|
---|
2183 | rts
|
---|
2184 | .data
|
---|
2185 | L1:.dc.b $54,$72,$61,$6E,$73,$0
|
---|
2186 | L2:.dc.b $53,$74,$6F,$70,$20,$0
|
---|
2187 | L3:.dc.b $53,$74,$61,$72,$74,$0
|
---|
2188 | L4:.dc.b $53,$74,$6F,$70,$20,$0
|
---|
2189 | L5:.dc.b $53,$74,$61,$72,$74,$0
|
---|
2190 | L6:.dc.b $53,$72,$63,$65,$0
|
---|
2191 | L7:.dc.b $4D,$75,$6C,$74,$0
|
---|
2192 | L8:.dc.b $54,$69,$6D,$65,$0
|
---|
2193 | L9:.dc.b $56,$61,$6C,$75,$0
|
---|
2194 | L10:.dc.b $46,$75,$6E,$63,$0
|
---|
2195 | L11:.dc.b $20,$20,$20,$20,$20,$0
|
---|
2196 | L12:.dc.b $52,$61,$6E,$64,$6D,$0
|
---|
2197 | L13:.dc.b $47,$50,$43,$2F,$56,$0
|
---|
2198 | L14:.dc.b $3F,$3F,$33,$3F,$3F,$0
|
---|
2199 | L15:.dc.b $3F,$3F,$34,$3F,$3F,$0
|
---|
2200 | L16:.dc.b $50,$69,$74,$63,$68,$0
|
---|
2201 | L17:.dc.b $4B,$65,$79,$50,$72,$0
|
---|
2202 | L18:.dc.b $4B,$65,$79,$56,$4C,$0
|
---|
2203 | L19:.dc.b $50,$65,$64,$61,$6C,$0
|
---|
2204 | L20:.dc.b $3F,$3F,$39,$3F,$3F,$0
|
---|
2205 | L21:.dc.b $46,$72,$65,$71,$20,$0
|
---|
2206 | L22:.dc.b $50,$63,$68,$57,$68,$0
|
---|
2207 | L23:.dc.b $4D,$6F,$64,$57,$68,$0
|
---|
2208 | L24:.dc.b $42,$72,$65,$74,$68,$0
|
---|
2209 | L85:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$0
|
---|
2210 | L90:.dc.b $25,$73,$20,$25,$30,$33,$75,$20,$25,$75,$20,$25,$30,$32,$75,$0
|
---|
2211 | L91:.dc.b $52,$65,$6C,$0
|
---|
2212 | L92:.dc.b $4B,$65,$79,$0
|
---|
2213 | L97:.dc.b $25,$73,$20,$25,$30,$33,$75,$20,$4C,$20,$20,$20,$0
|
---|
2214 | L98:.dc.b $52,$65,$6C,$0
|
---|
2215 | L99:.dc.b $4B,$65,$79,$0
|
---|
2216 | L101:.dc.b $54,$72,$69,$67,$20,$25,$30,$32,$75,$20,$20,$20,$20,$20,$0
|
---|
2217 | L103:.dc.b $50,$75,$6C,$73,$65,$20,$25,$75,$20,$20,$20,$20,$20,$0
|
---|
2218 | L105:.dc.b $25,$73,$3F,$3F,$20,$25,$30,$33,$75,$20,$4C,$20,$25,$30,$32,$75,$0
|
---|
2219 | L106:.dc.b $72,$0
|
---|
2220 | L107:.dc.b $63,$0
|
---|
2221 | L109:.dc.b $3F,$3F,$3F,$20,$25,$30,$33,$75,$20,$25,$75,$20,$25,$30,$32,$75,$0
|
---|
2222 | L122:.dc.b $25,$63,$25,$75,$2E,$25,$30,$32,$75,$0
|
---|
2223 | L124:.dc.b $25,$35,$75,$0
|
---|
2224 | L127:.dc.b $25,$73,$0
|
---|
2225 | L128:.dc.b $4F,$6E,$20,$20,$20,$0
|
---|
2226 | L129:.dc.b $4F,$66,$66,$20,$20,$0
|
---|
2227 | L131:.dc.b $25,$73,$0
|
---|
2228 | L132:.dc.b $53,$74,$61,$72,$74,$0
|
---|
2229 | L133:.dc.b $53,$74,$6F,$70,$20,$0
|
---|
2230 | L135:.dc.b $24,$25,$30,$34,$2E,$34,$58,$0
|
---|
2231 | L138:.dc.b $25,$73,$20,$25,$73,$20,$25,$63,$25,$63,$20,$25,$73,$0
|
---|
2232 | L140:.dc.b $25,$73,$20,$25,$64,$20,$25,$73,$20,$25,$63,$25,$63,$20,$25,$73,$0
|
---|
2233 | L142:.dc.b $25,$73,$20,$25,$73,$20,$20,$20,$20,$25,$73,$0
|
---|
2234 | L149:.dc.b $4B,$20,$25,$30,$33,$75,$20,$25,$75,$20,$25,$30,$32,$75,$20,$20,$20,$20,$25,$73,$0
|
---|
2235 | L151:.dc.b $54,$72,$69,$67,$67,$65,$72,$20,$25,$30,$32,$75,$20,$20,$20,$20,$25,$73,$0
|
---|
2236 | L153:.dc.b $50,$75,$6C,$73,$65,$20,$25,$75,$20,$20,$20,$20,$20,$20,$20,$25,$73,$0
|
---|
2237 | L156:.dc.b $4C,$45,$44,$20,$25,$63,$20,$20,$20,$20,$20,$20,$20,$20,$20,$25,$63,$25,$63,$25,$63,$25,$63,$0
|
---|
2238 | L158:.dc.b $4C,$45,$44,$20,$25,$63,$20,$20,$20,$20,$20,$20,$20,$20,$20,$25,$63,$25,$63,$25,$63,$0
|
---|
2239 | L160:.dc.b $53,$65,$71,$20,$25,$30,$32,$75,$20,$4C,$69,$6E,$20,$20,$20,$20,$25,$30,$33,$75,$0
|
---|
2240 | L162:.dc.b $53,$65,$71,$20,$25,$30,$32,$75,$20,$43,$74,$6C,$20,$20,$20,$20,$25,$73,$0
|
---|
2241 | L164:.dc.b $54,$75,$6E,$65,$20,$54,$61,$62,$6C,$65,$20,$20,$20,$20,$25,$75,$0
|
---|
2242 | L166:.dc.b $53,$65,$74,$0
|
---|
2243 | L169:.dc.b $41,$64,$64,$0
|
---|
2244 | L171:.dc.b $52,$65,$67,$20,$25,$30,$32,$75,$20,$25,$73,$20,$20,$20,$20,$52,$25,$30,$32,$75,$0
|
---|
2245 | L175:.dc.b $52,$65,$67,$20,$25,$30,$32,$75,$20,$25,$73,$20,$20,$20,$20,$25,$63,$25,$30,$32,$75,$0
|
---|
2246 | L177:.dc.b $49,$6E,$73,$74,$72,$75,$6D,$65,$6E,$74,$20,$25,$63,$25,$63,$20,$25,$30,$32,$75,$0
|
---|
2247 | L184:.dc.b $4F,$73,$63,$20,$25,$75,$20,$49,$6E,$74,$20,$20,$25,$63,$25,$63,$20,$25,$63,$25,$30,$34,$75,$0
|
---|
2248 | L186:.dc.b $4F,$73,$63,$20,$25,$75,$20,$52,$61,$74,$20,$20,$25,$63,$25,$63,$20,$25,$73,$0
|
---|
2249 | L188:.dc.b $4F,$73,$63,$20,$25,$75,$20,$46,$72,$71,$20,$20,$25,$63,$25,$63,$20,$25,$30,$32,$75,$2E,$25,$75,$0
|
---|
2250 | L190:.dc.b $4F,$73,$63,$20,$25,$75,$20,$50,$63,$68,$20,$20,$25,$63,$25,$63,$20,$25,$73,$0
|
---|
2251 | L195:.dc.b $57,$61,$76,$65,$73,$68,$61,$70,$65,$25,$63,$20,$25,$63,$25,$63,$20,$25,$30,$32,$75,$0
|
---|
2252 | L197:.dc.b $43,$6F,$6E,$66,$69,$67,$75,$72,$65,$20,$20,$25,$63,$25,$63,$20,$25,$30,$32,$75,$0
|
---|
2253 | L199:.dc.b $4C,$65,$76,$65,$6C,$0
|
---|
2254 | L201:.dc.b $49,$6E,$64,$0
|
---|
2255 | L203:.dc.b $46,$72,$71,$0
|
---|
2256 | L205:.dc.b $46,$69,$6C,$74,$72,$0
|
---|
2257 | L207:.dc.b $46,$69,$6C,$20,$51,$0
|
---|
2258 | L209:.dc.b $4C,$6F,$63,$74,$6E,$0
|
---|
2259 | L211:.dc.b $44,$79,$6E,$6D,$63,$0
|
---|
2260 | L213:.dc.b $41,$75,$78,$20,$20,$0
|
---|
2261 | L215:.dc.b $52,$61,$74,$65,$20,$0
|
---|
2262 | L217:.dc.b $49,$6E,$74,$65,$6E,$0
|
---|
2263 | L219:.dc.b $44,$65,$70,$74,$68,$0
|
---|
2264 | L221:.dc.b $56,$6C,$74,$20,$25,$75,$0
|
---|