source: buchla-68k/alcyon/seccpy.s@ 7bb1284

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 15.4 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 _secopok
29.globl _t_sbgn
30.globl _t_send
31.globl _t_sect
32.globl _t_sec1
33.globl _t_sec2
34.globl _t_cbgn
35.globl _t_cend
36.globl _p_sbgn
37.globl _p_send
38.globl _p_sec1
39.globl _p_sec2
40.globl _p_cbgn
41.globl _p_cend
42.globl _grptran
43.globl _cmgtags
44.globl _cmgtype
45.globl _ehdlist
46.globl _grptmap
47.globl _sec_cpy
48.text
49_sec_cpy:
50~~sec_cpy:
51~ns=R7
52link R14,#0
53movem.l R5-R7/R11-R13,-(sp)
54~cp=R13
55~lp=R12
56~rp=R11
57~newet=R6
58*line 66
59move 8(R14),R7
60*line 68
61move #1,_secopok
62*line 70
63*line 70
64move R7,(sp)
65jsr _chksec
66tst R0
67beq L2
68*line 71
69*line 72
70*line 73
71move #-1,R0
72bra L1
73*line 74
74*line 75
75*line 76
76*line 77
77L2:
78*line 78
79*line 78
80jsr _evleft
81move.l R0,-(sp)
82jsr _sizesec
83cmp.l (sp)+,R0
84ble L3
85*line 79
86*line 80
87*line 81
88move #-1,R0
89bra L1
90*line 82
91*line 83
92*line 84
93*line 85
94L3:
95*line 86
96move.l _scp,R8
97move.l 8(R8),R8
98move.l 8(R8),R8
99move.l (R8),R6
100add.l _t_sect,R6
101*line 88
102*line 88
103tst.l R6
104blt L10000
105cmp.l #$ffffff,R6
106blt L4
107L10000:*line 89
108*line 90
109*line 91
110move #-1,R0
111bra L1
112*line 92
113*line 93
114*line 94
115*line 95
116*line 96
117*line 97
118L4:
119*line 98
120*line 98
121move.l _t_cur,(sp)
122move.l _p_sbgn,-(sp)
123jsr _madjsec
124addq.l #4,sp
125move.l R0,R13
126move.l R13,R0
127bne L5
128*line 99
129*line 100
130*line 101
131move #-1,R0
132bra L1
133*line 102
134*line 103
135*line 104
136*line 105
137L5:
138*line 106
139move.l _t_cur,(sp)
140clr -(sp)
141move.l _p_cur,-(sp)
142jsr _ep_adj
143addq.l #6,sp
144move.l R0,R12
145*line 107
146move.l 12(R12),R11
147*line 111
148move.l _t_sect,(sp)
149move.l _t_cur,-(sp)
150move.l R12,-(sp)
151jsr _edelta
152addq.l #8,sp
153*line 115
154move.l _p_cbgn,12(R12)
155*line 116
156move.l _p_cbgn,R8
157move.l R12,8(R8)
158*line 118
159move.l _p_cend,8(R11)
160*line 119
161move.l _p_cend,R8
162move.l R11,12(R8)
163*line 123
164move.l _p_cend,(sp)
165move.l _p_cbgn,-(sp)
166jsr _ehfix
167addq.l #4,sp
168*line 126
169clr R0
170bra L1
171L1:tst.l (sp)+
172movem.l (sp)+,R6-R7/R11-R13
173unlk R14
174rts
175.globl _sec_mrg
176.text
177_sec_mrg:
178~~sec_mrg:
179~ns=R7
180link R14,#0
181movem.l R4-R7/R11-R13,-(sp)
182~cp=R13
183~lp=R12
184~rp=R11
185~newet=R6
186~et=R5
187*line 150
188move 8(R14),R7
189*line 152
190move #1,_secopok
191*line 154
192*line 154
193move R7,(sp)
194jsr _chksec
195tst R0
196beq L7
197*line 155
198*line 156
199*line 157
200move #-1,R0
201bra L6
202*line 158
203*line 159
204*line 160
205*line 161
206L7:
207*line 162
208*line 162
209jsr _evleft
210move.l R0,-(sp)
211jsr _sizesec
212cmp.l (sp)+,R0
213ble L8
214*line 163
215*line 164
216*line 165
217move #-1,R0
218bra L6
219*line 166
220*line 167
221*line 168
222*line 169
223L8:
224*line 170
225move.l _scp,R8
226move.l 8(R8),R8
227move.l 8(R8),R8
228move.l (R8),R6
229add.l _t_sect,R6
230*line 172
231*line 172
232tst.l R6
233blt L10001
234cmp.l #$ffffff,R6
235blt L9
236L10001:*line 173
237*line 174
238*line 175
239move #-1,R0
240bra L6
241*line 176
242*line 177
243*line 178
244*line 179
245*line 180
246*line 181
247L9:
248*line 182
249*line 182
250move.l _t_cur,(sp)
251move.l _p_sbgn,-(sp)
252jsr _madjsec
253addq.l #4,sp
254move.l R0,R13
255move.l R13,R0
256bne L10
257*line 183
258*line 184
259*line 185
260move #-1,R0
261bra L6
262*line 186
263*line 187
264L10:
265*line 190
266move.l _t_cur,(sp)
267clr -(sp)
268move.l _p_cur,-(sp)
269jsr _ep_adj
270addq.l #6,sp
271move.l R0,R12
272*line 192
273bra L13
274L12:
275*line 193
276*line 194
277move.l 12(R13),R11
278*line 195
279move.l (R13),(sp)
280clr -(sp)
281move.l R12,-(sp)
282jsr _ep_adj
283addq.l #6,sp
284move.l R0,R12
285*line 196
286move.l R12,(sp)
287move.l R13,-(sp)
288jsr _e_ins
289addq.l #4,sp
290move.l R0,R12
291*line 197
292move.b 5(R13),R5
293ext.w R5
294and #127,R5
295*line 198
296*line 199
297*line 200
298move R5,R8
299add.l R8,R8
300add.l #_ehdlist,R8
301cmp #-1,(R8)
302beq L14
303*line 200
304move R5,R8
305add.l R8,R8
306move.l #_ehdlist,R9
307move 0(R8,R9.l),(sp)
308move.l R13,-(sp)
309jsr _eh_ins
310addq.l #4,sp
311*line 201
312L14:
313*line 202
314move.l R11,R13
315L13:
316*line 203
317move.l R13,R0
318bne L12
319L11:
320*line 206
321clr R0
322bra L6
323L6:tst.l (sp)+
324movem.l (sp)+,R5-R7/R11-R13
325unlk R14
326rts
327.globl _sec_grp
328.text
329_sec_grp:
330~~sec_grp:
331~ns=R7
332link R14,#0
333movem.l R3-R7/R12-R13,-(sp)
334~cp=R13
335~rp=R12
336~et=R6
337~nv=R5
338~grp=R4
339*line 229
340move 8(R14),R7
341*line 231
342move #1,_secopok
343*line 233
344*line 233
345move R7,(sp)
346jsr _chksec
347tst R0
348beq L16
349*line 234
350*line 235
351*line 236
352move #-1,R0
353bra L15
354*line 237
355*line 238
356L16:
357*line 239
358move.l _p_sbgn,R13
359*line 241
360bra L19
361L18:
362*line 242
363*line 243
364move.l 12(R13),R12
365*line 244
366move.b 5(R13),R6
367ext.w R6
368and #127,R6
369*line 245
370*line 246
371*line 246
372move.l #_cmgtags,R8
373tst.b 0(R8,R6)
374beq L20
375*line 247
376*line 248
377*line 249
378move.l #_cmgtype,R8
379tst.b 0(R8,R6)
380beq L10002
381move.b 7(R13),R0
382ext.w R0
383bra L10004
384L10002:move.b 6(R13),R0
385ext.w R0
386L10004:move R0,R4
387and #15,R4
388*line 250
389*line 251
390*line 251
391cmp #5,R6
392beq L10005
393cmp #6,R6
394bne L21
395L10005:*line 252
396*line 253
397*line 254
398*line 255
399*line 256
400move.b 7(R13),R0
401ext.w R0
402and #240,R0
403move R4,R9
404add.l R9,R9
405add.l #_grptmap,R9
406move (R9),R1
407or R1,R0
408move.b R0,7(R13)
409*line 257
410*line 258
411*line 259
412*line 260
413move.b 6(R13),R5
414ext.w R5
415add _grptran,R5
416*line 261
417*line 262
418*line 263
419cmp #127,R5
420ble L22
421*line 263
422move #127,R5
423bra L23
424L22:
425*line 264
426*line 265
427tst R5
428bge L24
429*line 265
430clr R5
431*line 266
432L24:L23:
433*line 267
434move.b R5,6(R13)
435*line 268
436bra L25
437L21:
438*line 269
439*line 269
440cmp #15,R6
441beq L10006
442cmp #14,R6
443bne L26
444L10006:*line 270
445*line 271
446*line 272
447*line 273
448*line 274
449move.b 6(R13),R0
450ext.w R0
451and #15,R0
452move R4,R9
453add.l R9,R9
454add.l #_grptmap,R9
455move (R9),R1
456asl #4,R1
457or R1,R0
458move.b R0,6(R13)
459*line 275
460bra L27
461L26:
462*line 276
463*line 277
464*line 278
465*line 279
466*line 280
467*line 281
468move.l #_cmgtype,R8
469tst.b 0(R8,R6)
470beq L28
471*line 282
472move.b 7(R13),R0
473ext.w R0
474and #240,R0
475move R4,R9
476add.l R9,R9
477add.l #_grptmap,R9
478move (R9),R1
479or R1,R0
480move.b R0,7(R13)
481*line 283
482bra L29
483L28:
484*line 284
485*line 285
486move.b 6(R13),R0
487ext.w R0
488and #240,R0
489move R4,R9
490add.l R9,R9
491add.l #_grptmap,R9
492move (R9),R1
493or R1,R0
494move.b R0,6(R13)
495L29:L27:L25:
496*line 286
497*line 287
498*line 288
499L20:
500*line 289
501move.l R12,R13
502L19:
503*line 290
504cmp.l _p_send,R13
505bne L18
506L17:
507*line 293
508clr R0
509bra L15
510L15:tst.l (sp)+
511movem.l (sp)+,R4-R7/R12-R13
512unlk R14
513rts
514.globl _sec_mov
515.text
516_sec_mov:
517~~sec_mov:
518~ns=R7
519link R14,#0
520movem.l R2-R7/R11-R13,-(sp)
521~cp=R13
522~lp=R12
523~rp=R11
524~newet=R6
525~et=R5
526~grp=R4
527~nv=R3
528*line 317
529move 8(R14),R7
530*line 319
531move #1,_secopok
532*line 321
533*line 321
534move R7,(sp)
535jsr _chksec
536tst R0
537beq L31
538*line 322
539*line 323
540*line 324
541move #-1,R0
542bra L30
543*line 325
544*line 326
545*line 336
546*line 337
547*line 338
548*line 339
549L31:
550*line 340
551*line 340
552move.l _t_cur,R0
553cmp.l _t_sbgn,R0
554blt L32
555move.l _t_cur,R0
556cmp.l _t_send,R0
557bgt L32
558*line 341
559*line 342
560*line 343
561move #-1,R0
562bra L30
563*line 344
564*line 345
565*line 346
566*line 347
567L32:
568*line 348
569move.l _t_cur,(sp)
570clr -(sp)
571move.l _p_cur,-(sp)
572jsr _ep_adj
573addq.l #6,sp
574move.l R0,R12
575*line 349
576move.l _p_send,R8
577move.l 12(R8),R13
578*line 358
579move.l _p_sbgn,R8
580move.l 8(R8),R8
581move.l _p_send,R9
582move.l 12(R9),12(R8)
583*line 359
584move.l _p_send,R8
585move.l 12(R8),R8
586move.l _p_sbgn,R9
587move.l 8(R9),8(R8)
588*line 360
589move.l _p_sbgn,R8
590move.l #$0,8(R8)
591*line 361
592move.l _p_send,R8
593move.l #$0,12(R8)
594*line 365
595*line 366
596move.l _t_cur,R0
597cmp.l _t_send,R0
598blt L33
599*line 366
600move.l _t_sect,R0
601sub.l R0,_t_cur
602*line 367
603*line 371
604*line 372
605L33:
606*line 373
607bra L36
608L35:
609*line 374
610*line 375
611move.l _t_sect,R0
612sub.l R0,(R13)
613*line 376
614move.l 12(R13),R13
615L36:
616*line 377
617move.b 5(R13),R5
618ext.w R5
619and #127,R5
620cmp #21,R5
621bne L35
622L34:
623*line 389
624move.l _p_sbgn,R11
625*line 390
626move.l _p_sbgn,R8
627move.l (R8),R6
628*line 392
629bra L39
630L38:
631*line 393
632*line 394
633sub.l R6,(R11)
634*line 395
635move.b 5(R11),R5
636ext.w R5
637and #127,R5
638*line 396
639*line 397
640*line 397
641move.l #_cmgtags,R8
642tst.b 0(R8,R5)
643beq L40
644*line 398
645*line 399
646*line 400
647move.l #_cmgtype,R8
648tst.b 0(R8,R5)
649beq L10007
650move.b 7(R11),R0
651ext.w R0
652bra L10009
653L10007:move.b 6(R11),R0
654ext.w R0
655L10009:move R0,R4
656and #15,R4
657*line 401
658*line 402
659*line 402
660cmp #5,R5
661beq L10010
662cmp #6,R5
663bne L41
664L10010:*line 403
665*line 404
666*line 405
667*line 406
668*line 407
669move.b 7(R11),R0
670ext.w R0
671and #240,R0
672move R4,R9
673add.l R9,R9
674add.l #_grptmap,R9
675move (R9),R1
676or R1,R0
677move.b R0,7(R11)
678*line 408
679*line 409
680*line 410
681*line 411
682move.b 6(R11),R3
683ext.w R3
684add _grptran,R3
685*line 412
686*line 413
687*line 414
688cmp #127,R3
689ble L42
690*line 414
691move #127,R3
692bra L43
693L42:
694*line 415
695*line 416
696tst R3
697bge L44
698*line 416
699clr R3
700*line 417
701L44:L43:
702*line 418
703move.b R3,6(R11)
704*line 419
705bra L45
706L41:
707*line 420
708*line 420
709cmp #15,R5
710beq L10011
711cmp #14,R5
712bne L46
713L10011:*line 421
714*line 422
715*line 423
716*line 424
717*line 425
718move.b 6(R11),R0
719ext.w R0
720and #15,R0
721move R4,R9
722add.l R9,R9
723add.l #_grptmap,R9
724move (R9),R1
725asl #4,R1
726or R1,R0
727move.b R0,6(R11)
728*line 426
729bra L47
730L46:
731*line 427
732*line 428
733*line 429
734*line 430
735*line 431
736*line 432
737move.l #_cmgtype,R8
738tst.b 0(R8,R5)
739beq L48
740*line 433
741move.b 7(R11),R0
742ext.w R0
743and #240,R0
744move R4,R9
745add.l R9,R9
746add.l #_grptmap,R9
747move (R9),R1
748or R1,R0
749move.b R0,7(R11)
750*line 434
751bra L49
752L48:
753*line 435
754*line 436
755move.b 6(R11),R0
756ext.w R0
757and #240,R0
758move R4,R9
759add.l R9,R9
760add.l #_grptmap,R9
761move (R9),R1
762or R1,R0
763move.b R0,6(R11)
764L49:L47:L45:
765*line 437
766*line 438
767*line 439
768L40:
769*line 440
770*line 441
771move R5,R8
772add.l R8,R8
773add.l #_ehdlist,R8
774cmp #-1,(R8)
775beq L50
776*line 441
777move R5,R8
778add.l R8,R8
779move.l #_ehdlist,R9
780move 0(R8,R9.l),(sp)
781move.l R11,-(sp)
782jsr _eh_rmv
783addq.l #4,sp
784*line 442
785L50:
786*line 443
787move.l 12(R11),R11
788L39:
789*line 444
790move.l R11,R0
791bne L38
792L37:
793*line 446
794move.l 12(R12),R11
795*line 450
796move.l _p_sbgn,R8
797move.l R12,8(R8)
798*line 451
799move.l _p_send,R8
800move.l R11,12(R8)
801*line 452
802move.l _p_sbgn,12(R12)
803*line 453
804move.l _p_send,8(R11)
805*line 459
806move.l _p_sbgn,R13
807*line 460
808move.l _t_cur,R6
809*line 468
810bra L53
811L52:
812*line 469
813*line 470
814move.b 5(R13),R5
815ext.w R5
816and #127,R5
817*line 471
818add.l R6,(R13)
819*line 472
820*line 473
821*line 474
822move R5,R8
823add.l R8,R8
824add.l #_ehdlist,R8
825cmp #-1,(R8)
826beq L54
827*line 474
828move R5,R8
829add.l R8,R8
830move.l #_ehdlist,R9
831move 0(R8,R9.l),(sp)
832move.l R13,-(sp)
833jsr _eh_ins
834addq.l #4,sp
835*line 475
836L54:
837*line 476
838move.l 12(R13),R13
839L53:
840*line 477
841cmp.l R11,R13
842bne L52
843L51:
844*line 487
845bra L57
846L56:
847*line 488
848*line 489
849move.l _t_sect,R0
850add.l R0,(R13)
851*line 490
852move.l 12(R13),R13
853L57:
854*line 491
855move.b 5(R13),R5
856ext.w R5
857and #127,R5
858cmp #21,R5
859bne L56
860L55:
861*line 494
862clr R0
863bra L30
864L30:tst.l (sp)+
865movem.l (sp)+,R3-R7/R11-R13
866unlk R14
867rts
868.globl _sec_rmv
869.text
870_sec_rmv:
871~~sec_rmv:
872~ns=R7
873link R14,#-4
874movem.l R5-R7/R11-R13,-(sp)
875~cp=R13
876~lp=R12
877~rp=R11
878~et=R6
879~pp=-4
880*line 518
881move 8(R14),R7
882*line 520
883move #1,_secopok
884*line 522
885*line 522
886move R7,(sp)
887jsr _chksec
888tst R0
889beq L59
890*line 523
891*line 524
892*line 525
893move #-1,R0
894bra L58
895*line 526
896*line 527
897L59:
898*line 528
899move.l _p_send,R8
900move.l 12(R8),R13
901move.l R13,-4(R14)
902*line 547
903move.l _p_sbgn,R8
904move.l 8(R8),R8
905move.l _p_send,R9
906move.l 12(R9),12(R8)
907*line 548
908move.l _p_send,R8
909move.l 12(R8),R8
910move.l _p_sbgn,R9
911move.l 8(R9),8(R8)
912*line 549
913move.l _p_sbgn,R8
914move.l #$0,8(R8)
915*line 550
916move.l _p_send,R8
917move.l #$0,12(R8)
918*line 554
919*line 555
920move.l _t_cur,R0
921cmp.l _t_send,R0
922blt L60
923*line 555
924move.l _t_sect,R0
925sub.l R0,_t_cur
926*line 556
927*line 560
928*line 561
929L60:
930*line 562
931bra L63
932L62:
933*line 563
934*line 564
935move.l _t_sect,R0
936sub.l R0,(R13)
937*line 565
938move.l 12(R13),R13
939L63:
940*line 566
941move.b 5(R13),R6
942ext.w R6
943and #127,R6
944cmp #21,R6
945bne L62
946L61:
947*line 576
948move.l _p_sbgn,R11
949*line 578
950bra L66
951L65:
952*line 579
953*line 580
954move.l 12(R11),R12
955*line 581
956move.b 5(R11),R6
957ext.w R6
958and #127,R6
959*line 582
960*line 583
961*line 584
962cmp.l _p_bak,R11
963bne L67
964*line 584
965move.l -4(R14),_p_bak
966*line 585
967L67:
968*line 586
969*line 587
970cmp.l _p_cur,R11
971bne L68
972*line 587
973move.l -4(R14),_p_cur
974*line 588
975L68:
976*line 589
977*line 590
978cmp.l _p_ctr,R11
979bne L69
980*line 590
981move.l -4(R14),_p_ctr
982*line 591
983L69:
984*line 592
985*line 593
986cmp.l _p_fwd,R11
987bne L70
988*line 593
989move.l -4(R14),_p_fwd
990*line 594
991L70:
992*line 595
993*line 596
994move R6,R8
995add.l R8,R8
996add.l #_ehdlist,R8
997cmp #-1,(R8)
998beq L71
999*line 596
1000move R6,R8
1001add.l R8,R8
1002move.l #_ehdlist,R9
1003move 0(R8,R9.l),(sp)
1004move.l R11,-(sp)
1005jsr _eh_rmv
1006addq.l #4,sp
1007*line 597
1008L71:
1009*line 598
1010move.l R11,(sp)
1011jsr _e_rmv
1012move.l R0,(sp)
1013jsr _e_del
1014*line 599
1015move.l R12,R11
1016L66:
1017*line 600
1018move.l R11,R0
1019bne L65
1020L64:
1021*line 602
1022move _curscor,R0
1023muls #80,R0
1024move R7,R1
1025asl #2,R1
1026ext.l R1
1027add.l R1,R0
1028add.l #_seclist,R0
1029move.l R0,R8
1030move.l #$0,(R8)
1031*line 604
1032clr R0
1033bra L58
1034L58:tst.l (sp)+
1035movem.l (sp)+,R6-R7/R11-R13
1036unlk R14
1037rts
1038.globl _sec_dgr
1039.text
1040_sec_dgr:
1041~~sec_dgr:
1042~ns=R7
1043link R14,#0
1044movem.l R6-R7/R12-R13,-(sp)
1045~lp=R13
1046~rp=R12
1047*line 626
1048move 8(R14),R7
1049*line 628
1050move #1,_secopok
1051*line 630
1052*line 630
1053move R7,(sp)
1054jsr _chksec
1055tst R0
1056beq L73
1057*line 631
1058*line 632
1059*line 633
1060move #-1,R0
1061bra L72
1062*line 634
1063*line 635
1064*line 645
1065*line 646
1066*line 647
1067*line 648
1068*line 649
1069*line 650
1070L73:
1071*line 653
1072move.l _p_sbgn,R8
1073move.l 12(R8),R12
1074*line 655
1075bra L76
1076L75:
1077*line 656
1078*line 657
1079move.l 12(R12),R13
1080*line 658
1081*line 659
1082*line 659
1083move.l R12,(sp)
1084jsr _oktodg
1085tst R0
1086beq L77
1087*line 660
1088*line 661
1089*line 662
1090cmp.l _p_bak,R12
1091bne L78
1092*line 662
1093move.l R13,_p_bak
1094*line 663
1095L78:
1096*line 664
1097*line 665
1098cmp.l _p_cur,R12
1099bne L79
1100*line 665
1101move.l R13,_p_cur
1102*line 666
1103L79:
1104*line 667
1105*line 668
1106cmp.l _p_ctr,R12
1107bne L80
1108*line 668
1109move.l R13,_p_ctr
1110*line 669
1111L80:
1112*line 670
1113*line 671
1114cmp.l _p_fwd,R12
1115bne L81
1116*line 671
1117move.l R13,_p_fwd
1118*line 672
1119L81:
1120*line 673
1121move.l R12,(sp)
1122jsr _e_rmv
1123move.l R0,(sp)
1124jsr _e_del
1125*line 674
1126*line 675
1127L77:
1128*line 676
1129move.l R13,R12
1130L76:
1131*line 677
1132cmp.l _p_send,R12
1133bne L75
1134L74:
1135*line 680
1136clr R0
1137bra L72
1138L72:tst.l (sp)+
1139movem.l (sp)+,R7-R7/R12-R13
1140unlk R14
1141rts
1142.globl _sec_dev
1143.text
1144_sec_dev:
1145~~sec_dev:
1146~ns=R7
1147link R14,#0
1148movem.l R6-R7/R12-R13,-(sp)
1149~lp=R13
1150~rp=R12
1151*line 702
1152move 8(R14),R7
1153*line 704
1154move #1,_secopok
1155*line 706
1156*line 706
1157move R7,(sp)
1158jsr _chksec
1159tst R0
1160beq L83
1161*line 707
1162*line 708
1163*line 709
1164move #-1,R0
1165bra L82
1166*line 710
1167*line 711
1168*line 721
1169*line 722
1170*line 723
1171*line 724
1172*line 725
1173*line 726
1174L83:
1175*line 729
1176move.l _p_sbgn,R8
1177move.l 12(R8),R12
1178*line 731
1179bra L86
1180L85:
1181*line 732
1182*line 733
1183move.l 12(R12),R13
1184*line 734
1185*line 735
1186*line 735
1187move.l R12,(sp)
1188jsr _oktode
1189tst R0
1190beq L87
1191*line 736
1192*line 737
1193*line 738
1194cmp.l _p_bak,R12
1195bne L88
1196*line 738
1197move.l R13,_p_bak
1198*line 739
1199L88:
1200*line 740
1201*line 741
1202cmp.l _p_cur,R12
1203bne L89
1204*line 741
1205move.l R13,_p_cur
1206*line 742
1207L89:
1208*line 743
1209*line 744
1210cmp.l _p_ctr,R12
1211bne L90
1212*line 744
1213move.l R13,_p_ctr
1214*line 745
1215L90:
1216*line 746
1217*line 747
1218cmp.l _p_fwd,R12
1219bne L91
1220*line 747
1221move.l R13,_p_fwd
1222*line 748
1223L91:
1224*line 749
1225move.l R12,(sp)
1226jsr _e_rmv
1227move.l R0,(sp)
1228jsr _e_del
1229*line 750
1230*line 751
1231L87:
1232*line 752
1233move.l R13,R12
1234L86:
1235*line 753
1236cmp.l _p_send,R12
1237bne L85
1238L84:
1239*line 756
1240clr R0
1241bra L82
1242L82:tst.l (sp)+
1243movem.l (sp)+,R7-R7/R12-R13
1244unlk R14
1245rts
1246.data
Note: See TracBrowser for help on using the repository browser.