Context Navigation

librw.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: 34.2 KB

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

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format