Context Navigation

scordsp.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: 35.1 KB

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

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

Download in other formats:

Original Format