Context Navigation

etiosc.s@ 4810254

Last change on this file since 4810254 was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Added Alcyon C reference output.
Property mode set to `100644`
File size: 29.5 KB

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

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

Download in other formats:

Original Format