source: buchla-68k/alcyon/ptwrite.s@ 4b63bf3

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

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