source: buchla-68k/alcyon/frfind.s

Last change on this file was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 7.2 KB
Line 
1.globl _ac_code
2.globl _scname
3.globl _se_chg
4.globl _curscor
5.globl _cursect
6.globl _se1_cnt
7.globl _se2_cnt
8.globl _se3_cnt
9.globl _spool
10.globl _pspool
11.globl _spcount
12.globl _frags
13.globl _t_bak
14.globl _t_cur
15.globl _t_ctr
16.globl _t_fwd
17.globl _size1
18.globl _size2
19.globl _size3
20.globl _scores
21.globl _scp
22.globl _seclist
23.globl _hplist
24.globl _p_bak
25.globl _p_cur
26.globl _p_ctr
27.globl _p_fwd
28.globl _insmode
29.globl _ep_adj
30.text
31_ep_adj:
32~~ep_adj:
33~sep=R13
34~tval=R7
35~sdir=12
36link R14,#0
37movem.l R6-R7/R12-R13,-(sp)
38~tep=R12
39*line 97
40move.l 8(R14),R13
41*line 97
42move.l 14(R14),R7
43*line 97
44*line 98
45tst.l R7
46bge L2
47*line 98
48move _curscor,R8
49add.l R8,R8
50add.l R8,R8
51move.l #_scores,R9
52move.l 0(R8,R9.l),R0
53bra L1
54*line 99
55L2:
56*line 100
57*line 100
58tst 12(R14)
59beq L3
60*line 101
61*line 102
62*line 102
63cmp.l (R13),R7
64ble L4
65*line 103
66*line 104
67bra L7
68L6:
69*line 105
70*line 108
71*line 109
72*line 113
73*line 114
74*line 115
75*line 116
76cmp.l (R13),R7
77ble L8
78*line 116
79move.l R12,R13
80*line 117
81bra L9
82L8:bra L5
83L9:
84*line 118
85L7:
86*line 119
87move.l 12(R13),R12
88move.l R12,R0
89bne L6
90L5:
91*line 120
92*line 121
93L4:
94*line 122
95bra L12
96L11:
97*line 123
98*line 126
99*line 127
100*line 131
101*line 132
102*line 133
103*line 134
104cmp.l (R12),R7
105bgt L10000
106cmp.b #1,5(R12)
107bne L13
108L10000:*line 135
109*line 139
110*line 140
111move.l R13,R0
112bra L1
113*line 141
114*line 142
115L13:
116*line 143
117move.l R12,R13
118L12:
119*line 144
120move.l 8(R13),R12
121move.l R12,R0
122bne L11
123L10:
124*line 145
125*line 148
126*line 149
127*line 153
128*line 154
129move.l R13,R0
130bra L1
131*line 155
132*line 156
133*line 157
134*line 158
135bra L14
136L3:
137*line 159
138*line 160
139*line 161
140*line 161
141cmp.l (R13),R7
142bge L15
143*line 162
144*line 163
145bra L18
146L17:
147*line 164
148*line 167
149*line 168
150*line 172
151*line 173
152*line 174
153*line 175
154*line 176
155cmp.l (R13),R7
156bge L16
157cmp.b #1,5(R13)
158beq L16
159*line 177
160*line 178
161move.l R12,R13
162L18:
163*line 179
164move.l 8(R13),R12
165move.l R12,R0
166bne L17
167L16:
168*line 180
169*line 181
170L15:
171*line 182
172bra L21
173L20:
174*line 183
175*line 186
176*line 187
177*line 191
178*line 192
179*line 193
180*line 193
181cmp.l (R12),R7
182bge L22
183*line 194
184*line 198
185*line 199
186move.l R13,R0
187bra L1
188*line 200
189*line 201
190L22:
191*line 202
192move.l R12,R13
193L21:
194*line 203
195move.l 12(R13),R12
196move.l R12,R0
197bne L20
198L19:
199*line 204
200*line 207
201*line 208
202*line 212
203*line 213
204move.l R13,R0
205bra L1
206L14:L1:tst.l (sp)+
207movem.l (sp)+,R7-R7/R12-R13
208unlk R14
209rts
210.globl _frfind
211.text
212_frfind:
213~~frfind:
214~tval=R7
215~sdir=12
216link R14,#0
217movem.l R3-R7/R12-R13,-(sp)
218~i=R6
219~t_min=R5
220~dt=R4
221~ep=R13
222~sep=R12
223*line 251
224move.l 8(R14),R7
225*line 251
226*line 251
227tst.l _scp
228bne L24
229*line 252
230*line 256
231*line 257
232clr.l R0
233bra L23
234*line 258
235*line 259
236L24:
237*line 260
238*line 261
239tst.l R7
240bge L25
241*line 261
242move.l R7,(sp)
243move 12(R14),-(sp)
244move.l _scp,-(sp)
245jsr _ep_adj
246addq.l #6,sp
247bra L23
248*line 262
249L25:
250*line 263
251*line 263
252move.l _p_cur,R8
253cmp.l (R8),R7
254bne L26
255*line 264
256*line 268
257*line 269
258move.l R7,(sp)
259move 12(R14),-(sp)
260move.l _p_cur,-(sp)
261jsr _ep_adj
262addq.l #6,sp
263bra L23
264*line 270
265*line 271
266L26:
267*line 272
268*line 272
269move.l _p_fwd,R8
270cmp.l (R8),R7
271bne L27
272*line 273
273*line 277
274*line 278
275move.l R7,(sp)
276move 12(R14),-(sp)
277move.l _p_fwd,-(sp)
278jsr _ep_adj
279addq.l #6,sp
280bra L23
281*line 279
282*line 280
283L27:
284*line 281
285*line 281
286move.l _p_bak,R8
287cmp.l (R8),R7
288bne L28
289*line 282
290*line 286
291*line 287
292move.l R7,(sp)
293move 12(R14),-(sp)
294move.l _p_bak,-(sp)
295jsr _ep_adj
296addq.l #6,sp
297bra L23
298*line 288
299*line 289
300L28:
301*line 290
302*line 291
303*line 292
304move.l _p_cur,R8
305cmp.l (R8),R7
306ble L10001
307move.l R7,R0
308move.l _p_cur,R9
309move.l (R9),R1
310sub.l R1,R0
311bra L10003
312L10001:move.l _p_cur,R8
313move.l (R8),R0
314sub.l R7,R0
315L10003:move.l R0,R5
316*line 294
317move.l _p_cur,R13
318*line 296
319*line 297
320*line 298
321move.l _p_fwd,R8
322cmp.l (R8),R7
323ble L10004
324move.l R7,R0
325move.l _p_fwd,R9
326move.l (R9),R1
327sub.l R1,R0
328bra L10006
329L10004:move.l _p_fwd,R8
330move.l (R8),R0
331sub.l R7,R0
332L10006:move.l R0,R4
333*line 300
334*line 300
335cmp.l R5,R4
336bge L29
337*line 301
338*line 302
339move.l R4,R5
340*line 303
341move.l _p_fwd,R13
342*line 304
343*line 308
344*line 309
345*line 310
346*line 311
347*line 312
348*line 313
349L29:
350*line 314
351*line 315
352*line 316
353move.l _p_bak,R8
354cmp.l (R8),R7
355ble L10007
356move.l R7,R0
357move.l _p_bak,R9
358move.l (R9),R1
359sub.l R1,R0
360bra L10009
361L10007:move.l _p_bak,R8
362move.l (R8),R0
363sub.l R7,R0
364L10009:move.l R0,R4
365*line 318
366*line 318
367cmp.l R5,R4
368bge L30
369*line 319
370*line 320
371move.l R4,R5
372*line 321
373move.l _p_bak,R13
374*line 322
375*line 326
376*line 327
377*line 328
378L30:
379*line 329
380*line 329
381tst _insmode
382bne L31
383*line 330
384*line 331
385clr R6
386bra L34
387L35:
388*line 332
389*line 333
390*line 333
391move _curscor,R0
392muls #80,R0
393move R6,R1
394asl #2,R1
395ext.l R1
396add.l R1,R0
397add.l #_seclist,R0
398move.l R0,R8
399move.l (R8),R12
400move.l R12,R0
401beq L36
402*line 334
403*line 335
404*line 336
405*line 337
406cmp.l (R12),R7
407ble L10010
408move.l R7,R0
409sub.l (R12),R0
410bra L10012
411L10010:move.l (R12),R0
412sub.l R7,R0
413L10012:move.l R0,R4
414*line 338
415*line 339
416*line 339
417cmp.l R5,R4
418bge L37
419*line 340
420*line 341
421move.l R4,R5
422*line 342
423move.l R12,R13
424*line 343
425*line 347
426*line 348
427L37:
428*line 349
429L36:L33:
430*line 331
431add #1,R6
432L34:
433*line 331
434cmp #20,R6
435blt L35
436L32:
437*line 350
438*line 351
439*line 352
440*line 355
441*line 356
442L31:
443*line 357
444move.l R7,(sp)
445move 12(R14),-(sp)
446move.l R13,-(sp)
447jsr _ep_adj
448addq.l #6,sp
449bra L23
450L23:tst.l (sp)+
451movem.l (sp)+,R4-R7/R12-R13
452unlk R14
453rts
454.globl _findev
455.text
456_findev:
457~~findev:
458~te=R7
459~et=R6
460~d1=R5
461~d2=R4
462~ep=8
463link R14,#0
464movem.l R3-R7/R13-R13,-(sp)
465~tp=R13
466*line 385
467move.l 12(R14),R7
468*line 385
469move 16(R14),R6
470*line 385
471move 18(R14),R5
472*line 385
473move 20(R14),R4
474*line 385
475move.l R7,(sp)
476move #1,-(sp)
477move.l 8(R14),-(sp)
478jsr _ep_adj
479addq.l #6,sp
480move.l R0,R13
481*line 387
482bra L41
483L40:
484*line 388
485*line 389
486*line 390
487*line 391
488*line 392
489move.b 5(R13),R0
490ext.w R0
491cmp R0,R6
492bne L42
493cmp #-1,R5
494beq L10013
495move.b 6(R13),R0
496ext.w R0
497cmp R0,R5
498bne L42
499L10013:cmp #-1,R4
500beq L10014
501move.b 7(R13),R0
502ext.w R0
503cmp R0,R4
504bne L42
505L10014:*line 392
506move.l R13,R0
507bra L38
508*line 393
509L42:
510*line 394
511move.l 12(R13),R13
512L41:
513*line 395
514cmp.l (R13),R7
515beq L40
516L39:
517*line 397
518clr.l R0
519bra L38
520L38:tst.l (sp)+
521movem.l (sp)+,R4-R7/R13-R13
522unlk R14
523rts
524.globl _ehfind
525.text
526_ehfind:
527~~ehfind:
528~eh=R7
529~te=R6
530~d1=R5
531~d2=R4
532link R14,#0
533movem.l R3-R7/R13-R13,-(sp)
534~tp=R13
535*line 428
536move 8(R14),R7
537*line 428
538move.l 10(R14),R6
539*line 428
540move 14(R14),R5
541*line 428
542move 16(R14),R4
543*line 428
544move _curscor,R0
545muls #48,R0
546move R7,R1
547asl #2,R1
548ext.l R1
549add.l R1,R0
550add.l #_hplist,R0
551move.l R0,R8
552move.l (R8),R13
553*line 430
554bra L46
555L45:
556*line 431
557*line 432
558*line 433
559*line 434
560*line 435
561cmp.l #$ffffffff,R6
562beq L10015
563cmp.l (R13),R6
564bne L47
565L10015:cmp #-1,R5
566beq L10016
567move.b 6(R13),R0
568ext.w R0
569cmp R0,R5
570bne L47
571L10016:cmp #-1,R4
572beq L10017
573move.b 7(R13),R0
574ext.w R0
575cmp R0,R4
576bne L47
577L10017:*line 435
578move.l R13,R0
579bra L43
580*line 436
581L47:
582*line 437
583move.l 20(R13),R13
584L46:
585*line 438
586move.l R13,R0
587bne L45
588L44:
589*line 440
590move.l R13,R0
591bra L43
592L43:tst.l (sp)+
593movem.l (sp)+,R4-R7/R13-R13
594unlk R14
595rts
596.data
Note: See TracBrowser for help on using the repository browser.