source: buchla-68k/alcyon/scordsp.s@ 9519422

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