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

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 25.6 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 _ebflag
60.globl _ebuf
61.globl _curfet
62.globl _cfetp
63.globl _infetp
64.globl _stmptr
65.globl _defptr
66.globl _patches
67.globl _defents
68.globl _seqtab
69.globl _seqflag
70.globl _seqline
71.globl _seqstim
72.globl _seqtime
73.globl _sregval
74.globl _trstate
75.globl _timers
76.globl _ac_code
77.globl _scname
78.globl _se_chg
79.globl _curscor
80.globl _cursect
81.globl _se1_cnt
82.globl _se2_cnt
83.globl _se3_cnt
84.globl _spool
85.globl _pspool
86.globl _spcount
87.globl _frags
88.globl _t_bak
89.globl _t_cur
90.globl _t_ctr
91.globl _t_fwd
92.globl _size1
93.globl _size2
94.globl _size3
95.globl _scores
96.globl _scp
97.globl _seclist
98.globl _hplist
99.globl _p_bak
100.globl _p_cur
101.globl _p_ctr
102.globl _p_fwd
103.globl _cx_key
104.globl _cy_key
105.globl _d_key
106.globl _e_key
107.globl _m_key
108.globl _x_key
109.globl _swpt
110.globl _aflag
111.globl _amplval
112.globl _ancmsw
113.globl _angroup
114.globl _asig
115.globl _astat
116.globl _aval
117.globl _clkctl
118.globl _clkrun
119.globl _ctrsw
120.globl _cxrate
121.globl _cxval
122.globl _cyrate
123.globl _cyval
124.globl _dsp_ok
125.globl _editss
126.globl _editsw
127.globl _lampsw
128.globl _ndisp
129.globl _nxtflag
130.globl _pchsw
131.globl _recsw
132.globl _runit
133.globl _swback
134.globl _swctrl
135.globl _swdelta
136.globl _swdir
137.globl _swfiin
138.globl _swflag
139.globl _swlast
140.globl _swndx
141.globl _swstop
142.globl _swthr
143.globl _swtime
144.globl _swwait
145.globl _sd
146.globl _se
147.globl _stcrow
148.globl _stccol
149.globl _tglclk
150.globl _tglpch
151.globl _timemlt
152.globl _tmpomlt
153.globl _tmpoval
154.globl _tuneval
155.globl _vtpcol
156.globl _vtprow
157.globl _obj8
158.globl _afi
159.globl _lcdtime
160.globl _swcount
161.globl _swrate
162.globl _swrmin
163.globl _swtemp
164.globl _grpmode
165.globl _grpstat
166.globl _prstab
167.globl _simled
168.globl _swfifo
169.globl _tmultab
170.globl _vce2trg
171.globl _veltab
172.globl _trgtab
173.globl _grp2prt
174.globl _sigtab
175.globl _varmode
176.globl _gdstbc
177.globl _ptefifo
178.globl _fifoval
179.comm _fifoval,2
180.globl _clk_ped
181.text
182_clk_ped:
183~~clk_ped:
184~stat=8
185link R14,#-4
186*line 159
187*line 160
188tst 8(R14)
189beq L2
190*line 160
191move #1,_tglclk
192L2:L1:unlk R14
193rts
194.globl _pch_ped
195.text
196_pch_ped:
197~~pch_ped:
198~stat=8
199link R14,#-4
200*line 172
201*line 173
202tst 8(R14)
203beq L4
204tst _pchsw
205beq L4
206*line 173
207move #1,_tglpch
208L4:L3:unlk R14
209rts
210.globl _msl
211.text
212_msl:
213~~msl:
214link R14,#-30
215movem.l R3-R7/R11-R13,-(sp)
216~ioadr=R13
217~fpu=R12
218~ep=R11
219~i=R7
220~ti=R6
221~val=R5
222~rt=R4
223~chan=-2
224~crel=-4
225~oldsr=-6
226~port=-8
227~trg=-10
228~trig=-12
229~vel=-14
230~cxprev=-16
231~cyprev=-18
232~esi=-20
233~newsig=-22
234~oldclk=-24
235~oldrec=-26
236~fctemp=-30
237*line 201
238move #1,_runit
239*line 203
240bra L8
241L7:
242*line 204
243*line 205
244move #1,_dsp_ok
245*line 206
246*line 207
247move.l #2+_io_ser,R13
248*line 208
249move.b (R13),R0
250ext.w R0
251and #8,R0
252move R0,-20(R14)
253*line 209
254*line 210
255*line 210
256move _editss,R0
257cmp -20(R14),R0
258beq L9
259*line 211
260*line 212
261move -20(R14),_editss
262*line 213
263*line 214
264*line 215
265tst _editss
266beq L10
267*line 215
268tst _editsw
269beq L10000
270clr R0
271bra L10001
272L10000:move #1,R0
273L10001:move R0,_editsw
274L10:
275*line 216
276*line 217
277L9:
278*line 218
279*line 219
280tst _editsw
281beq L11
282*line 219
283move.b #158,_io_leds
284*line 220
285bra L12
286L11:
287*line 221
288move.b #30,_io_leds
289L12:
290*line 222
291*line 223
292*line 223
293tst _lampsw
294bne L13
295tst.l _lcdtime
296beq L13
297*line 224
298*line 225
299*line 226
300sub.l #$1,_lcdtime
301bne L14
302*line 226
303move.b #31,_io_leds
304L14:
305*line 227
306*line 228
307L13:
308*line 229
309jsr _msm
310*line 230
311*line 231
312*line 232
313*line 233
314*line 233
315tst _tglclk
316beq L15
317*line 234
318*line 235
319move #9984,(sp)
320jsr _setsr
321move R0,-6(R14)
322*line 236
323clr _tglclk
324*line 237
325move -6(R14),(sp)
326jsr _setsr
327*line 238
328*line 239
329tst _clkrun
330beq L10002
331clr (sp)
332bra L10003
333L10002:move #1,(sp)
334L10003:jsr _clkset
335*line 240
336jsr _dclkmd
337*line 241
338*line 242
339L15:
340*line 243
341*line 243
342tst _tglpch
343beq L16
344*line 244
345*line 245
346move #9984,(sp)
347jsr _setsr
348move R0,-6(R14)
349*line 246
350clr _tglpch
351*line 247
352move -6(R14),(sp)
353jsr _setsr
354*line 248
355*line 249
356*line 250
357cmp #2,_ndisp
358bne L17
359clr R0
360move 10+_v_regs,R0
361and #384,R0
362beq L17
363*line 250
364clr (sp)
365jsr _vbank
366*line 251
367L17:
368*line 252
369clr R7
370bra L20
371L21:
372*line 253
373*line 254
374*line 254
375move R7,R8
376add.l R8,R8
377add.l #_grpmode,R8
378cmp #1,(R8)
379bne L22
380*line 255
381*line 256
382move R7,R8
383add.l R8,R8
384add.l #_grpmode,R8
385move #2,(R8)
386*line 257
387*line 258
388*line 259
389cmp #2,_ndisp
390bne L23
391*line 260
392move R7,R8
393add.l R8,R8
394move.l #_grpmode,R9
395move 0(R8,R9.l),R8
396add.l R8,R8
397move.l #_simled,R9
398move 0(R8,R9.l),(sp)
399move #42,-(sp)
400move R7,R0
401muls #5,R0
402move R0,-(sp)
403add #6,(sp)
404move #2,-(sp)
405move.l _obj8,-(sp)
406jsr _vputc
407adda.l #10,sp
408*line 261
409L23:bra L24
410L22:
411*line 262
412*line 262
413move R7,R8
414add.l R8,R8
415add.l #_grpmode,R8
416cmp #2,(R8)
417bne L25
418*line 263
419*line 264
420move R7,R8
421add.l R8,R8
422add.l #_grpmode,R8
423clr (R8)
424*line 265
425*line 266
426*line 267
427cmp #2,_ndisp
428bne L26
429*line 268
430move R7,R8
431add.l R8,R8
432move.l #_grpmode,R9
433move 0(R8,R9.l),R8
434add.l R8,R8
435move.l #_simled,R9
436move 0(R8,R9.l),(sp)
437move #42,-(sp)
438move R7,R0
439muls #5,R0
440move R0,-(sp)
441add #6,(sp)
442move #2,-(sp)
443move.l _obj8,-(sp)
444jsr _vputc
445adda.l #10,sp
446L26:
447*line 269
448L25:L24:L19:
449*line 252
450add #1,R7
451L20:
452*line 252
453cmp #12,R7
454blt L21
455L18:
456*line 270
457*line 271
458*line 272
459*line 273
460*line 274
461*line 275
462*line 276
463L16:
464*line 277
465*line 277
466move.l #_fifoval,(sp)
467move.l #_ptefifo,-(sp)
468jsr _getwq
469addq.l #4,sp
470tst R0
471blt L27
472*line 278
473*line 279
474clr R0
475move _fifoval,R0
476and #-32768,R0
477move R0,-4(R14)
478*line 280
479*line 281
480clr R0
481move _fifoval,R0
482and #8191,R0
483move R0,-10(R14)
484*line 282
485clr R0
486move _fifoval,R0
487move #11,R1
488lsr R1,R0
489and #3,R0
490move R0,-8(R14)
491*line 283
492clr R0
493move _fifoval,R0
494lsr #7,R0
495and #15,R0
496move R0,-2(R14)
497*line 284
498clr R0
499move _fifoval,R0
500and #127,R0
501move R0,-12(R14)
502*line 285
503*line 286
504move #16128,R0
505move R0,-14(R14)
506clr R1
507move -10(R14),R1
508lsl #1,R1
509swap R1
510clr R1
511swap R1
512add.l #_veltab,R1
513move.l R1,R9
514move R0,(R9)
515*line 287
516clr R0
517move -10(R14),R0
518lsl #1,R0
519swap R0
520clr R0
521swap R0
522add.l #_prstab,R0
523move.l R0,R8
524clr (R8)
525*line 288
526*line 289
527*line 289
528tst -4(R14)
529beq L28
530*line 290
531*line 291
532move.l #_trgtab,R8
533clr.l R9
534move -10(R14),R9
535add.l R9,R8
536and.b #-2,(R8)
537*line 292
538*line 293
539clr R7
540bra L31
541L32:
542*line 294
543*line 295
544*line 295
545move R7,R8
546add.l R8,R8
547move.l #_vce2trg,R9
548move 0(R8,R9.l),R0
549cmp -10(R14),R0
550bne L33
551*line 296
552*line 297
553move R7,R8
554add.l R8,R8
555add.l #_vce2trg,R8
556move #-1,(R8)
557*line 298
558move -10(R14),(sp)
559jsr _procpfl
560*line 299
561*line 300
562L33:L30:
563*line 293
564add #1,R7
565L31:
566*line 293
567cmp #12,R7
568blt L32
569L29:
570*line 301
571*line 302
572*line 303
573move _fifoval,(sp)
574jsr _stmproc
575*line 304
576bra L34
577L28:
578*line 305
579*line 306
580*line 307
581move.l #_trgtab,R8
582clr.l R9
583move -10(R14),R9
584add.l R9,R8
585or.b #1,(R8)
586*line 308
587*line 309
588move _fifoval,(sp)
589jsr _stmproc
590*line 310
591*line 311
592clr R7
593bra L37
594L38:
595*line 312
596*line 313
597*line 314
598move R7,R8
599add.l R8,R8
600add.l R8,R8
601move.l #_grp2prt,R9
602move 0(R8,R9.l),R0
603clr R1
604move -8(R14),R1
605add #1,R1
606cmp R1,R0
607bne L39
608move R7,R8
609add.l R8,R8
610add.l R8,R8
611move.l #_grp2prt,R9
612move 2(R8,R9.l),R0
613clr R1
614move -2(R14),R1
615add #1,R1
616cmp R1,R0
617bne L39
618*line 314
619move -14(R14),(sp)
620move -12(R14),-(sp)
621move -2(R14),-(sp)
622move -8(R14),-(sp)
623move R7,-(sp)
624jsr _asgvce
625addq.l #8,sp
626L39:L36:
627*line 311
628add #1,R7
629L37:
630*line 311
631cmp #12,R7
632blt L38
633L35:L34:
634*line 315
635*line 316
636*line 317
637*line 318
638L27:
639*line 319
640*line 319
641move #8,(sp)
642jsr _trap14
643move.l R0,_afi
644cmp.l #$ffffffff,R0
645beq L40
646*line 320
647*line 321
648move.l _afi,R0
649asr.l #$8,R0
650and.l #$7f,R0
651move R0,_asig
652*line 322
653move.l _afi,R0
654asr.l #$7,R0
655and.l #$1,R0
656move R0,_astat
657*line 323
658move.l _afi,R0
659and.l #$7f,R0
660move R0,_aval
661*line 324
662*line 325
663*line 325
664tst _asig
665beq L41
666*line 326
667*line 327
668move #1,_aflag
669*line 328
670tst _astat
671beq L10005
672move _asig,R8
673add.l R8,R8
674add.l R8,R8
675move.l #_sigtab,R9
676tst 2(R8,R9.l)
677beq L10004
678L10005:clr R0
679bra L10006
680L10004:move #1,R0
681L10006:move R0,-22(R14)
682*line 329
683*line 330
684move _asig,R8
685add.l R8,R8
686add.l R8,R8
687add.l #_sigtab,R8
688move _aval,(R8)
689*line 331
690move _asig,R8
691add.l R8,R8
692add.l R8,R8
693add.l #_sigtab,R8
694move _astat,2(R8)
695*line 332
696bra L42
697L41:
698*line 333
699*line 334
700*line 335
701clr _aflag
702*line 336
703clr -22(R14)
704*line 337
705*line 338
706clr R7
707bra L45
708L46:
709*line 339
710move R7,R8
711add.l R8,R8
712add.l R8,R8
713add.l #_sigtab,R8
714clr 2(R8)
715L44:
716*line 338
717add #1,R7
718L45:
719*line 338
720cmp #128,R7
721blt L46
722L43:
723*line 339
724L42:
725*line 340
726*line 341
727*line 342
728*line 343
729*line 344
730*line 344
731tst _aflag
732beq L47
733*line 345
734*line 346
735*line 346
736cmp #1,_asig
737blt L48
738cmp #24,_asig
739bgt L48
740*line 347
741*line 348
742*line 349
743*line 350
744move _asig,(sp)
745jsr _localkb
746*line 351
747bra L49
748L48:
749*line 352
750*line 352
751cmp #25,_asig
752blt L50
753cmp #38,_asig
754bgt L50
755*line 353
756*line 354
757*line 355
758tst _astat
759beq L51
760*line 355
761jsr _lcd_on
762*line 356
763L51:
764*line 357
765*line 358
766tst -22(R14)
767bne L52
768*line 358
769jsr _doslide
770*line 359
771L52:bra L53
772L50:
773*line 360
774*line 360
775cmp #39,_asig
776blt L54
777cmp #52,_asig
778bgt L54
779*line 361
780*line 362
781*line 363
782tst _astat
783beq L55
784*line 363
785jsr _lcd_on
786*line 364
787L55:
788*line 365
789move _asig,-(sp)
790add #-39,(sp)
791move _astat,-(sp)
792move.l _swpt,R8
793move _asig,R9
794add #-39,R9
795add.l R9,R9
796add.l R9,R9
797move.l 0(R8,R9.l),R8
798jsr (R8)
799addq.l #4,sp
800*line 366
801bra L56
802L54:
803*line 367
804*line 367
805cmp #60,_asig
806blt L57
807cmp #69,_asig
808bgt L57
809*line 368
810*line 369
811move _asig,-(sp)
812add #-60,(sp)
813move.l _d_key,R8
814jsr (R8)
815addq.l #2,sp
816*line 370
817*line 371
818*line 372
819bra L58
820L57:
821*line 373
822move _asig,R0
823bra L60
824*line 374
825L61:
826*line 375
827*line 376
828*line 377
829move _aval,R5
830muls #252,R5
831and #32736,R5
832*line 378
833*line 379
834clr R7
835bra L64
836L65:
837*line 380
838*line 381
839*line 381
840move R7,R8
841add.l R8,R8
842add.l R8,R8
843add.l #_grp2prt,R8
844cmp #3,(R8)
845bne L66
846*line 382
847*line 383
848*line 383
849move R5,(sp)
850move #11,-(sp)
851move R7,-(sp)
852jsr _newsv
853addq.l #4,sp
854tst R0
855beq L67
856*line 384
857*line 385
858*line 386
859tst _recsw
860beq L68
861move R7,R8
862add.l R8,R8
863move.l #_grpstat,R9
864tst 0(R8,R9.l)
865beq L68
866tst _ancmsw
867beq L10007
868move R7,R8
869add.l R8,R8
870move.l #_varmode,R9
871move 0(R8,R9.l),R0
872bra L10009
873L10007:move R7,R8
874add.l R8,R8
875move.l #_grpmode,R9
876move 0(R8,R9.l),R0
877L10009:cmp #2,R0
878bne L68
879*line 387
880*line 388
881*line 388
882move #6,(sp)
883jsr _e_alc
884move.l R0,R11
885move.l R11,R0
886beq L69
887*line 389
888*line 390
889move.l _t_cur,(R11)
890*line 391
891move.b #14,5(R11)
892*line 392
893move.b R7,6(R11)
894*line 393
895move R5,R0
896ext.l R0
897move.l #$10,R1
898asl.l R1,R0
899move.l R0,16(R11)
900*line 394
901move.l _t_cur,(sp)
902clr -(sp)
903move.l _p_cur,-(sp)
904jsr _ep_adj
905addq.l #6,sp
906move.l R0,(sp)
907move.l R11,-(sp)
908jsr _e_ins
909addq.l #4,sp
910move.l R0,R8
911move.l 12(R8),_p_cur
912*line 395
913move #1,_ctrsw
914*line 396
915move #1,(sp)
916move.l #_gdstbc,-(sp)
917clr -(sp)
918move.l R11,-(sp)
919jsr _se_disp
920adda.l #10,sp
921*line 397
922clr _ctrsw
923*line 398
924*line 399
925L69:bra L70
926L68:
927*line 400
928*line 400
929move _angroup,R0
930sub #1,R0
931cmp R0,R7
932bne L71
933*line 401
934*line 402
935clr (sp)
936jsr _dsanval
937*line 403
938L71:L70:
939*line 404
940L67:
941*line 405
942L66:L63:
943*line 379
944add #1,R7
945L64:
946*line 379
947cmp #12,R7
948blt L65
949L62:
950*line 406
951*line 407
952bra L59
953*line 408
954*line 409
955*line 410
956L72:
957*line 411
958*line 412
959*line 413
960move _aval,R5
961muls #252,R5
962and #32736,R5
963*line 414
964*line 415
965clr R7
966bra L75
967L76:
968*line 416
969*line 417
970*line 417
971move R7,R8
972add.l R8,R8
973add.l R8,R8
974add.l #_grp2prt,R8
975cmp #3,(R8)
976bne L77
977*line 418
978*line 419
979*line 419
980move R5,(sp)
981move #12,-(sp)
982move R7,-(sp)
983jsr _newsv
984addq.l #4,sp
985tst R0
986beq L78
987*line 420
988*line 421
989*line 422
990tst _recsw
991beq L79
992move R7,R8
993add.l R8,R8
994move.l #_grpstat,R9
995tst 0(R8,R9.l)
996beq L79
997tst _ancmsw
998beq L10010
999move R7,R8
1000add.l R8,R8
1001move.l #_varmode,R9
1002move 32(R8,R9.l),R0
1003bra L10012
1004L10010:move R7,R8
1005add.l R8,R8
1006move.l #_grpmode,R9
1007move 0(R8,R9.l),R0
1008L10012:cmp #2,R0
1009bne L79
1010*line 423
1011*line 424
1012*line 424
1013move #6,(sp)
1014jsr _e_alc
1015move.l R0,R11
1016move.l R11,R0
1017beq L80
1018*line 425
1019*line 426
1020move.l _t_cur,(R11)
1021*line 427
1022move.b #14,5(R11)
1023*line 428
1024move R7,R0
1025or #16,R0
1026move.b R0,6(R11)
1027*line 429
1028move R5,R0
1029ext.l R0
1030move.l #$10,R1
1031asl.l R1,R0
1032move.l R0,16(R11)
1033*line 430
1034move.l _t_cur,(sp)
1035clr -(sp)
1036move.l _p_cur,-(sp)
1037jsr _ep_adj
1038addq.l #6,sp
1039move.l R0,(sp)
1040move.l R11,-(sp)
1041jsr _e_ins
1042addq.l #4,sp
1043move.l R0,R8
1044move.l 12(R8),_p_cur
1045*line 431
1046move #1,_ctrsw
1047*line 432
1048move #1,(sp)
1049move.l #_gdstbc,-(sp)
1050clr -(sp)
1051move.l R11,-(sp)
1052jsr _se_disp
1053adda.l #10,sp
1054*line 433
1055clr _ctrsw
1056*line 434
1057*line 435
1058L80:bra L81
1059L79:
1060*line 436
1061*line 436
1062move _angroup,R0
1063sub #1,R0
1064cmp R0,R7
1065bne L82
1066*line 437
1067*line 438
1068move #1,(sp)
1069jsr _dsanval
1070*line 439
1071L82:L81:
1072*line 440
1073L78:
1074*line 441
1075L77:L74:
1076*line 415
1077add #1,R7
1078L75:
1079*line 415
1080cmp #12,R7
1081blt L76
1082L73:
1083*line 442
1084*line 443
1085bra L59
1086*line 444
1087*line 445
1088L83:
1089*line 446
1090*line 447
1091*line 448
1092move.l _cx_key,R8
1093jsr (R8)
1094bra L59
1095*line 449
1096L84:
1097*line 450
1098*line 451
1099*line 452
1100move.l _cy_key,R8
1101jsr (R8)
1102bra L59
1103*line 453
1104*line 454
1105L85:
1106*line 455
1107*line 456
1108*line 457
1109move _aval,R5
1110muls #252,R5
1111and #32736,R5
1112*line 458
1113*line 459
1114clr R7
1115bra L88
1116L89:
1117*line 460
1118*line 461
1119*line 461
1120move R7,R8
1121add.l R8,R8
1122add.l R8,R8
1123add.l #_grp2prt,R8
1124cmp #3,(R8)
1125bne L90
1126*line 462
1127*line 463
1128*line 463
1129move R5,(sp)
1130move #13,-(sp)
1131move R7,-(sp)
1132jsr _newsv
1133addq.l #4,sp
1134tst R0
1135beq L91
1136*line 464
1137*line 465
1138*line 466
1139tst _recsw
1140beq L92
1141move R7,R8
1142add.l R8,R8
1143move.l #_grpstat,R9
1144tst 0(R8,R9.l)
1145beq L92
1146tst _ancmsw
1147beq L10013
1148move R7,R8
1149add.l R8,R8
1150move.l #_varmode,R9
1151move 64(R8,R9.l),R0
1152bra L10015
1153L10013:move R7,R8
1154add.l R8,R8
1155move.l #_grpmode,R9
1156move 0(R8,R9.l),R0
1157L10015:cmp #2,R0
1158bne L92
1159*line 467
1160*line 468
1161*line 468
1162move #6,(sp)
1163jsr _e_alc
1164move.l R0,R11
1165move.l R11,R0
1166beq L93
1167*line 469
1168*line 470
1169move.l _t_cur,(R11)
1170*line 471
1171move.b #14,5(R11)
1172*line 472
1173move R7,R0
1174or #32,R0
1175move.b R0,6(R11)
1176*line 473
1177move R5,R0
1178ext.l R0
1179move.l #$10,R1
1180asl.l R1,R0
1181move.l R0,16(R11)
1182*line 474
1183move.l _t_cur,(sp)
1184clr -(sp)
1185move.l _p_cur,-(sp)
1186jsr _ep_adj
1187addq.l #6,sp
1188move.l R0,(sp)
1189move.l R11,-(sp)
1190jsr _e_ins
1191addq.l #4,sp
1192move.l R0,R8
1193move.l 12(R8),_p_cur
1194*line 475
1195move #1,_ctrsw
1196*line 476
1197move #1,(sp)
1198move.l #_gdstbc,-(sp)
1199clr -(sp)
1200move.l R11,-(sp)
1201jsr _se_disp
1202adda.l #10,sp
1203*line 477
1204clr _ctrsw
1205*line 478
1206*line 479
1207L93:bra L94
1208L92:
1209*line 480
1210*line 480
1211move _angroup,R0
1212sub #1,R0
1213cmp R0,R7
1214bne L95
1215*line 481
1216*line 482
1217move #2,(sp)
1218jsr _dsanval
1219*line 483
1220L95:L94:
1221*line 484
1222L91:
1223*line 485
1224L90:L87:
1225*line 459
1226add #1,R7
1227L88:
1228*line 459
1229cmp #12,R7
1230blt L89
1231L86:
1232*line 486
1233*line 487
1234bra L59
1235*line 488
1236*line 489
1237*line 490
1238*line 491
1239L96:
1240*line 492
1241*line 493
1242*line 494
1243jsr _wheel
1244bra L59
1245*line 495
1246L97:
1247*line 496
1248*line 497
1249*line 498
1250move.l _x_key,R8
1251jsr (R8)
1252bra L59
1253*line 499
1254L98:
1255*line 500
1256*line 501
1257*line 506
1258*line 507
1259move.l _e_key,R8
1260jsr (R8)
1261*line 508
1262*line 513
1263*line 514
1264bra L59
1265*line 515
1266*line 516
1267L99:
1268*line 517
1269*line 518
1270*line 519
1271move.l _m_key,R8
1272jsr (R8)
1273bra L59
1274*line 520
1275L100:
1276*line 521
1277*line 522
1278*line 523
1279*line 524
1280cmp #50,_aval
1281ble L101
1282*line 524
1283*line 525
1284cmp #53,_aval
1285bge L102
1286*line 525
1287move #50,_aval
1288*line 526
1289bra L103
1290L102:
1291*line 527
1292sub #2,_aval
1293L103:
1294*line 528
1295L101:
1296*line 529
1297cmp #100,_aval
1298ble L10016
1299move #100,R0
1300bra L10018
1301L10016:move _aval,R0
1302L10018:move R0,_tmpomlt
1303*line 530
1304*line 531
1305move _tmpomlt,R6
1306add #50,R6
1307muls _tmpoval,R6
1308*line 532
1309move R6,R0
1310ext.l R0
1311move.l R0,-(sp)
1312move.l #$124f800,-(sp)
1313jsr ldiv
1314addq.l #8,sp
1315sub.l #$1,R0
1316move R0,R6
1317*line 533
1318*line 534
1319move R6,R0
1320asr #8,R0
1321move.b R0,8+_io_time
1322*line 535
1323move R6,R0
1324and #255,R0
1325move.b R0,10+_io_time
1326*line 536
1327*line 537
1328*line 537
1329cmp #50,_tmpomlt
1330bne L104
1331*line 538
1332*line 539
1333move.b #24,_io_leds
1334*line 540
1335move.b #25,_io_leds
1336*line 541
1337bra L105
1338L104:
1339*line 542
1340*line 542
1341cmp #50,_tmpomlt
1342ble L106
1343*line 543
1344*line 544
1345move.b #152,_io_leds
1346*line 545
1347move.b #25,_io_leds
1348*line 546
1349bra L107
1350L106:
1351*line 547
1352*line 548
1353*line 549
1354move.b #24,_io_leds
1355*line 550
1356move.b #153,_io_leds
1357L107:L105:
1358*line 551
1359*line 552
1360bra L59
1361*line 553
1362*line 554
1363*line 555
1364L108:
1365*line 556
1366*line 557
1367*line 558
1368*line 559
1369cmp #50,_aval
1370ble L109
1371*line 559
1372*line 560
1373cmp #53,_aval
1374bge L110
1375*line 560
1376move #50,_aval
1377*line 561
1378bra L111
1379L110:
1380*line 562
1381sub #2,_aval
1382L111:
1383*line 563
1384L109:
1385*line 564
1386cmp #100,_aval
1387ble L10019
1388move #100,R0
1389bra L10021
1390L10019:move _aval,R0
1391L10021:move R0,R6
1392*line 565
1393move R6,R8
1394add.l R8,R8
1395add.l #_tmultab,R8
1396move (R8),_timemlt
1397*line 566
1398*line 567
1399*line 567
1400cmp #50,R6
1401bne L112
1402*line 568
1403*line 569
1404move.b #26,_io_leds
1405*line 570
1406move.b #27,_io_leds
1407*line 571
1408bra L113
1409L112:
1410*line 572
1411*line 572
1412cmp #50,R6
1413ble L114
1414*line 573
1415*line 574
1416move.b #154,_io_leds
1417*line 575
1418move.b #27,_io_leds
1419*line 576
1420bra L115
1421L114:
1422*line 577
1423*line 578
1424*line 579
1425move.b #26,_io_leds
1426*line 580
1427move.b #155,_io_leds
1428L115:L113:
1429*line 581
1430*line 582
1431bra L59
1432*line 583
1433*line 584
1434*line 585
1435*line 586
1436L116:
1437*line 587
1438*line 588
1439*line 589
1440*line 590
1441cmp #50,_aval
1442ble L117
1443*line 590
1444*line 591
1445cmp #53,_aval
1446bge L118
1447*line 591
1448move #50,_aval
1449*line 592
1450bra L119
1451L118:
1452*line 593
1453sub #2,_aval
1454L119:
1455*line 594
1456L117:
1457*line 595
1458cmp #100,_aval
1459ble L10022
1460move #100,R0
1461bra L10024
1462L10022:move _aval,R0
1463L10024:move R0,R7
1464*line 596
1465move R7,R0
1466add #-50,R0
1467asl #2,R0
1468move R0,_tuneval
1469*line 597
1470jsr _settune
1471*line 598
1472*line 599
1473*line 599
1474cmp #50,R7
1475bne L120
1476*line 600
1477*line 601
1478move.b #28,_io_leds
1479*line 602
1480move.b #29,_io_leds
1481*line 603
1482bra L121
1483L120:
1484*line 604
1485*line 604
1486cmp #50,R7
1487ble L122
1488*line 605
1489*line 606
1490move.b #156,_io_leds
1491*line 607
1492move.b #29,_io_leds
1493*line 608
1494bra L123
1495L122:
1496*line 609
1497*line 610
1498*line 611
1499move.b #28,_io_leds
1500*line 612
1501move.b #157,_io_leds
1502L123:L121:
1503*line 613
1504*line 614
1505bra L59
1506*line 615
1507*line 616
1508*line 617
1509L124:
1510*line 618
1511*line 619
1512*line 620
1513move _aval,R0
1514asr #2,R0
1515add R0,_aval
1516*line 621
1517*line 622
1518*line 623
1519cmp #127,_aval
1520ble L125
1521*line 623
1522move #127,_aval
1523*line 624
1524L125:
1525*line 625
1526move _aval,R0
1527move #9,R1
1528asl R1,R0
1529move #-32768,R1
1530eor R1,R0
1531move R0,_amplval
1532*line 626
1533move _amplval,(sp)
1534clr -(sp)
1535clr -(sp)
1536jsr _sendval
1537addq.l #4,sp
1538bra L59
1539*line 627
1540*line 628
1541L126:
1542*line 629
1543*line 630
1544*line 631
1545move _aval,R5
1546muls #252,R5
1547and #32736,R5
1548*line 632
1549*line 633
1550clr R7
1551bra L129
1552L130:
1553*line 634
1554*line 635
1555*line 635
1556move R7,R8
1557add.l R8,R8
1558add.l R8,R8
1559add.l #_grp2prt,R8
1560cmp #3,(R8)
1561bne L131
1562*line 636
1563*line 637
1564*line 637
1565move R5,(sp)
1566move #8,-(sp)
1567move R7,-(sp)
1568jsr _newsv
1569addq.l #4,sp
1570tst R0
1571beq L132
1572*line 638
1573*line 639
1574*line 640
1575tst _recsw
1576beq L133
1577move R7,R8
1578add.l R8,R8
1579move.l #_grpstat,R9
1580tst 0(R8,R9.l)
1581beq L133
1582tst _ancmsw
1583beq L10025
1584move R7,R8
1585add.l R8,R8
1586add.l #_varmode,R8
1587move 128(R8),R0
1588bra L10027
1589L10025:move R7,R8
1590add.l R8,R8
1591move.l #_grpmode,R9
1592move 0(R8,R9.l),R0
1593L10027:cmp #2,R0
1594bne L133
1595*line 641
1596*line 642
1597*line 642
1598move #6,(sp)
1599jsr _e_alc
1600move.l R0,R11
1601move.l R11,R0
1602beq L134
1603*line 643
1604*line 644
1605move.l _t_cur,(R11)
1606*line 645
1607move.b #14,5(R11)
1608*line 646
1609move R7,R0
1610or #64,R0
1611move.b R0,6(R11)
1612*line 647
1613move R5,R0
1614ext.l R0
1615move.l #$10,R1
1616asl.l R1,R0
1617move.l R0,16(R11)
1618*line 648
1619move.l _t_cur,(sp)
1620clr -(sp)
1621move.l _p_cur,-(sp)
1622jsr _ep_adj
1623addq.l #6,sp
1624move.l R0,(sp)
1625move.l R11,-(sp)
1626jsr _e_ins
1627addq.l #4,sp
1628move.l R0,R8
1629move.l 12(R8),_p_cur
1630*line 649
1631move #1,_ctrsw
1632*line 650
1633move #1,(sp)
1634move.l #_gdstbc,-(sp)
1635clr -(sp)
1636move.l R11,-(sp)
1637jsr _se_disp
1638adda.l #10,sp
1639*line 651
1640clr _ctrsw
1641*line 652
1642*line 653
1643L134:bra L135
1644L133:
1645*line 654
1646*line 654
1647move _angroup,R0
1648sub #1,R0
1649cmp R0,R7
1650bne L136
1651*line 655
1652*line 656
1653move #4,(sp)
1654jsr _dsanval
1655*line 657
1656L136:L135:
1657*line 658
1658L132:
1659*line 659
1660L131:L128:
1661*line 633
1662add #1,R7
1663L129:
1664*line 633
1665cmp #12,R7
1666blt L130
1667L127:
1668*line 660
1669*line 661
1670bra L59
1671*line 662
1672*line 663
1673*line 664
1674*line 665
1675L137:
1676*line 666
1677*line 667
1678*line 668
1679move _aval,R5
1680muls #252,R5
1681and #32736,R5
1682*line 669
1683*line 670
1684clr R7
1685bra L140
1686L141:
1687*line 671
1688*line 672
1689*line 672
1690move R7,R8
1691add.l R8,R8
1692add.l R8,R8
1693add.l #_grp2prt,R8
1694cmp #3,(R8)
1695bne L142
1696*line 673
1697*line 674
1698*line 674
1699move R5,(sp)
1700move #2,-(sp)
1701move R7,-(sp)
1702jsr _newsv
1703addq.l #4,sp
1704tst R0
1705beq L143
1706*line 675
1707*line 676
1708*line 677
1709tst _recsw
1710beq L144
1711move R7,R8
1712add.l R8,R8
1713move.l #_grpstat,R9
1714tst 0(R8,R9.l)
1715beq L144
1716tst _ancmsw
1717beq L10028
1718move R7,R8
1719add.l R8,R8
1720move.l #_varmode,R9
1721move 96(R8,R9.l),R0
1722bra L10030
1723L10028:move R7,R8
1724add.l R8,R8
1725move.l #_grpmode,R9
1726move 0(R8,R9.l),R0
1727L10030:cmp #2,R0
1728bne L144
1729*line 678
1730*line 679
1731*line 679
1732move #6,(sp)
1733jsr _e_alc
1734move.l R0,R11
1735move.l R11,R0
1736beq L145
1737*line 680
1738*line 681
1739move.l _t_cur,(R11)
1740*line 682
1741move.b #14,5(R11)
1742*line 683
1743move R7,R0
1744or #48,R0
1745move.b R0,6(R11)
1746*line 684
1747move R5,R0
1748ext.l R0
1749move.l #$10,R1
1750asl.l R1,R0
1751move.l R0,16(R11)
1752*line 685
1753move.l _t_cur,(sp)
1754clr -(sp)
1755move.l _p_cur,-(sp)
1756jsr _ep_adj
1757addq.l #6,sp
1758move.l R0,(sp)
1759move.l R11,-(sp)
1760jsr _e_ins
1761addq.l #4,sp
1762move.l R0,R8
1763move.l 12(R8),_p_cur
1764*line 686
1765move #1,_ctrsw
1766*line 687
1767move #1,(sp)
1768move.l #_gdstbc,-(sp)
1769clr -(sp)
1770move.l R11,-(sp)
1771jsr _se_disp
1772adda.l #10,sp
1773*line 688
1774clr _ctrsw
1775*line 689
1776*line 690
1777L145:L144:
1778*line 691
1779*line 691
1780move _angroup,R0
1781sub #1,R0
1782cmp R0,R7
1783bne L146
1784*line 692
1785*line 693
1786move #3,(sp)
1787jsr _dsanval
1788*line 694
1789L146:
1790*line 695
1791L143:
1792*line 696
1793L142:L139:
1794*line 670
1795add #1,R7
1796L140:
1797*line 670
1798cmp #12,R7
1799blt L141
1800L138:
1801*line 697
1802*line 698
1803bra L59
1804*line 699
1805*line 700
1806bra L59
1807L60:sub #53,R0
1808cmp #26,R0
1809bhi L59
1810asl #2,R0
1811move R0,R8
1812add.l #L147,R8
1813move.l (R8),R8
1814jmp (R8)
1815.data
1816L147:.dc.l L61
1817.dc.l L72
1818.dc.l L83
1819.dc.l L84
1820.dc.l L59
1821.dc.l L85
1822.dc.l L96
1823.dc.l L59
1824.dc.l L59
1825.dc.l L59
1826.dc.l L59
1827.dc.l L59
1828.dc.l L59
1829.dc.l L59
1830.dc.l L59
1831.dc.l L59
1832.dc.l L59
1833.dc.l L97
1834.dc.l L98
1835.dc.l L99
1836.dc.l L100
1837.dc.l L108
1838.dc.l L116
1839.dc.l L124
1840.dc.l L126
1841.dc.l L59
1842.dc.l L137
1843.text
1844L59:L58:L56:L53:L49:
1845*line 701
1846*line 702
1847L47:
1848*line 703
1849*line 704
1850*line 705
1851*line 706
1852*line 713
1853*line 714
1854*line 715
1855*line 716
1856L40:
1857*line 717
1858*line 717
1859cmp #2,_ndisp
1860bne L148
1861tst.b _se_chg
1862beq L148
1863tst _dsp_ok
1864beq L148
1865*line 718
1866*line 719
1867jsr _dsmem
1868*line 720
1869clr.b _se_chg
1870*line 721
1871*line 722
1872L148:
1873*line 723
1874clr _nxtflag
1875*line 724
1876move.l _fc_val,-30(R14)
1877*line 725
1878*line 726
1879*line 726
1880move.l _t_cur,R0
1881cmp.l -30(R14),R0
1882beq L149
1883*line 727
1884*line 728
1885*line 728
1886move.l _t_cur,R0
1887cmp.l -30(R14),R0
1888bge L150
1889*line 729
1890*line 730
1891*line 731
1892cmp #1,_se
1893bne L151
1894*line 731
1895jsr _chgsef
1896*line 732
1897L151:
1898*line 733
1899move.l -30(R14),(sp)
1900jsr _sc_trek
1901*line 734
1902bra L152
1903L150:
1904*line 735
1905*line 736
1906*line 737
1907*line 738
1908tst _se
1909bne L153
1910*line 738
1911jsr _chgseb
1912*line 739
1913L153:
1914*line 740
1915move.l -30(R14),(sp)
1916jsr _sc_trek
1917L152:
1918*line 741
1919*line 742
1920*line 743
1921*line 744
1922bra L154
1923L149:
1924*line 745
1925*line 745
1926tst _dsp_ok
1927beq L155
1928move.l _t_ctr,R0
1929cmp.l _t_cur,R0
1930beq L155
1931*line 746
1932*line 747
1933*line 747
1934move.l _t_ctr,R0
1935cmp.l _t_cur,R0
1936bge L156
1937*line 748
1938*line 749
1939*line 750
1940cmp #1,_sd
1941bne L157
1942*line 750
1943jsr _chgsdf
1944*line 751
1945L157:
1946*line 752
1947move.l _t_ctr,(sp)
1948add.l #$1,(sp)
1949jsr _sc_trak
1950*line 753
1951bra L158
1952L156:
1953*line 754
1954*line 755
1955*line 756
1956*line 757
1957tst _sd
1958bne L159
1959*line 757
1960jsr _chgsdb
1961*line 758
1962L159:
1963*line 759
1964move.l _t_ctr,(sp)
1965sub.l #$1,(sp)
1966jsr _sc_trak
1967L158:
1968*line 760
1969*line 761
1970*line 762
1971*line 763
1972*line 768
1973*line 769
1974*line 770
1975*line 771
1976L155:L154:
1977*line 772
1978*line 772
1979tst _nxtflag
1980beq L160
1981tst _sd
1982bne L160
1983*line 773
1984*line 774
1985move _recsw,-26(R14)
1986*line 775
1987move _clkrun,-24(R14)
1988*line 776
1989*line 777
1990move _curscor,R6
1991add #1,R6
1992*line 778
1993*line 779
1994*line 780
1995cmp #20,R6
1996blt L161
1997*line 780
1998clr R6
1999*line 781
2000L161:
2001*line 782
2002clr R7
2003bra L164
2004L165:
2005*line 783
2006*line 784
2007*line 784
2008move R6,R8
2009add.l R8,R8
2010add.l R8,R8
2011add.l #_scores,R8
2012tst.l (R8)
2013beq L166
2014*line 785
2015*line 786
2016move R6,(sp)
2017jsr _selscor
2018bra L162
2019*line 787
2020*line 788
2021*line 789
2022L166:
2023*line 790
2024*line 791
2025add #1,R6
2026move R6,R0
2027cmp #20,R0
2028blt L167
2029*line 791
2030clr R6
2031L167:L163:
2032*line 782
2033add #1,R7
2034L164:
2035*line 782
2036cmp #20,R7
2037blt L165
2038L162:
2039*line 792
2040*line 793
2041*line 794
2042move -24(R14),(sp)
2043jsr _clkset
2044*line 795
2045jsr _dsclk
2046*line 796
2047move -26(R14),_recsw
2048*line 797
2049jsr _dsrpmod
2050*line 798
2051clr _nxtflag
2052*line 799
2053*line 800
2054*line 804
2055*line 805
2056L160:
2057*line 806
2058jsr _curproc
2059*line 807
2060*line 811
2061*line 812
2062*line 813
2063jsr _seqproc
2064L8:
2065*line 814
2066tst _runit
2067bne L7
2068L6:L5:tst.l (sp)+
2069movem.l (sp)+,R4-R7/R11-R13
2070unlk R14
2071rts
2072.data
Note: See TracBrowser for help on using the repository browser.