source: buchla-68k/alcyon/delnote.s@ 9519422

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

Added Alcyon C reference output.

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