source: buchla-68k/alcyon/scselbx.s@ f7c91fc

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 62.8 KB
Line 
1.globl _io_time
2.globl _io_lcd
3.globl _io_ser
4.globl _io_midi
5.globl _io_disk
6.globl _io_tone
7.globl _io_leds
8.globl _io_kbrd
9.globl _lcd_a0
10.globl _lcd_a1
11.globl _io_vreg
12.globl _io_vraw
13.globl _io_vram
14.globl _io_fpu
15.globl _v_regs
16.globl _v_odtab
17.globl _v_actab
18.globl _v_ct0
19.globl _v_gt1
20.globl _v_score
21.globl _v_cgtab
22.globl _v_curs0
23.globl _v_curs1
24.globl _v_curs2
25.globl _v_curs3
26.globl _v_curs4
27.globl _v_curs5
28.globl _v_curs6
29.globl _v_curs7
30.globl _v_tcur
31.globl _v_kbobj
32.globl _v_lnobj
33.globl _v_win0
34.globl _v_cur
35.globl _fc_sw
36.globl _fc_val
37.globl _ebflag
38.globl _ebuf
39.globl _curfet
40.globl _cfetp
41.globl _infetp
42.globl _v_obtab
43.globl _v_curob
44.globl _v_nobj
45.globl _v_obpri
46.globl _lcdx
47.globl _lcdy
48.globl _lcdbit
49.globl _lcdrow
50.globl _lcdcol
51.globl _lcdbase
52.globl _lcdctl1
53.globl _lcdctl2
54.globl _ac_code
55.globl _scname
56.globl _se_chg
57.globl _curscor
58.globl _cursect
59.globl _se1_cnt
60.globl _se2_cnt
61.globl _se3_cnt
62.globl _spool
63.globl _pspool
64.globl _spcount
65.globl _frags
66.globl _t_bak
67.globl _t_cur
68.globl _t_ctr
69.globl _t_fwd
70.globl _size1
71.globl _size2
72.globl _size3
73.globl _scores
74.globl _scp
75.globl _seclist
76.globl _hplist
77.globl _p_bak
78.globl _p_cur
79.globl _p_ctr
80.globl _p_fwd
81.globl _secopok
82.globl _t_sbgn
83.globl _t_send
84.globl _t_sect
85.globl _t_sec1
86.globl _t_sec2
87.globl _t_cbgn
88.globl _t_cend
89.globl _p_sbgn
90.globl _p_send
91.globl _p_sec1
92.globl _p_sec2
93.globl _p_cbgn
94.globl _p_cend
95.globl _itxput
96.globl _point
97.globl _ancmsw
98.globl _angroup
99.globl _asmode
100.globl _clkrun
101.globl _clkctl
102.globl _clksrc
103.globl _ctrsw
104.globl _cxval
105.globl _cyval
106.globl _dubsw
107.globl _gomode
108.globl _grptran
109.globl _gtmsel
110.globl _hitbox
111.globl _hitcx
112.globl _hitcy
113.globl _insmode
114.globl _ismode
115.globl _lastam
116.globl _midiclk
117.globl _noteop
118.globl _notesel
119.globl _oldpk
120.globl _oldsl
121.globl _pchsw
122.globl _pkctrl
123.globl _pulsclk
124.globl _recsw
125.globl _scmctl
126.globl _sdmcol
127.globl _sdmctl
128.globl _sdmrow
129.globl _secop
130.globl _sgoflag
131.globl _sliders
132.globl _stccol
133.globl _stcrow
134.globl _stepclk
135.globl _stepenb
136.globl _submenu
137.globl _velflag
138.globl _vtccol
139.globl _vtcrow
140.globl _grptmap
141.globl _sctctab
142.globl _asgtab
143.globl _csbp
144.globl _curboxp
145.globl _stimes
146.globl _obj8
147.globl _obj11
148.globl _swpt
149.globl _oldsw
150.globl _t_ngrp
151.globl _bfs
152.globl _tunname
153.globl _gdstbc
154.globl _sdmenus
155.data
156_sdmenus:
157*line 122
158.dc.l L1
159*line 123
160.dc.l L2
161*line 124
162.dc.l L3
163*line 128
164.dc.l L4
165*line 129
166.dc.l L5
167*line 130
168.dc.l L6
169*line 134
170.dc.l L7
171*line 135
172.dc.l L8
173*line 136
174.dc.l L9
175*line 140
176.dc.l L10
177*line 141
178.dc.l L11
179*line 142
180.dc.l L12
181*line 146
182.dc.l L13
183*line 147
184.dc.l L14
185*line 148
186.dc.l L15
187.globl _sdmln3
188.data
189_sdmln3:
190.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$52,$65,$47,$72,$70,$20,$20,$52,$65,$6D,$6F,$76,$65,$20,$54,$72,$6E,$20,$53,$20,$20,$20
191.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
192.dc.b $20,$20,$20,$20,$0
193.even
194.globl _sdmln4
195.data
196_sdmln4:
197.dc.b $45,$73,$63,$61,$70,$65,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$44,$20,$20,$20
198.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
199.dc.b $20,$20,$20,$20,$0
200.even
201.globl _sdmht
202.data
203_sdmht:
204.dc.w $6
205.dc.w $0
206.dc.w $0
207.dc.w $3
208.dc.w $1
209.dc.w $4
210.dc.w $4
211.dc.w $1
212.dc.w $5
213.dc.w $5
214.dc.w $1
215.dc.w $3
216.dc.w $3
217.dc.w $8
218.dc.w $B
219.dc.w $4
220.dc.w $8
221.dc.w $B
222.dc.w $5
223.dc.w $8
224.dc.w $C
225.dc.w $3
226.dc.w $F
227.dc.w $13
228.dc.w $4
229.dc.w $F
230.dc.w $17
231.dc.w $5
232.dc.w $F
233.dc.w $17
234.dc.w $6
235.dc.w $F
236.dc.w $14
237.dc.w $6
238.dc.w $8
239.dc.w $C
240.globl _sdmlim
241.data
242_sdmlim:
243.dc.w $13
244.dc.w $1
245.dc.w $15
246.dc.w $1E
247.dc.w $13
248.dc.w $1
249.dc.w $15
250.dc.w $1E
251.dc.w $13
252.dc.w $1
253.dc.w $15
254.dc.w $14
255.dc.w $13
256.dc.w $1
257.dc.w $15
258.dc.w $13
259.dc.w $13
260.dc.w $1
261.dc.w $17
262.dc.w $3E
263.globl _nedlbl
264.data
265_nedlbl:
266*line 194
267.dc.l L18
268*line 195
269.dc.l L19
270*line 196
271.dc.l L20
272*line 197
273.dc.l L21
274*line 198
275.dc.l L22
276*line 199
277.dc.l L23
278*line 201
279.dc.l L24
280.globl _sdboxes
281.data
282_sdboxes:
283.dc.w $0
284.dc.w $0
285.dc.w $AF
286.dc.w $D
287.dc.w $0
288*line 208
289.dc.l _sdboxfn
290.dc.w $B0
291.dc.w $0
292.dc.w $E7
293.dc.w $D
294.dc.w $1
295*line 209
296.dc.l _sdboxfn
297.dc.w $E8
298.dc.w $0
299.dc.w $1B7
300.dc.w $D
301.dc.w $2
302*line 210
303.dc.l _sdboxfn
304.dc.w $1B8
305.dc.w $0
306.dc.w $1FF
307.dc.w $D
308.dc.w $3
309*line 211
310.dc.l _sdboxfn
311.dc.w $0
312.dc.w $EE
313.dc.w $6F
314.dc.w $FB
315.dc.w $4
316*line 213
317.dc.l _sdboxfn
318.dc.w $70
319.dc.w $EE
320.dc.w $A7
321.dc.w $FB
322.dc.w $5
323*line 214
324.dc.l _sdboxfn
325.dc.w $A8
326.dc.w $EE
327.dc.w $F7
328.dc.w $FB
329.dc.w $6
330*line 215
331.dc.l _enterit
332.dc.w $F8
333.dc.w $EE
334.dc.w $13F
335.dc.w $FB
336.dc.w $7
337*line 216
338.dc.l _enterit
339.dc.w $140
340.dc.w $EE
341.dc.w $18E
342.dc.w $FB
343.dc.w $8
344*line 217
345.dc.l _sdboxfn
346.dc.w $190
347.dc.w $EE
348.dc.w $1C7
349.dc.w $FB
350.dc.w $9
351*line 218
352.dc.l _sdboxfn
353.dc.w $1C8
354.dc.w $EE
355.dc.w $1FF
356.dc.w $FB
357.dc.w $A
358*line 219
359.dc.l _sdboxfn
360.dc.w $0
361.dc.w $FC
362.dc.w $1FF
363.dc.w $133
364.dc.w $B
365*line 221
366.dc.l _sdboxfn
367.dc.w $0
368.dc.w $134
369.dc.w $1FF
370.dc.w $14F
371.dc.w $C
372*line 223
373.dc.l _sdboxfn
374.dc.w $0
375.dc.w $150
376.dc.w $D7
377.dc.w $15D
378.dc.w $D
379*line 225
380.dc.l _sdboxfn
381.dc.w $D8
382.dc.w $150
383.dc.w $1C7
384.dc.w $15D
385.dc.w $E
386*line 226
387.dc.l _sdboxfn
388.dc.w $1C8
389.dc.w $150
390.dc.w $1FF
391.dc.w $15D
392.dc.w $F
393*line 227
394.dc.l _sdboxfn
395.dc.w $0
396.dc.w $E
397.dc.w $1FF
398.dc.w $ED
399.dc.w $10
400*line 229
401.dc.l _sdboxfn
402.dc.w $0
403.dc.w $0
404.dc.w $0
405.dc.w $0
406.dc.w $0
407.dc.l $0
408.globl _insect
409.text
410_insect:
411~~insect:
412link R14,#0
413movem.l R6-R7,-(sp)
414~col=R7
415*line 248
416move _vtccol,R7
417add #-24,R7
418*line 250
419*line 251
420tst R7
421bge L26
422*line 251
423move #-1,R0
424bra L25
425*line 252
426L26:
427*line 253
428move R7,R0
429and #3,R0
430move R0,_sgoflag
431*line 255
432*line 256
433cmp #19,_vtcrow
434blt L10000
435cmp #20,_vtcrow
436ble L27
437L10000:*line 256
438move #-1,R0
439bra L25
440*line 257
441L27:
442*line 258
443move R7,R0
444asr #2,R0
445move _vtcrow,R1
446add #-19,R1
447muls #10,R1
448add R1,R0
449bra L25
450L25:tst.l (sp)+
451movem.l (sp)+,R7-R7
452unlk R14
453rts
454.globl _svtdsp
455.text
456_svtdsp:
457~~svtdsp:
458~obj=8
459~fg=12
460~bg=14
461~row=16
462~col=18
463~buf=20
464link R14,#-4
465*line 273
466*line 274
467clr R0
468move 10+_v_regs,R0
469and #384,R0
470beq L29
471*line 274
472clr (sp)
473jsr _vbank
474*line 275
475L29:
476*line 276
477move #19,(sp)
478move.l 20(R14),-(sp)
479move 18(R14),-(sp)
480move 16(R14),-(sp)
481add #-16,(sp)
482move.l 8(R14),-(sp)
483jsr _vputs
484adda.l #12,sp
485L28:unlk R14
486rts
487.globl _svtstop
488.text
489_svtstop:
490~~svtstop:
491link R14,#-4
492*line 290
493move #-1,(sp)
494jsr _sdmenu
495L30:unlk R14
496rts
497.globl _bspscur
498.text
499_bspscur:
500~~bspscur:
501link R14,#0
502movem.l R6-R7,-(sp)
503~newcol=R7
504*line 303
505*line 304
506move.l _curfet,(sp)
507move _stccol,-(sp)
508move _stcrow,-(sp)
509jsr _infield
510addq.l #4,sp
511tst R0
512beq L32
513*line 304
514move.l _infetp,_cfetp
515*line 305
516bra L33
517L32:bra L31
518L33:
519*line 308
520move _stccol,R7
521sub #1,R7
522*line 310
523*line 311
524move.l _cfetp,R8
525cmp 2(R8),R7
526blt L34
527*line 311
528move R7,(sp)
529move _stcrow,-(sp)
530jsr _stcpos
531addq.l #2,sp
532*line 312
533L34:
534*line 313
535move _stccol,R0
536asl #3,R0
537move R0,_cxval
538*line 314
539move _stcrow,R0
540muls #14,R0
541move R0,_cyval
542L31:tst.l (sp)+
543movem.l (sp)+,R7-R7
544unlk R14
545rts
546.globl _dsects
547.text
548_dsects:
549~~dsects:
550link R14,#-18
551movem.l R2-R7/R13-R13,-(sp)
552~atr=R7
553~row=R6
554~col=R5
555~i=R4
556~j=R3
557~buf=-8
558~cl=-10
559~cr=-12
560~csl=-14
561~csr=-16
562~begun=-18
563~sp=R13
564*line 336
565*line 337
566clr R0
567move 10+_v_regs,R0
568and #384,R0
569beq L36
570*line 337
571clr (sp)
572jsr _vbank
573*line 338
574L36:
575*line 339
576move #3,R6
577*line 341
578clr R4
579bra L39
580L40:
581*line 342
582*line 343
583move #24,R5
584*line 344
585*line 345
586clr R3
587bra L43
588L44:
589*line 346
590*line 347
591*line 347
592move _curscor,R0
593muls #240,R0
594move R4,R1
595add R3,R1
596muls #12,R1
597add.l R1,R0
598move.l R0,R8
599move.l #_stimes,R9
600tst 0(R8,R9.l)
601beq L45
602*line 348
603*line 349
604move.b #91,-14(R14)
605*line 350
606move.b #93,-16(R14)
607*line 351
608bra L46
609L45:
610*line 352
611*line 353
612*line 354
613move.b #123,-14(R14)
614*line 355
615move.b #125,-16(R14)
616L46:
617*line 356
618*line 357
619*line 358
620move.b #32,-10(R14)
621*line 359
622move.b #32,-12(R14)
623*line 360
624*line 361
625*line 361
626move _curscor,R0
627muls #80,R0
628move R4,R1
629add R3,R1
630asl #2,R1
631ext.l R1
632add.l R1,R0
633add.l #_seclist,R0
634move.l R0,R8
635tst.l (R8)
636beq L47
637*line 362
638*line 363
639move #1,-18(R14)
640*line 364
641move #84,R7
642*line 365
643move.b -14(R14),-10(R14)
644*line 366
645bra L48
646L47:
647*line 367
648*line 368
649*line 369
650clr -18(R14)
651*line 370
652move #20,R7
653L48:
654*line 371
655*line 372
656*line 373
657move _curscor,R0
658muls #48,R0
659add.l #_hplist,R0
660move.l R0,R8
661move.l 44(R8),R13
662*line 374
663*line 375
664bra L51
665L50:
666*line 376
667*line 377
668*line 377
669move R4,R0
670add R3,R0
671move.b 6(R13),R1
672ext.w R1
673cmp R1,R0
674bne L52
675*line 378
676*line 379
677tst -18(R14)
678beq L10001
679move.b -16(R14),R0
680ext.w R0
681bra L10003
682L10001:move #125,R0
683L10003:move.b R0,-12(R14)
684bra L49
685*line 380
686*line 381
687*line 382
688L52:
689*line 383
690move.l 20(R13),R13
691L51:
692*line 384
693move.l R13,R0
694bne L50
695L49:
696*line 385
697*line 386
698move.b -12(R14),R0
699ext.w R0
700move R0,(sp)
701move R4,-(sp)
702move R3,R0
703add R0,(sp)
704add #1,(sp)
705move.b -10(R14),R0
706ext.w R0
707move R0,-(sp)
708move.l #L53,-(sp)
709move.l R14,-(sp)
710sub.l #8,(sp)
711jsr _sprintf
712adda.l #12,sp
713*line 387
714*line 388
715move R7,(sp)
716move.l R14,-(sp)
717sub.l #8,(sp)
718move R5,-(sp)
719move R6,-(sp)
720move.l _obj8,-(sp)
721jsr _vputs
722adda.l #12,sp
723*line 389
724add #4,R5
725L42:
726*line 345
727add #1,R3
728L43:
729*line 345
730cmp #10,R3
731blt L44
732L41:
733*line 390
734*line 391
735*line 392
736add #1,R6
737L38:
738*line 341
739add #10,R4
740L39:
741*line 341
742cmp #20,R4
743blt L40
744L37:L35:tst.l (sp)+
745movem.l (sp)+,R3-R7/R13-R13
746unlk R14
747rts
748.globl _dsgtmn
749.text
750_dsgtmn:
751~~dsgtmn:
752~n=8
753~f=10
754link R14,#-12
755~buf=-4
756~atr=-6
757~col=-8
758*line 411
759move 8(R14),(sp)
760add #1,(sp)
761move.l #L55,-(sp)
762move.l R14,-(sp)
763sub.l #4,(sp)
764jsr _sprintf
765addq.l #8,sp
766*line 413
767move 8(R14),R0
768muls #3,R0
769add #28,R0
770move R0,-8(R14)
771*line 414
772tst 10(R14)
773beq L10004
774move #84,R0
775bra L10006
776L10004:move #20,R0
777L10006:move R0,-6(R14)
778*line 416
779*line 417
780clr R0
781move 10+_v_regs,R0
782and #384,R0
783beq L56
784*line 417
785clr (sp)
786jsr _vbank
787*line 418
788L56:
789*line 419
790move -6(R14),(sp)
791move.l R14,-(sp)
792sub.l #4,(sp)
793move -8(R14),-(sp)
794move #6,-(sp)
795move.l _obj8,-(sp)
796jsr _vputs
797adda.l #12,sp
798L54:unlk R14
799rts
800.globl _dsgtme
801.text
802_dsgtme:
803~~dsgtme:
804~n=8
805link R14,#-10
806~buf=-4
807~col=-6
808*line 434
809*line 435
810move 8(R14),R8
811add.l R8,R8
812add.l #_grptmap,R8
813cmp #-1,(R8)
814bne L58
815*line 435
816move.l #L59,(sp)
817move.l R14,-(sp)
818sub.l #4,(sp)
819jsr _strcpy
820addq.l #4,sp
821*line 436
822bra L60
823L58:
824*line 437
825move 8(R14),R8
826add.l R8,R8
827move.l #_grptmap,R9
828move 0(R8,R9.l),(sp)
829add #1,(sp)
830move.l #L61,-(sp)
831move.l R14,-(sp)
832sub.l #4,(sp)
833jsr _sprintf
834addq.l #8,sp
835L60:
836*line 439
837move 8(R14),R0
838muls #3,R0
839add #28,R0
840move R0,-6(R14)
841*line 441
842*line 442
843clr R0
844move 10+_v_regs,R0
845and #384,R0
846beq L62
847*line 442
848clr (sp)
849jsr _vbank
850*line 443
851L62:
852*line 444
853move #20,(sp)
854move.l R14,-(sp)
855sub.l #4,(sp)
856move -6(R14),-(sp)
857move #7,-(sp)
858move.l _obj8,-(sp)
859jsr _vputs
860adda.l #12,sp
861L57:unlk R14
862rts
863.globl _dsgtmap
864.text
865_dsgtmap:
866~~dsgtmap:
867link R14,#-6
868movem.l R6-R7,-(sp)
869~buf=-6
870~i=R7
871*line 461
872*line 462
873clr R0
874move 10+_v_regs,R0
875and #384,R0
876beq L64
877*line 462
878clr (sp)
879jsr _vbank
880*line 463
881L64:
882*line 464
883tst _grptran
884bge L10007
885move _grptran,R0
886neg R0
887move R0,(sp)
888bra L10009
889L10007:move _grptran,(sp)
890L10009:tst _grptran
891bge L10010
892move #45,-(sp)
893bra L10012
894L10010:move #43,-(sp)
895L10012:move.l #L65,-(sp)
896move.l R14,-(sp)
897sub.l #6,(sp)
898jsr _sprintf
899adda.l #10,sp
900*line 466
901move #20,(sp)
902move.l R14,-(sp)
903sub.l #6,(sp)
904move #22,-(sp)
905move #7,-(sp)
906move.l _obj8,-(sp)
907jsr _vputs
908adda.l #12,sp
909*line 468
910clr R7
911bra L68
912L69:
913*line 469
914*line 470
915cmp _gtmsel,R7
916beq L10013
917clr (sp)
918bra L10014
919L10013:move #1,(sp)
920L10014:move R7,-(sp)
921jsr _dsgtmn
922addq.l #2,sp
923*line 471
924move R7,(sp)
925jsr _dsgtme
926L67:
927*line 468
928add #1,R7
929L68:
930*line 468
931cmp #12,R7
932blt L69
933L66:L63:tst.l (sp)+
934movem.l (sp)+,R7-R7
935unlk R14
936rts
937.globl _ingroup
938.text
939_ingroup:
940~~ingroup:
941link R14,#0
942movem.l R6-R7,-(sp)
943~col=R7
944*line 486
945move _vtccol,R7
946add #-28,R7
947*line 488
948*line 489
949tst R7
950bge L71
951*line 489
952move #-1,R0
953bra L70
954*line 490
955L71:
956*line 491
957*line 492
958move R7,R0
959ext.l R0
960divs #3,R0
961swap R0
962cmp #2,R0
963bne L72
964*line 492
965move #-1,R0
966bra L70
967*line 493
968L72:
969*line 494
970move R7,R0
971ext.l R0
972divs #3,R0
973bra L70
974L70:tst.l (sp)+
975movem.l (sp)+,R7-R7
976unlk R14
977rts
978.globl _sdmtxt
979.text
980_sdmtxt:
981~~sdmtxt:
982~row=8
983~col=10
984~txt=12
985~tag=16
986link R14,#-4
987*line 511
988*line 512
989clr R0
990move 10+_v_regs,R0
991and #384,R0
992cmp #256,R0
993beq L74
994*line 512
995move #1,(sp)
996jsr _vbank
997*line 513
998L74:
999*line 514
1000move #14,(sp)
1001move.l 12(R14),-(sp)
1002move 10(R14),-(sp)
1003move 8(R14),-(sp)
1004move #2,-(sp)
1005move #1,-(sp)
1006move #64,-(sp)
1007move.l _obj11,-(sp)
1008jsr _vcputsv
1009adda.l #18,sp
1010L73:unlk R14
1011rts
1012.globl _showam
1013.text
1014_showam:
1015~~showam:
1016~asg=R7
1017link R14,#0
1018movem.l R3-R7,-(sp)
1019~col=R6
1020~na=R5
1021~row=R4
1022*line 531
1023move 8(R14),R7
1024*line 531
1025*line 532
1026cmp #1,R7
1027bne L76
1028*line 532
1029move #48,R5
1030*line 533
1031bra L77
1032L76:
1033*line 534
1034move #100,R5
1035L77:
1036*line 536
1037move #2,R6
1038bra L80
1039L81:
1040*line 537
1041*line 538
1042*line 539
1043cmp R5,R7
1044bge L75
1045*line 540
1046*line 541
1047clr -(sp)
1048move.l #L82,-(sp)
1049move R6,-(sp)
1050clr -(sp)
1051move.l _itxput,R8
1052jsr (R8)
1053adda.l #10,sp
1054*line 542
1055*line 543
1056move #1,R4
1057bra L85
1058L86:
1059*line 544
1060*line 545
1061*line 546
1062cmp R5,R7
1063bge L75
1064*line 547
1065*line 548
1066move R7,R0
1067muls #332,R0
1068add.l #_asgtab,R0
1069move.l R0,(sp)
1070add.l #316,(sp)
1071move R7,-(sp)
1072move.l #L87,-(sp)
1073move.l #_bfs,-(sp)
1074jsr _sprintf
1075adda.l #10,sp
1076*line 549
1077move #1,-(sp)
1078move.l #_bfs,-(sp)
1079move R6,-(sp)
1080move R4,-(sp)
1081move.l _itxput,R8
1082jsr (R8)
1083adda.l #10,sp
1084*line 550
1085add #1,R7
1086L84:
1087*line 543
1088add #1,R4
1089L85:
1090*line 543
1091cmp #15,R4
1092blt L86
1093L83:
1094*line 551
1095L79:
1096*line 536
1097add #15,R6
1098L80:
1099*line 536
1100cmp #60,R6
1101blt L81
1102L78:L75:tst.l (sp)+
1103movem.l (sp)+,R4-R7
1104unlk R14
1105rts
1106.globl _showtm
1107.text
1108_showtm:
1109~~showtm:
1110link R14,#0
1111movem.l R5-R7,-(sp)
1112~row=R7
1113~tun=R6
1114*line 568
1115clr R6
1116*line 570
1117clr -(sp)
1118move.l #L89,-(sp)
1119clr -(sp)
1120clr -(sp)
1121move.l _itxput,R8
1122jsr (R8)
1123adda.l #10,sp
1124*line 572
1125move #1,R7
1126bra L92
1127L93:
1128*line 573
1129*line 574
1130move R6,R0
1131asl #5,R0
1132ext.l R0
1133add.l #_tunname,R0
1134move.l R0,(sp)
1135move R6,-(sp)
1136move.l #L94,-(sp)
1137move.l #_bfs,-(sp)
1138jsr _sprintf
1139adda.l #10,sp
1140*line 575
1141move #1,-(sp)
1142move.l #_bfs,-(sp)
1143clr -(sp)
1144move R7,-(sp)
1145move.l _itxput,R8
1146jsr (R8)
1147adda.l #10,sp
1148*line 576
1149add #1,R6
1150L91:
1151*line 572
1152add #1,R7
1153L92:
1154*line 572
1155cmp #11,R7
1156blt L93
1157L90:L88:tst.l (sp)+
1158movem.l (sp)+,R6-R7
1159unlk R14
1160rts
1161.globl _showsm
1162.text
1163_showsm:
1164~~showsm:
1165link R14,#0
1166movem.l R4-R7,-(sp)
1167~col=R7
1168~row=R6
1169~scr=R5
1170*line 593
1171move #1,R5
1172*line 595
1173move #1,R7
1174bra L98
1175L99:
1176*line 596
1177*line 597
1178*line 598
1179cmp #20,R5
1180bgt L95
1181*line 599
1182*line 600
1183clr -(sp)
1184move.l #L100,-(sp)
1185move R7,-(sp)
1186clr -(sp)
1187move.l _itxput,R8
1188jsr (R8)
1189adda.l #10,sp
1190*line 601
1191*line 602
1192move #1,R6
1193bra L103
1194L104:
1195*line 603
1196*line 604
1197*line 605
1198cmp #20,R5
1199bgt L95
1200*line 606
1201*line 607
1202move R5,R0
1203sub #1,R0
1204asl #4,R0
1205ext.l R0
1206add.l #_scname,R0
1207move.l R0,(sp)
1208move R5,-(sp)
1209move.l #L105,-(sp)
1210move.l #_bfs,-(sp)
1211jsr _sprintf
1212adda.l #10,sp
1213*line 608
1214move #1,-(sp)
1215move.l #_bfs,-(sp)
1216move R7,-(sp)
1217move R6,-(sp)
1218move.l _itxput,R8
1219jsr (R8)
1220adda.l #10,sp
1221*line 609
1222add #1,R5
1223L102:
1224*line 602
1225add #1,R6
1226L103:
1227*line 602
1228cmp #15,R6
1229blt L104
1230L101:
1231*line 610
1232L97:
1233*line 595
1234add #22,R7
1235L98:
1236*line 595
1237cmp #46,R7
1238blt L99
1239L96:L95:tst.l (sp)+
1240movem.l (sp)+,R5-R7
1241unlk R14
1242rts
1243.globl _scmenu
1244.text
1245_scmenu:
1246~~scmenu:
1247~n=R7
1248link R14,#0
1249movem.l R5-R7/R13-R13,-(sp)
1250~i=R6
1251~op=R13
1252*line 629
1253move 8(R14),R7
1254*line 629
1255*line 629
1256tst R7
1257blt L107
1258*line 630
1259*line 631
1260move.l #_sdmtxt,_itxput
1261*line 632
1262*line 633
1263clr (sp)
1264jsr _vbank
1265*line 634
1266*line 635
1267or #16,_v_odtab
1268*line 636
1269clr (sp)
1270jsr _objclr
1271*line 637
1272*line 638
1273or #16,8+_v_odtab
1274*line 639
1275move #1,(sp)
1276jsr _objclr
1277*line 640
1278*line 641
1279or #16,16+_v_odtab
1280*line 642
1281move #2,(sp)
1282jsr _objclr
1283*line 643
1284*line 644
1285move #1,(sp)
1286jsr _vbank
1287*line 645
1288move #2,(sp)
1289jsr _exp_c
1290move R0,(sp)
1291move #223,-(sp)
1292move #511,-(sp)
1293clr -(sp)
1294clr -(sp)
1295move #128,-(sp)
1296move.l _obj11,-(sp)
1297jsr _vbfill4
1298adda.l #14,sp
1299*line 646
1300*line 647
1301clr (sp)
1302jsr _vbank
1303*line 648
1304move #4,(sp)
1305move #11,-(sp)
1306jsr _SetPri
1307addq.l #2,sp
1308*line 649
1309*line 650
1310move R7,R0
1311bra L109
1312*line 651
1313L110:
1314*line 652
1315*line 653
1316*line 654
1317jsr _showim
1318bra L108
1319*line 655
1320*line 656
1321L111:
1322*line 657
1323*line 658
1324*line 659
1325move _lastam,(sp)
1326jsr _showam
1327*line 660
1328move #11,(sp)
1329move #17,-(sp)
1330jsr _stcpos
1331addq.l #2,sp
1332*line 661
1333*line 662
1334move #88,_cxval
1335*line 663
1336move #238,_cyval
1337*line 664
1338*line 665
1339*line 666
1340move.l _curfet,(sp)
1341move _stccol,-(sp)
1342move _stcrow,-(sp)
1343jsr _infield
1344addq.l #4,sp
1345tst R0
1346beq L112
1347*line 666
1348move.l _infetp,_cfetp
1349*line 667
1350L112:bra L108
1351*line 668
1352*line 669
1353L113:
1354*line 670
1355*line 671
1356*line 672
1357jsr _showtm
1358*line 673
1359move #19,(sp)
1360move #17,-(sp)
1361jsr _stcpos
1362addq.l #2,sp
1363*line 674
1364*line 675
1365move #152,_cxval
1366*line 676
1367move #238,_cyval
1368*line 677
1369*line 678
1370*line 679
1371move.l _curfet,(sp)
1372move _stccol,-(sp)
1373move _stcrow,-(sp)
1374jsr _infield
1375addq.l #4,sp
1376tst R0
1377beq L114
1378*line 679
1379move.l _infetp,_cfetp
1380*line 680
1381L114:bra L108
1382*line 681
1383*line 682
1384L115:
1385*line 683
1386*line 684
1387*line 685
1388jsr _showsm
1389*line 686
1390move #7,(sp)
1391move #24,-(sp)
1392jsr _stcpos
1393addq.l #2,sp
1394*line 687
1395*line 688
1396move #56,_cxval
1397*line 689
1398move #336,_cyval
1399*line 690
1400*line 691
1401*line 692
1402move.l _curfet,(sp)
1403move _stccol,-(sp)
1404move _stcrow,-(sp)
1405jsr _infield
1406addq.l #4,sp
1407tst R0
1408beq L116
1409*line 692
1410move.l _infetp,_cfetp
1411*line 693
1412L116:bra L108
1413*line 694
1414*line 695
1415L117:
1416*line 696
1417*line 697
1418bra L108
1419*line 698
1420bra L108
1421L109:tst R0
1422beq L110
1423cmp #1,R0
1424beq L111
1425cmp #2,R0
1426beq L113
1427cmp #3,R0
1428beq L115
1429bra L117
1430L108:
1431*line 699
1432*line 700
1433bra L118
1434L107:
1435*line 701
1436*line 702
1437*line 703
1438clr (sp)
1439jsr _vbank
1440*line 704
1441*line 705
1442or #16,32+_v_odtab
1443*line 706
1444move #4,(sp)
1445jsr _objclr
1446*line 707
1447*line 708
1448move.l #234+_v_obtab,R13
1449*line 709
1450move (R13),(sp)
1451move 6(R13),-(sp)
1452move #2,-(sp)
1453jsr _objon
1454addq.l #4,sp
1455*line 710
1456and #-17,16+_v_odtab
1457*line 711
1458*line 712
1459move.l #252+_v_obtab,R13
1460*line 713
1461move (R13),(sp)
1462move 6(R13),-(sp)
1463move #1,-(sp)
1464jsr _objon
1465addq.l #4,sp
1466*line 714
1467and #-17,8+_v_odtab
1468*line 715
1469*line 716
1470move.l #270+_v_obtab,R13
1471*line 717
1472move (R13),(sp)
1473move 6(R13),-(sp)
1474clr -(sp)
1475jsr _objon
1476addq.l #4,sp
1477*line 718
1478and #-17,_v_odtab
1479L118:
1480*line 721
1481move R7,_scmctl
1482L106:tst.l (sp)+
1483movem.l (sp)+,R6-R7/R13-R13
1484unlk R14
1485rts
1486.globl _sdmenu
1487.text
1488_sdmenu:
1489~~sdmenu:
1490~n=R7
1491link R14,#0
1492movem.l R4-R7,-(sp)
1493~i=R6
1494~wasup=R5
1495*line 737
1496move 8(R14),R7
1497*line 737
1498move _sdmctl,R5
1499*line 738
1500move R7,_sdmctl
1501*line 740
1502*line 740
1503tst R7
1504blt L120
1505*line 741
1506*line 742
1507move #1,_submenu
1508*line 743
1509*line 744
1510move _stcrow,_sdmrow
1511*line 745
1512move _stccol,_sdmcol
1513*line 746
1514*line 747
1515move #64,(sp)
1516move #4,-(sp)
1517jsr _exp_c
1518addq.l #2,sp
1519move R0,-(sp)
1520move.l #384+_sctctab,-(sp)
1521jsr _memsetw
1522addq.l #6,sp
1523*line 748
1524move #64,(sp)
1525move #4,-(sp)
1526jsr _exp_c
1527addq.l #2,sp
1528move R0,-(sp)
1529move.l #512+_sctctab,-(sp)
1530jsr _memsetw
1531addq.l #6,sp
1532*line 749
1533move #64,(sp)
1534move #4,-(sp)
1535jsr _exp_c
1536addq.l #2,sp
1537move R0,-(sp)
1538move.l #640+_sctctab,-(sp)
1539jsr _memsetw
1540addq.l #6,sp
1541*line 750
1542*line 751
1543*line 751
1544cmp #4,R7
1545bne L121
1546*line 752
1547*line 753
1548move #64,(sp)
1549move #4,-(sp)
1550jsr _exp_c
1551addq.l #2,sp
1552move R0,-(sp)
1553move.l #768+_sctctab,-(sp)
1554jsr _memsetw
1555addq.l #6,sp
1556*line 754
1557move #64,(sp)
1558move #4,-(sp)
1559jsr _exp_c
1560addq.l #2,sp
1561move R0,-(sp)
1562move.l #896+_sctctab,-(sp)
1563jsr _memsetw
1564addq.l #6,sp
1565*line 755
1566*line 756
1567L121:
1568*line 757
1569jsr _stcclr
1570*line 758
1571move _sdmcol,(sp)
1572move _sdmrow,-(sp)
1573jsr _stcpos
1574addq.l #2,sp
1575*line 759
1576*line 760
1577*line 761
1578move.l _curfet,(sp)
1579move _stccol,-(sp)
1580move _stcrow,-(sp)
1581jsr _infield
1582addq.l #4,sp
1583tst R0
1584beq L122
1585*line 761
1586move.l _infetp,_cfetp
1587*line 762
1588L122:
1589*line 763
1590*line 764
1591clr R0
1592move 10+_v_regs,R0
1593and #384,R0
1594beq L123
1595*line 764
1596clr (sp)
1597jsr _vbank
1598*line 765
1599L123:
1600*line 766
1601clr R6
1602bra L126
1603L127:
1604*line 767
1605move #20,(sp)
1606move R7,R0
1607muls #12,R0
1608move R6,R1
1609asl #2,R1
1610ext.l R1
1611add.l R1,R0
1612move.l R0,R8
1613move.l #_sdmenus,R9
1614move.l 0(R8,R9.l),-(sp)
1615clr -(sp)
1616move R6,-(sp)
1617add #3,(sp)
1618move.l _obj8,-(sp)
1619jsr _vputs
1620adda.l #12,sp
1621L125:
1622*line 766
1623add #1,R6
1624L126:
1625*line 766
1626cmp #3,R6
1627blt L127
1628L124:
1629*line 767
1630*line 768
1631*line 769
1632*line 770
1633*line 770
1634cmp #4,R7
1635bne L128
1636*line 771
1637*line 772
1638move #20,(sp)
1639move.l #_sdmln3,-(sp)
1640clr -(sp)
1641move #6,-(sp)
1642move.l _obj8,-(sp)
1643jsr _vputs
1644adda.l #12,sp
1645*line 773
1646move #20,(sp)
1647move.l #_sdmln4,-(sp)
1648clr -(sp)
1649move #7,-(sp)
1650move.l _obj8,-(sp)
1651jsr _vputs
1652adda.l #12,sp
1653*line 774
1654*line 775
1655clr _secop
1656*line 776
1657*line 777
1658clr _grptran
1659*line 778
1660move #-1,_gtmsel
1661*line 779
1662*line 780
1663clr R6
1664bra L131
1665L132:
1666*line 781
1667move R6,R8
1668add.l R8,R8
1669add.l #_grptmap,R8
1670move R6,(R8)
1671L130:
1672*line 780
1673add #1,R6
1674L131:
1675*line 780
1676cmp #12,R6
1677blt L132
1678L129:
1679*line 781
1680*line 782
1681*line 783
1682jsr _dsects
1683*line 784
1684jsr _dsgtmap
1685*line 785
1686*line 786
1687move.l #_GLCplot,_point
1688*line 787
1689move #1,(sp)
1690jsr _GLCcurs
1691*line 788
1692*line 789
1693*line 789
1694tst _ismode
1695beq L133
1696*line 790
1697*line 791
1698clr _ismode
1699*line 792
1700move _oldpk,_pkctrl
1701*line 793
1702move _oldsl,_sliders
1703*line 794
1704move.l _oldsw,_swpt
1705*line 795
1706jsr _lcdlbls
1707*line 796
1708*line 797
1709L133:
1710*line 798
1711*line 798
1712tst _gomode
1713beq L134
1714*line 799
1715*line 800
1716clr _gomode
1717*line 801
1718move _oldpk,_pkctrl
1719*line 802
1720clr (sp)
1721move #54,-(sp)
1722move #215,-(sp)
1723move #54,-(sp)
1724move #186,-(sp)
1725jsr _lseg
1726addq.l #8,sp
1727*line 803
1728*line 804
1729L134:
1730*line 805
1731*line 805
1732tst _asmode
1733beq L135
1734*line 806
1735*line 807
1736clr _asmode
1737*line 808
1738move _oldpk,_pkctrl
1739*line 809
1740move.l _oldsw,_swpt
1741*line 810
1742clr (sp)
1743move #54,-(sp)
1744move #287,-(sp)
1745move #54,-(sp)
1746move #258,-(sp)
1747jsr _lseg
1748addq.l #8,sp
1749*line 811
1750*line 812
1751L135:
1752*line 813
1753*line 814
1754tst _pkctrl
1755beq L10015
1756cmp #1,_pkctrl
1757bne L136
1758L10015:*line 814
1759move _pkctrl,_oldpk
1760*line 815
1761L136:
1762*line 816
1763*line 817
1764cmp #5,_sliders
1765beq L137
1766*line 817
1767move _sliders,_oldsl
1768*line 818
1769L137:
1770*line 819
1771move.l _swpt,_oldsw
1772*line 820
1773move.l #_t_ngrp,_swpt
1774*line 821
1775move #6,_pkctrl
1776*line 822
1777move #6,_sliders
1778*line 823
1779*line 824
1780jsr _lcdlbls
1781*line 825
1782jsr _setleds
1783*line 826
1784*line 827
1785L128:
1786*line 828
1787move #14,(sp)
1788move #2,-(sp)
1789jsr _SetPri
1790addq.l #2,sp
1791*line 829
1792move R7,R0
1793asl #3,R0
1794ext.l R0
1795move.l R0,R8
1796move.l #_sdmlim,R9
1797move 2(R8,R9.l),(sp)
1798move R7,R0
1799asl #3,R0
1800ext.l R0
1801move.l R0,R8
1802move.l #_sdmlim,R9
1803move 0(R8,R9.l),-(sp)
1804jsr _ttcpos
1805addq.l #2,sp
1806*line 830
1807*line 831
1808bra L138
1809L120:
1810*line 832
1811*line 833
1812*line 834
1813clr _submenu
1814*line 835
1815*line 836
1816*line 837
1817clr R0
1818move 10+_v_regs,R0
1819and #384,R0
1820beq L139
1821*line 837
1822clr (sp)
1823jsr _vbank
1824*line 838
1825L139:
1826*line 839
1827move #14,(sp)
1828jsr _objclr
1829*line 840
1830jsr _stcset
1831*line 841
1832jsr _stcclr
1833*line 842
1834move #11,(sp)
1835jsr _sdwin
1836*line 843
1837*line 844
1838*line 844
1839cmp #4,R5
1840bne L140
1841*line 845
1842*line 846
1843move #12,(sp)
1844jsr _sdwin
1845*line 847
1846*line 848
1847move _sdmcol,(sp)
1848move _sdmrow,-(sp)
1849jsr _stcpos
1850addq.l #2,sp
1851*line 849
1852*line 850
1853move _sdmcol,R0
1854asl #3,R0
1855move R0,_cxval
1856*line 851
1857move _sdmrow,R0
1858muls #14,R0
1859move R0,_cyval
1860*line 852
1861*line 853
1862*line 854
1863move.l _curfet,(sp)
1864move _stccol,-(sp)
1865move _stcrow,-(sp)
1866jsr _infield
1867addq.l #4,sp
1868tst R0
1869beq L141
1870*line 854
1871move.l _infetp,_cfetp
1872*line 855
1873L141:
1874*line 856
1875move _oldpk,_pkctrl
1876*line 857
1877move _oldsl,_sliders
1878*line 858
1879move.l _oldsw,_swpt
1880*line 859
1881*line 860
1882jsr _lcdlbls
1883*line 861
1884jsr _setleds
1885*line 862
1886bra L142
1887L140:
1888*line 863
1889*line 864
1890*line 865
1891move _sdmcol,(sp)
1892move _sdmrow,-(sp)
1893jsr _stcpos
1894addq.l #2,sp
1895*line 866
1896*line 867
1897move _sdmcol,R0
1898asl #3,R0
1899move R0,_cxval
1900*line 868
1901move _sdmrow,R0
1902muls #14,R0
1903move R0,_cyval
1904*line 869
1905*line 870
1906*line 871
1907move.l _curfet,(sp)
1908move _stccol,-(sp)
1909move _stcrow,-(sp)
1910jsr _infield
1911addq.l #4,sp
1912tst R0
1913beq L143
1914*line 871
1915move.l _infetp,_cfetp
1916L143:L142:
1917*line 872
1918L138:L119:tst.l (sp)+
1919movem.l (sp)+,R5-R7
1920unlk R14
1921rts
1922.globl _hilitnt
1923.text
1924_hilitnt:
1925~~hilitnt:
1926~nop=8
1927link R14,#-4
1928*line 888
1929move 8(R14),_noteop
1930*line 889
1931clr _notesel
1932*line 890
1933move #-1,(sp)
1934jsr _sdmenu
1935*line 891
1936jsr _dnedmod
1937L144:unlk R14
1938rts
1939.globl _hilitop
1940.text
1941_hilitop:
1942~~hilitop:
1943~n=R7
1944link R14,#0
1945movem.l R2-R7,-(sp)
1946~row=R6
1947~lc=R5
1948~rc=R4
1949~col=R3
1950*line 908
1951move 8(R14),R7
1952*line 908
1953*line 909
1954tst _clkrun
1955bne L145
1956*line 910
1957*line 911
1958*line 912
1959clr R0
1960move 10+_v_regs,R0
1961and #384,R0
1962beq L146
1963*line 912
1964clr (sp)
1965jsr _vbank
1966*line 913
1967L146:
1968*line 914
1969*line 914
1970tst _secop
1971beq L147
1972*line 915
1973*line 916
1974move _secop,R0
1975muls #6,R0
1976add.l #_sdmht,R0
1977move.l R0,R8
1978move (R8),R6
1979*line 917
1980move _secop,R0
1981muls #6,R0
1982add.l #_sdmht,R0
1983move.l R0,R8
1984move 2(R8),R5
1985*line 918
1986move _secop,R0
1987muls #6,R0
1988add.l #_sdmht,R0
1989move.l R0,R8
1990move 4(R8),R4
1991*line 919
1992*line 920
1993move R5,R3
1994bra L150
1995L151:
1996*line 921
1997move #20,(sp)
1998move R3,-(sp)
1999move R6,-(sp)
2000move.l _obj8,-(sp)
2001jsr _vputa
2002addq.l #8,sp
2003L149:
2004*line 920
2005add #1,R3
2006L150:
2007*line 920
2008cmp R4,R3
2009ble L151
2010L148:
2011*line 921
2012*line 922
2013*line 923
2014L147:
2015*line 924
2016move R7,_secop
2017*line 926
2018move R7,R0
2019muls #6,R0
2020add.l #_sdmht,R0
2021move.l R0,R8
2022move (R8),R6
2023*line 927
2024move R7,R0
2025muls #6,R0
2026add.l #_sdmht,R0
2027move.l R0,R8
2028move 2(R8),R5
2029*line 928
2030move R7,R0
2031muls #6,R0
2032add.l #_sdmht,R0
2033move.l R0,R8
2034move 4(R8),R4
2035*line 930
2036move R5,R3
2037bra L154
2038L155:
2039*line 931
2040move #100,(sp)
2041move R3,-(sp)
2042move R6,-(sp)
2043move.l _obj8,-(sp)
2044jsr _vputa
2045addq.l #8,sp
2046L153:
2047*line 930
2048add #1,R3
2049L154:
2050*line 930
2051cmp R4,R3
2052ble L155
2053L152:L145:tst.l (sp)+
2054movem.l (sp)+,R3-R7
2055unlk R14
2056rts
2057.globl _dosecop
2058.text
2059_dosecop:
2060~~dosecop:
2061link R14,#0
2062movem.l R6-R7/R13-R13,-(sp)
2063~sect=R7
2064~ep=R13
2065*line 948
2066*line 948
2067tst _clkrun
2068bne L10016
2069jsr _insect
2070move R0,R7
2071cmp #-1,R7
2072bne L157
2073L10016:*line 949
2074*line 950
2075clr _secop
2076bra L156
2077*line 951
2078*line 952
2079*line 953
2080L157:
2081*line 954
2082*line 954
2083tst _insmode
2084beq L158
2085*line 955
2086*line 956
2087jsr _icancel
2088*line 957
2089jsr _dsimode
2090*line 958
2091*line 959
2092L158:
2093*line 960
2094move _secop,R0
2095bra L160
2096*line 961
2097L161:
2098*line 962
2099*line 963
2100*line 964
2101*line 964
2102cmp #3,_sgoflag
2103bne L162
2104*line 965
2105*line 966
2106move _curscor,R0
2107muls #48,R0
2108add.l #_hplist,R0
2109move.l R0,R8
2110move.l 44(R8),R13
2111*line 967
2112*line 968
2113bra L165
2114L164:
2115*line 969
2116*line 970
2117*line 970
2118move.b 6(R13),R0
2119ext.w R0
2120cmp R0,R7
2121bne L166
2122*line 971
2123*line 972
2124move.l (R13),R0
2125move.l R0,_fc_val
2126move.l R0,(sp)
2127jsr _sc_goto
2128bra L163
2129*line 973
2130*line 974
2131*line 975
2132L166:
2133*line 976
2134move.l 20(R13),R13
2135L165:
2136*line 977
2137move.l R13,R0
2138bne L164
2139L163:
2140*line 978
2141bra L167
2142L162:
2143*line 979
2144*line 980
2145*line 981
2146*line 982
2147move _curscor,R0
2148muls #80,R0
2149move R7,R1
2150asl #2,R1
2151ext.l R1
2152add.l R1,R0
2153add.l #_seclist,R0
2154move.l R0,R8
2155move.l (R8),R13
2156move.l R13,R0
2157beq L168
2158*line 982
2159move.l (R13),R0
2160move.l R0,_fc_val
2161move.l R0,(sp)
2162jsr _sc_goto
2163L168:L167:
2164*line 983
2165*line 984
2166bra L159
2167*line 985
2168*line 986
2169*line 987
2170L169:
2171*line 988
2172*line 989
2173*line 990
2174*line 991
2175tst _recsw
2176beq L159
2177*line 992
2178*line 993
2179*line 994
2180clr R0
2181move 10+_v_regs,R0
2182and #384,R0
2183beq L170
2184*line 994
2185clr (sp)
2186jsr _vbank
2187*line 995
2188L170:
2189*line 996
2190*line 996
2191move _curscor,R0
2192muls #80,R0
2193move R7,R1
2194asl #2,R1
2195ext.l R1
2196add.l R1,R0
2197add.l #_seclist,R0
2198move.l R0,R8
2199move.l (R8),R13
2200move.l R13,R0
2201beq L171
2202*line 997
2203*line 998
2204move #10,(sp)
2205move.l R13,-(sp)
2206jsr _eh_rmv
2207addq.l #4,sp
2208*line 999
2209move.l R13,(sp)
2210jsr _e_rmv
2211*line 1000
2212move.l _t_cur,(R13)
2213*line 1001
2214move.l _t_cur,(sp)
2215move #1,-(sp)
2216move.l _p_cur,-(sp)
2217jsr _ep_adj
2218addq.l #6,sp
2219move.l R0,R8
2220move.l 8(R8),(sp)
2221move.l R13,-(sp)
2222jsr _e_ins
2223addq.l #4,sp
2224move.l R0,R8
2225move.l 12(R8),_p_cur
2226*line 1002
2227move #10,(sp)
2228move.l R13,-(sp)
2229jsr _eh_ins
2230addq.l #4,sp
2231*line 1003
2232clr (sp)
2233move.l R13,-(sp)
2234jsr _se_exec
2235addq.l #4,sp
2236*line 1004
2237bra L172
2238L171:
2239*line 1005
2240*line 1005
2241move #6,(sp)
2242jsr _e_alc
2243move.l R0,R13
2244move.l R13,R0
2245beq L173
2246*line 1006
2247*line 1007
2248move.l _t_cur,(R13)
2249*line 1008
2250move.b #2,5(R13)
2251*line 1009
2252move.b R7,6(R13)
2253*line 1010
2254move.l _t_cur,(sp)
2255move #1,-(sp)
2256move.l _p_cur,-(sp)
2257jsr _ep_adj
2258addq.l #6,sp
2259move.l R0,R8
2260move.l 8(R8),(sp)
2261move.l R13,-(sp)
2262jsr _e_ins
2263addq.l #4,sp
2264move.l R0,R8
2265move.l 12(R8),_p_cur
2266*line 1011
2267move #10,(sp)
2268move.l R13,-(sp)
2269jsr _eh_ins
2270addq.l #4,sp
2271*line 1012
2272move _curscor,R0
2273muls #80,R0
2274move R7,R1
2275asl #2,R1
2276ext.l R1
2277add.l R1,R0
2278add.l #_seclist,R0
2279move.l R0,R8
2280move.l R13,(R8)
2281*line 1013
2282clr (sp)
2283move.l R13,-(sp)
2284jsr _se_exec
2285addq.l #4,sp
2286*line 1014
2287*line 1015
2288L173:L172:
2289*line 1016
2290move.l _fc_val,(sp)
2291jsr _sc_refr
2292bra L159
2293*line 1017
2294*line 1018
2295*line 1019
2296L174:
2297*line 1020
2298*line 1021
2299*line 1022
2300*line 1023
2301tst _recsw
2302beq L159
2303*line 1024
2304*line 1025
2305*line 1026
2306clr R0
2307move 10+_v_regs,R0
2308and #384,R0
2309beq L175
2310*line 1026
2311clr (sp)
2312jsr _vbank
2313*line 1027
2314L175:
2315*line 1028
2316*line 1028
2317move #-1,(sp)
2318move R7,-(sp)
2319move.l #$ffffffff,-(sp)
2320move #11,-(sp)
2321jsr _ehfind
2322addq.l #8,sp
2323move.l R0,R13
2324move.l R13,R0
2325beq L176
2326*line 1029
2327*line 1030
2328move #11,(sp)
2329move.l R13,-(sp)
2330jsr _eh_rmv
2331addq.l #4,sp
2332*line 1031
2333move.l R13,(sp)
2334jsr _e_rmv
2335*line 1032
2336move.l _t_cur,(R13)
2337*line 1033
2338move.l _t_cur,(sp)
2339clr -(sp)
2340move.l _p_cur,-(sp)
2341jsr _ep_adj
2342addq.l #6,sp
2343move.l R0,(sp)
2344move.l R13,-(sp)
2345jsr _e_ins
2346addq.l #4,sp
2347move.l R0,R8
2348move.l 12(R8),_p_cur
2349*line 1034
2350move #11,(sp)
2351move.l R13,-(sp)
2352jsr _eh_ins
2353addq.l #4,sp
2354*line 1035
2355clr (sp)
2356move.l R13,-(sp)
2357jsr _se_exec
2358addq.l #4,sp
2359*line 1036
2360bra L177
2361L176:
2362*line 1037
2363*line 1037
2364move #6,(sp)
2365jsr _e_alc
2366move.l R0,R13
2367move.l R13,R0
2368beq L178
2369*line 1038
2370*line 1039
2371move.l _t_cur,(R13)
2372*line 1040
2373move.b #3,5(R13)
2374*line 1041
2375move.b R7,6(R13)
2376*line 1042
2377move.l _t_cur,(sp)
2378clr -(sp)
2379move.l _p_cur,-(sp)
2380jsr _ep_adj
2381addq.l #6,sp
2382move.l R0,(sp)
2383move.l R13,-(sp)
2384jsr _e_ins
2385addq.l #4,sp
2386move.l R0,R8
2387move.l 12(R8),_p_cur
2388*line 1043
2389move #11,(sp)
2390move.l R13,-(sp)
2391jsr _eh_ins
2392addq.l #4,sp
2393*line 1044
2394clr (sp)
2395move.l R13,-(sp)
2396jsr _se_exec
2397addq.l #4,sp
2398*line 1045
2399*line 1046
2400L178:L177:
2401*line 1047
2402move.l _fc_val,(sp)
2403jsr _sc_refr
2404bra L159
2405*line 1048
2406*line 1049
2407*line 1050
2408L179:
2409*line 1051
2410*line 1052
2411*line 1053
2412*line 1054
2413tst _recsw
2414beq L159
2415*line 1055
2416*line 1056
2417*line 1057
2418move R7,(sp)
2419jsr _sec_mov
2420tst R0
2421bne L159
2422*line 1058
2423*line 1059
2424move.l _fc_val,(sp)
2425jsr _sc_refr
2426bra L159
2427*line 1060
2428*line 1061
2429L180:
2430*line 1062
2431*line 1063
2432*line 1064
2433*line 1065
2434tst _recsw
2435beq L159
2436*line 1066
2437*line 1067
2438*line 1068
2439move R7,(sp)
2440jsr _sec_cpy
2441tst R0
2442bne L159
2443*line 1069
2444*line 1070
2445move.l _fc_val,(sp)
2446jsr _sc_refr
2447bra L159
2448*line 1071
2449*line 1072
2450L181:
2451*line 1073
2452*line 1074
2453*line 1075
2454*line 1076
2455tst _recsw
2456beq L159
2457*line 1077
2458*line 1078
2459*line 1079
2460move R7,(sp)
2461jsr _sec_mrg
2462tst R0
2463bne L159
2464*line 1080
2465*line 1081
2466move.l _fc_val,(sp)
2467jsr _sc_refr
2468bra L159
2469*line 1082
2470*line 1083
2471L182:
2472*line 1084
2473*line 1085
2474*line 1086
2475*line 1087
2476tst _recsw
2477beq L159
2478*line 1088
2479*line 1089
2480*line 1090
2481move R7,(sp)
2482jsr _sec_grp
2483tst R0
2484bne L159
2485*line 1091
2486*line 1092
2487move.l _fc_val,(sp)
2488jsr _sc_refr
2489bra L159
2490*line 1093
2491*line 1094
2492*line 1095
2493*line 1096
2494L183:
2495*line 1097
2496*line 1098
2497*line 1099
2498*line 1100
2499tst _recsw
2500beq L159
2501*line 1101
2502bra L159
2503*line 1102
2504*line 1103
2505L184:
2506*line 1104
2507*line 1105
2508*line 1106
2509*line 1107
2510tst _recsw
2511beq L159
2512*line 1108
2513*line 1109
2514*line 1110
2515move R7,(sp)
2516jsr _sec_dgr
2517tst R0
2518bne L159
2519*line 1111
2520*line 1112
2521move.l _fc_val,(sp)
2522jsr _sc_refr
2523bra L159
2524*line 1113
2525*line 1114
2526L185:
2527*line 1115
2528*line 1116
2529*line 1117
2530*line 1118
2531tst _recsw
2532beq L159
2533*line 1119
2534*line 1120
2535*line 1121
2536move R7,(sp)
2537jsr _sec_dev
2538tst R0
2539bne L159
2540*line 1122
2541*line 1123
2542move.l _fc_val,(sp)
2543jsr _sc_refr
2544bra L159
2545*line 1124
2546*line 1125
2547L186:
2548*line 1126
2549*line 1127
2550*line 1128
2551*line 1129
2552tst _recsw
2553beq L159
2554*line 1130
2555*line 1131
2556*line 1132
2557move R7,(sp)
2558jsr _sec_rmv
2559tst R0
2560bne L159
2561*line 1133
2562*line 1134
2563move.l _fc_val,(sp)
2564jsr _sc_refr
2565bra L159
2566*line 1135
2567bra L159
2568L160:sub #1,R0
2569cmp #10,R0
2570bhi L159
2571asl #2,R0
2572move R0,R8
2573add.l #L187,R8
2574move.l (R8),R8
2575jmp (R8)
2576.data
2577L187:.dc.l L161
2578.dc.l L169
2579.dc.l L174
2580.dc.l L179
2581.dc.l L180
2582.dc.l L181
2583.dc.l L183
2584.dc.l L184
2585.dc.l L185
2586.dc.l L186
2587.dc.l L182
2588.text
2589L159:
2590*line 1138
2591clr _secop
2592L156:tst.l (sp)+
2593movem.l (sp)+,R7-R7/R13-R13
2594unlk R14
2595rts
2596.globl _clkset
2597.text
2598_clkset:
2599~~clkset:
2600~st=R7
2601link R14,#0
2602movem.l R6-R7,-(sp)
2603*line 1153
2604move 8(R14),R7
2605*line 1153
2606move R7,_clkrun
2607*line 1155
2608move _clksrc,R0
2609bra L190
2610*line 1156
2611L191:
2612*line 1157
2613L192:
2614*line 1158
2615*line 1159
2616*line 1160
2617clr _midiclk
2618*line 1161
2619clr _pulsclk
2620*line 1162
2621*line 1163
2622*line 1164
2623tst R7
2624beq L193
2625*line 1164
2626move #1,_fc_sw
2627*line 1165
2628bra L194
2629L193:
2630*line 1166
2631clr _fc_sw
2632L194:
2633*line 1167
2634bra L188
2635*line 1168
2636*line 1169
2637L195:
2638*line 1170
2639*line 1171
2640*line 1172
2641clr _fc_sw
2642*line 1173
2643clr _pulsclk
2644*line 1174
2645*line 1175
2646*line 1176
2647tst R7
2648beq L196
2649*line 1176
2650move #1,_midiclk
2651*line 1177
2652bra L197
2653L196:
2654*line 1178
2655clr _midiclk
2656L197:
2657*line 1179
2658bra L188
2659*line 1180
2660*line 1181
2661*line 1182
2662L198:
2663*line 1183
2664L199:
2665*line 1184
2666L200:
2667*line 1185
2668*line 1186
2669*line 1187
2670clr _fc_sw
2671*line 1188
2672clr _midiclk
2673*line 1189
2674*line 1190
2675*line 1191
2676tst R7
2677beq L201
2678*line 1191
2679move #1,_pulsclk
2680*line 1192
2681bra L202
2682L201:
2683*line 1193
2684clr _pulsclk
2685L202:
2686*line 1194
2687bra L188
2688*line 1195
2689*line 1196
2690L203:
2691*line 1197
2692*line 1198
2693*line 1199
2694clr _fc_sw
2695*line 1200
2696clr _midiclk
2697*line 1201
2698clr _pulsclk
2699*line 1202
2700bra L188
2701*line 1203
2702bra L189
2703L190:cmp #6,R0
2704bhi L189
2705asl #2,R0
2706move R0,R8
2707add.l #L204,R8
2708move.l (R8),R8
2709jmp (R8)
2710.data
2711L204:.dc.l L191
2712.dc.l L195
2713.dc.l L192
2714.dc.l L198
2715.dc.l L199
2716.dc.l L200
2717.dc.l L203
2718.text
2719L189:L188:tst.l (sp)+
2720movem.l (sp)+,R7-R7
2721unlk R14
2722rts
2723.globl _sdboxfn
2724.text
2725_sdboxfn:
2726~~sdboxfn:
2727~n=8
2728link R14,#-4
2729movem.l R2-R7/R13-R13,-(sp)
2730~row=R7
2731~col=R6
2732~grp=R5
2733~what=R4
2734~i=R3
2735~ep=R13
2736~atr=-2
2737~modewas=-4
2738*line 1224
2739move _hitcy,R7
2740ext.l R7
2741divs #14,R7
2742*line 1225
2743move _hitcx,R6
2744asr #3,R6
2745*line 1227
2746move _hitbox,R0
2747bra L207
2748*line 1228
2749L208:
2750*line 1229
2751*line 1230
2752*line 1231
2753*line 1231
2754tst R6
2755bne L209
2756*line 1232
2757*line 1233
2758*line 1234
2759tst _clkrun
2760beq L210
2761*line 1234
2762move #-1,R0
2763bra L205
2764*line 1235
2765L210:
2766*line 1236
2767*line 1237
2768cmp.b #4,_ac_code
2769bne L211
2770*line 1237
2771move.b #1,_ac_code
2772*line 1238
2773bra L212
2774L211:
2775*line 1239
2776move.b #4,_ac_code
2777L212:
2778*line 1240
2779*line 1241
2780move.l _fc_val,(sp)
2781jsr _sc_refr
2782*line 1242
2783clr R0
2784bra L205
2785*line 1243
2786bra L213
2787L209:
2788*line 1244
2789*line 1244
2790cmp #2,R6
2791blt L214
2792cmp #4,R6
2793bgt L214
2794*line 1245
2795*line 1246
2796*line 1247
2797tst _clkrun
2798beq L215
2799*line 1247
2800move #-1,R0
2801bra L205
2802*line 1248
2803L215:
2804*line 1249
2805*line 1249
2806cmp #-1,_sdmctl
2807bne L216
2808*line 1250
2809*line 1251
2810move #4,(sp)
2811jsr _sdmenu
2812*line 1252
2813clr R0
2814bra L205
2815*line 1253
2816*line 1254
2817bra L217
2818L216:
2819*line 1255
2820*line 1256
2821*line 1257
2822*line 1257
2823cmp #19,_vtcrow
2824bne L218
2825*line 1258
2826*line 1259
2827*line 1260
2828cmp #1,_vtccol
2829blt L219
2830cmp #4,_vtccol
2831bgt L219
2832*line 1261
2833*line 1262
2834move #1,(sp)
2835jsr _hilitop
2836*line 1263
2837clr R0
2838bra L205
2839*line 1264
2840bra L220
2841L219:
2842*line 1265
2843*line 1266
2844cmp #8,_vtccol
2845blt L221
2846cmp #11,_vtccol
2847bgt L221
2848*line 1267
2849*line 1268
2850move #4,(sp)
2851jsr _hilitop
2852*line 1269
2853clr R0
2854bra L205
2855*line 1270
2856bra L222
2857L221:
2858*line 1271
2859*line 1272
2860cmp #15,_vtccol
2861blt L223
2862cmp #19,_vtccol
2863bgt L223
2864*line 1273
2865*line 1274
2866move #7,(sp)
2867jsr _hilitop
2868*line 1275
2869clr R0
2870bra L205
2871*line 1276
2872bra L224
2873L223:
2874*line 1277
2875*line 1278
2876cmp #24,_vtccol
2877blt L225
2878cmp #62,_vtccol
2879bgt L225
2880*line 1279
2881*line 1280
2882*line 1280
2883jsr _insect
2884cmp #-1,R0
2885beq L226
2886*line 1281
2887*line 1282
2888move #-1,(sp)
2889jsr _sdmenu
2890*line 1283
2891jsr _dosecop
2892*line 1284
2893*line 1285
2894L226:
2895*line 1286
2896clr R0
2897bra L205
2898*line 1287
2899*line 1288
2900*line 1289
2901L225:L224:L222:L220:bra L227
2902L218:
2903*line 1290
2904*line 1290
2905cmp #20,_vtcrow
2906bne L228
2907*line 1291
2908*line 1292
2909*line 1293
2910cmp #1,_vtccol
2911blt L229
2912cmp #5,_vtccol
2913bgt L229
2914*line 1294
2915*line 1295
2916move #2,(sp)
2917jsr _hilitop
2918*line 1296
2919clr R0
2920bra L205
2921*line 1297
2922bra L230
2923L229:
2924*line 1298
2925*line 1299
2926cmp #8,_vtccol
2927blt L231
2928cmp #11,_vtccol
2929bgt L231
2930*line 1300
2931*line 1301
2932move #5,(sp)
2933jsr _hilitop
2934*line 1302
2935clr R0
2936bra L205
2937*line 1303
2938bra L232
2939L231:
2940*line 1304
2941*line 1305
2942cmp #15,_vtccol
2943blt L233
2944cmp #20,_vtccol
2945bgt L233
2946*line 1306
2947*line 1307
2948move #8,(sp)
2949jsr _hilitop
2950*line 1308
2951clr R0
2952bra L205
2953*line 1309
2954bra L234
2955L233:
2956*line 1310
2957*line 1311
2958cmp #24,_vtccol
2959blt L235
2960cmp #62,_vtccol
2961bgt L235
2962*line 1312
2963*line 1313
2964*line 1313
2965jsr _insect
2966cmp #-1,R0
2967beq L236
2968*line 1314
2969*line 1315
2970move #-1,(sp)
2971jsr _sdmenu
2972*line 1316
2973jsr _dosecop
2974*line 1317
2975*line 1318
2976L236:
2977*line 1319
2978clr R0
2979bra L205
2980*line 1320
2981*line 1321
2982*line 1322
2983L235:L234:L232:L230:bra L237
2984L228:
2985*line 1323
2986*line 1323
2987cmp #21,_vtcrow
2988bne L238
2989*line 1324
2990*line 1325
2991*line 1326
2992cmp #1,_vtccol
2993blt L239
2994cmp #3,_vtccol
2995bgt L239
2996*line 1327
2997*line 1328
2998move #3,(sp)
2999jsr _hilitop
3000*line 1329
3001clr R0
3002bra L205
3003*line 1330
3004bra L240
3005L239:
3006*line 1331
3007*line 1332
3008cmp #8,_vtccol
3009blt L241
3010cmp #12,_vtccol
3011bgt L241
3012*line 1333
3013*line 1334
3014move #6,(sp)
3015jsr _hilitop
3016*line 1335
3017clr R0
3018bra L205
3019*line 1336
3020bra L242
3021L241:
3022*line 1337
3023*line 1338
3024cmp #15,_vtccol
3025blt L243
3026cmp #20,_vtccol
3027bgt L243
3028*line 1339
3029*line 1340
3030move #9,(sp)
3031jsr _hilitop
3032*line 1341
3033clr R0
3034bra L205
3035*line 1342
3036*line 1343
3037*line 1344
3038*line 1345
3039L243:L242:L240:bra L244
3040L238:
3041*line 1346
3042*line 1346
3043cmp #22,_vtcrow
3044bne L245
3045*line 1347
3046*line 1348
3047*line 1349
3048cmp #8,_vtccol
3049blt L246
3050cmp #12,_vtccol
3051bgt L246
3052*line 1350
3053*line 1351
3054move #11,(sp)
3055jsr _hilitop
3056*line 1352
3057clr R0
3058bra L205
3059*line 1353
3060bra L247
3061L246:
3062*line 1354
3063*line 1355
3064cmp #15,_vtccol
3065blt L248
3066cmp #20,_vtccol
3067bgt L248
3068*line 1356
3069*line 1357
3070move #10,(sp)
3071jsr _hilitop
3072*line 1358
3073clr R0
3074bra L205
3075*line 1359
3076bra L249
3077L248:
3078*line 1360
3079*line 1361
3080cmp #28,_vtccol
3081blt L250
3082cmp #62,_vtccol
3083bgt L250
3084*line 1362
3085*line 1363
3086*line 1364
3087tst _gtmsel
3088blt L251
3089*line 1364
3090clr (sp)
3091move _gtmsel,-(sp)
3092jsr _dsgtmn
3093addq.l #2,sp
3094*line 1365
3095L251:
3096*line 1366
3097*line 1367
3098jsr _ingroup
3099move R0,_gtmsel
3100cmp #-1,R0
3101beq L252
3102*line 1367
3103move #1,(sp)
3104move _gtmsel,-(sp)
3105jsr _dsgtmn
3106addq.l #2,sp
3107*line 1368
3108L252:
3109*line 1369
3110clr R0
3111bra L205
3112*line 1370
3113*line 1371
3114L250:L249:L247:bra L253
3115L245:
3116*line 1372
3117*line 1372
3118cmp #23,_vtcrow
3119bne L254
3120*line 1373
3121*line 1374
3122*line 1375
3123cmp #1,_vtccol
3124blt L255
3125cmp #6,_vtccol
3126bgt L255
3127*line 1376
3128*line 1377
3129clr _secop
3130*line 1378
3131move #-1,(sp)
3132jsr _sdmenu
3133*line 1379
3134clr R0
3135bra L205
3136*line 1380
3137bra L256
3138L255:
3139*line 1381
3140*line 1382
3141cmp #22,_vtccol
3142blt L257
3143cmp #24,_vtccol
3144bgt L257
3145*line 1383
3146*line 1384
3147jsr _enterit
3148bra L205
3149*line 1385
3150L257:L256:
3151*line 1386
3152L254:L253:L244:L237:L227:L217:
3153*line 1387
3154*line 1388
3155*line 1389
3156move #-1,R0
3157bra L205
3158*line 1390
3159*line 1391
3160bra L258
3161L214:
3162*line 1392
3163jsr _enterit
3164bra L205
3165L258:L213:
3166*line 1393
3167*line 1394
3168*line 1395
3169L259:
3170*line 1396
3171*line 1397
3172*line 1398
3173move _insmode,-4(R14)
3174*line 1399
3175*line 1400
3176*line 1401
3177tst _insmode
3178beq L260
3179*line 1401
3180jsr _icancel
3181*line 1402
3182bra L261
3183L260:
3184*line 1403
3185jsr _istart
3186L261:
3187*line 1404
3188*line 1405
3189*line 1406
3190move -4(R14),R0
3191cmp _insmode,R0
3192beq L262
3193*line 1406
3194move.l _fc_val,(sp)
3195jsr _sc_refr
3196*line 1407
3197L262:
3198*line 1408
3199jsr _dsimode
3200*line 1409
3201clr R0
3202bra L205
3203*line 1410
3204L263:
3205*line 1411
3206*line 1412
3207*line 1413
3208*line 1413
3209cmp #33,R6
3210bgt L264
3211*line 1414
3212*line 1415
3213tst _clkrun
3214beq L10017
3215clr (sp)
3216bra L10018
3217L10017:move #1,(sp)
3218L10018:jsr _clkset
3219*line 1416
3220jsr _dsclk
3221*line 1417
3222clr R0
3223bra L205
3224*line 1418
3225*line 1419
3226*line 1420
3227bra L265
3228L264:
3229*line 1421
3230*line 1421
3231cmp #35,R6
3232blt L266
3233cmp #43,R6
3234bgt L266
3235*line 1422
3236*line 1423
3237*line 1423
3238cmp #-1,_sdmctl
3239bne L267
3240*line 1424
3241*line 1425
3242move #3,(sp)
3243jsr _sdmenu
3244*line 1426
3245clr R0
3246bra L205
3247*line 1427
3248bra L268
3249L267:
3250*line 1428
3251*line 1429
3252*line 1430
3253*line 1430
3254cmp #19,_vtcrow
3255bne L269
3256*line 1431
3257*line 1432
3258*line 1433
3259cmp #1,_vtccol
3260blt L270
3261cmp #5,_vtccol
3262bgt L270
3263*line 1434
3264*line 1435
3265clr _clkctl
3266*line 1436
3267move #-1,(sp)
3268jsr _sdmenu
3269*line 1437
3270move #2,(sp)
3271jsr _sdwin
3272*line 1438
3273clr R0
3274bra L205
3275*line 1439
3276*line 1440
3277L270:bra L271
3278L269:
3279*line 1441
3280*line 1441
3281cmp #20,_vtcrow
3282bne L272
3283*line 1442
3284*line 1443
3285*line 1444
3286cmp #1,_vtccol
3287blt L273
3288cmp #5,_vtccol
3289bgt L273
3290*line 1445
3291*line 1446
3292move #1,_clkctl
3293*line 1447
3294move #-1,(sp)
3295jsr _sdmenu
3296*line 1448
3297move #2,(sp)
3298jsr _sdwin
3299*line 1449
3300clr R0
3301bra L205
3302*line 1450
3303*line 1451
3304L273:bra L274
3305L272:
3306*line 1452
3307*line 1452
3308cmp #21,_vtcrow
3309bne L275
3310*line 1453
3311*line 1454
3312*line 1455
3313cmp #1,_vtccol
3314blt L276
3315cmp #5,_vtccol
3316bgt L276
3317*line 1456
3318*line 1457
3319move #2,_clkctl
3320*line 1458
3321move #-1,(sp)
3322jsr _sdmenu
3323*line 1459
3324move #2,(sp)
3325jsr _sdwin
3326*line 1460
3327clr R0
3328bra L205
3329*line 1461
3330L276:
3331*line 1462
3332L275:L274:L271:L268:
3333*line 1463
3334*line 1464
3335*line 1465
3336move #-1,R0
3337bra L205
3338*line 1466
3339*line 1467
3340bra L277
3341L266:
3342*line 1468
3343*line 1468
3344cmp #45,R6
3345blt L278
3346*line 1469
3347*line 1470
3348*line 1470
3349cmp #-1,_sdmctl
3350bne L279
3351*line 1471
3352*line 1472
3353move #2,(sp)
3354jsr _sdmenu
3355*line 1473
3356jsr _setleds
3357*line 1474
3358clr R0
3359bra L205
3360*line 1475
3361bra L280
3362L279:
3363*line 1476
3364*line 1477
3365*line 1478
3366*line 1478
3367cmp #19,_vtcrow
3368bne L281
3369*line 1479
3370*line 1480
3371*line 1481
3372cmp #1,_vtccol
3373blt L282
3374cmp #5,_vtccol
3375bgt L282
3376*line 1482
3377*line 1483
3378clr _clksrc
3379*line 1484
3380clr _pkctrl
3381*line 1485
3382jsr _setleds
3383*line 1486
3384move #-1,(sp)
3385jsr _sdmenu
3386*line 1487
3387move #2,(sp)
3388jsr _sdwin
3389*line 1488
3390clr R0
3391bra L205
3392*line 1489
3393bra L283
3394L282:
3395*line 1490
3396*line 1491
3397cmp #9,_vtccol
3398blt L284
3399cmp #13,_vtccol
3400bgt L284
3401*line 1492
3402*line 1493
3403move #3,_clksrc
3404*line 1494
3405clr _pkctrl
3406*line 1495
3407jsr _setleds
3408*line 1496
3409move #-1,(sp)
3410jsr _sdmenu
3411*line 1497
3412move #2,(sp)
3413jsr _sdwin
3414*line 1498
3415clr R0
3416bra L205
3417*line 1499
3418bra L285
3419L284:
3420*line 1500
3421*line 1501
3422cmp #17,_vtccol
3423blt L286
3424cmp #20,_vtccol
3425bgt L286
3426*line 1502
3427*line 1503
3428move #6,_clksrc
3429*line 1504
3430move #1,_pkctrl
3431*line 1505
3432move #1,_stepenb
3433*line 1506
3434jsr _setleds
3435*line 1507
3436move #-1,(sp)
3437jsr _sdmenu
3438*line 1508
3439move #2,(sp)
3440jsr _sdwin
3441*line 1509
3442clr R0
3443bra L205
3444*line 1510
3445*line 1511
3446*line 1512
3447*line 1513
3448L286:L285:L283:bra L287
3449L281:
3450*line 1514
3451*line 1514
3452cmp #20,_vtcrow
3453bne L288
3454*line 1515
3455*line 1516
3456*line 1517
3457cmp #1,_vtccol
3458blt L289
3459cmp #5,_vtccol
3460bgt L289
3461*line 1518
3462*line 1519
3463move #1,_clksrc
3464*line 1520
3465clr _pkctrl
3466*line 1521
3467jsr _setleds
3468*line 1522
3469move #-1,(sp)
3470jsr _sdmenu
3471*line 1523
3472move #2,(sp)
3473jsr _sdwin
3474*line 1524
3475clr R0
3476bra L205
3477*line 1525
3478bra L290
3479L289:
3480*line 1526
3481*line 1527
3482cmp #9,_vtccol
3483blt L291
3484cmp #13,_vtccol
3485bgt L291
3486*line 1528
3487*line 1529
3488move #4,_clksrc
3489*line 1530
3490clr _pkctrl
3491*line 1531
3492jsr _setleds
3493*line 1532
3494move #-1,(sp)
3495jsr _sdmenu
3496*line 1533
3497move #2,(sp)
3498jsr _sdwin
3499*line 1534
3500clr R0
3501bra L205
3502*line 1535
3503*line 1536
3504*line 1537
3505L291:L290:bra L292
3506L288:
3507*line 1538
3508*line 1538
3509cmp #21,_vtcrow
3510bne L293
3511*line 1539
3512*line 1540
3513*line 1541
3514cmp #1,_vtccol
3515blt L294
3516cmp #5,_vtccol
3517bgt L294
3518*line 1542
3519*line 1543
3520move #2,_clksrc
3521*line 1544
3522clr _pkctrl
3523*line 1545
3524jsr _setleds
3525*line 1546
3526move #-1,(sp)
3527jsr _sdmenu
3528*line 1547
3529move #2,(sp)
3530jsr _sdwin
3531*line 1548
3532clr R0
3533bra L205
3534*line 1549
3535bra L295
3536L294:
3537*line 1550
3538*line 1551
3539cmp #9,_vtccol
3540blt L296
3541cmp #13,_vtccol
3542bgt L296
3543*line 1552
3544*line 1553
3545move #5,_clksrc
3546*line 1554
3547clr _pkctrl
3548*line 1555
3549jsr _setleds
3550*line 1556
3551move #-1,(sp)
3552jsr _sdmenu
3553*line 1557
3554move #2,(sp)
3555jsr _sdwin
3556*line 1558
3557clr R0
3558bra L205
3559*line 1559
3560L296:L295:
3561*line 1560
3562L293:L292:L287:L280:
3563*line 1561
3564*line 1562
3565*line 1563
3566L278:L277:L265:
3567*line 1564
3568move #-1,R0
3569bra L205
3570*line 1565
3571*line 1566
3572*line 1567
3573L297:
3574*line 1568
3575*line 1569
3576*line 1570
3577*line 1571
3578tst _clkrun
3579beq L298
3580*line 1571
3581move #-1,R0
3582bra L205
3583*line 1572
3584L298:
3585*line 1573
3586*line 1574
3587cmp #-1,_scmctl
3588beq L299
3589*line 1574
3590move #-1,(sp)
3591jsr _scmenu
3592*line 1575
3593L299:
3594*line 1576
3595*line 1576
3596cmp #-1,_sdmctl
3597bne L300
3598*line 1577
3599*line 1578
3600move #1,(sp)
3601jsr _sdmenu
3602*line 1579
3603clr _noteop
3604*line 1580
3605clr R0
3606bra L205
3607*line 1581
3608bra L301
3609L300:
3610*line 1582
3611*line 1583
3612*line 1584
3613*line 1584
3614cmp #19,_vtcrow
3615bne L302
3616*line 1585
3617*line 1586
3618*line 1587
3619cmp #1,_vtccol
3620blt L303
3621cmp #9,_vtccol
3622bgt L303
3623*line 1588
3624*line 1589
3625move #1,(sp)
3626jsr _hilitnt
3627*line 1590
3628clr R0
3629bra L205
3630*line 1591
3631bra L304
3632L303:
3633*line 1592
3634*line 1593
3635cmp #13,_vtccol
3636blt L305
3637cmp #21,_vtccol
3638bgt L305
3639*line 1594
3640*line 1595
3641move #4,(sp)
3642jsr _hilitnt
3643*line 1596
3644clr R0
3645bra L205
3646*line 1597
3647bra L306
3648L305:
3649*line 1598
3650*line 1599
3651cmp #25,_vtccol
3652blt L307
3653cmp #30,_vtccol
3654bgt L307
3655*line 1600
3656*line 1601
3657clr (sp)
3658jsr _hilitnt
3659*line 1602
3660clr R0
3661bra L205
3662*line 1603
3663*line 1604
3664*line 1605
3665L307:L306:L304:
3666*line 1606
3667move #-1,R0
3668bra L205
3669*line 1607
3670*line 1608
3671bra L308
3672L302:
3673*line 1609
3674*line 1609
3675cmp #20,_vtcrow
3676bne L309
3677*line 1610
3678*line 1611
3679*line 1612
3680cmp #1,_vtccol
3681blt L310
3682cmp #9,_vtccol
3683bgt L310
3684*line 1613
3685*line 1614
3686move #2,(sp)
3687jsr _hilitnt
3688*line 1615
3689clr R0
3690bra L205
3691*line 1616
3692bra L311
3693L310:
3694*line 1617
3695*line 1618
3696cmp #13,_vtccol
3697blt L312
3698cmp #22,_vtccol
3699bgt L312
3700*line 1619
3701*line 1620
3702move #5,(sp)
3703jsr _hilitnt
3704*line 1621
3705clr R0
3706bra L205
3707*line 1622
3708*line 1623
3709L312:L311:
3710*line 1624
3711move #-1,R0
3712bra L205
3713*line 1625
3714bra L313
3715L309:
3716*line 1626
3717*line 1626
3718cmp #21,_vtcrow
3719bne L314
3720*line 1627
3721*line 1628
3722*line 1629
3723cmp #1,_vtccol
3724blt L315
3725cmp #8,_vtccol
3726bgt L315
3727*line 1630
3728*line 1631
3729move #3,(sp)
3730jsr _hilitnt
3731*line 1632
3732clr R0
3733bra L205
3734*line 1633
3735bra L316
3736L315:
3737*line 1634
3738*line 1635
3739cmp #13,_vtccol
3740blt L317
3741cmp #20,_vtccol
3742bgt L317
3743*line 1636
3744*line 1637
3745move #6,(sp)
3746jsr _hilitnt
3747*line 1638
3748clr R0
3749bra L205
3750*line 1639
3751*line 1640
3752L317:L316:
3753*line 1641
3754move #-1,R0
3755bra L205
3756*line 1642
3757*line 1643
3758bra L318
3759L314:
3760*line 1644
3761move #-1,R0
3762bra L205
3763L318:L313:L308:L301:
3764*line 1645
3765*line 1646
3766*line 1647
3767move #-1,R0
3768bra L205
3769*line 1648
3770*line 1649
3771*line 1650
3772L319:
3773*line 1651
3774*line 1652
3775*line 1653
3776*line 1653
3777cmp #9,R6
3778bgt L320
3779*line 1654
3780*line 1655
3781*line 1655
3782cmp #1,_scmctl
3783beq L321
3784*line 1656
3785*line 1657
3786clr _lastam
3787*line 1658
3788move #1,(sp)
3789jsr _scmenu
3790*line 1659
3791bra L322
3792L321:
3793*line 1660
3794*line 1661
3795*line 1662
3796*line 1662
3797tst _lastam
3798bne L323
3799*line 1663
3800*line 1664
3801move #60,_lastam
3802*line 1665
3803move #1,(sp)
3804jsr _scmenu
3805*line 1666
3806bra L324
3807L323:
3808*line 1667
3809*line 1668
3810*line 1669
3811clr _lastam
3812*line 1670
3813move #-1,(sp)
3814jsr _scmenu
3815L324:
3816*line 1671
3817L322:
3818*line 1672
3819*line 1673
3820*line 1674
3821clr R0
3822bra L205
3823*line 1675
3824bra L325
3825L320:
3826*line 1676
3827*line 1677
3828*line 1678
3829jsr _enterit
3830bra L205
3831L325:
3832*line 1679
3833*line 1680
3834L326:
3835*line 1681
3836*line 1682
3837*line 1683
3838*line 1683
3839cmp #14,R6
3840blt L327
3841cmp #17,R6
3842bgt L327
3843*line 1684
3844*line 1685
3845*line 1686
3846cmp #2,_scmctl
3847beq L328
3848*line 1686
3849move #2,(sp)
3850jsr _scmenu
3851*line 1687
3852bra L329
3853L328:
3854*line 1688
3855move #-1,(sp)
3856jsr _scmenu
3857L329:
3858*line 1689
3859*line 1690
3860clr R0
3861bra L205
3862*line 1691
3863bra L330
3864L327:
3865*line 1692
3866*line 1693
3867*line 1694
3868jsr _enterit
3869bra L205
3870L330:
3871*line 1695
3872*line 1696
3873*line 1697
3874L331:
3875*line 1698
3876*line 1699
3877*line 1700
3878*line 1700
3879cmp #40,R6
3880blt L332
3881cmp #43,R6
3882bgt L332
3883*line 1701
3884*line 1702
3885*line 1702
3886tst _recsw
3887beq L333
3888*line 1703
3889*line 1704
3890*line 1705
3891clr R0
3892move 10+_v_regs,R0
3893and #384,R0
3894beq L334
3895*line 1705
3896clr (sp)
3897jsr _vbank
3898*line 1706
3899L334:
3900*line 1707
3901*line 1707
3902move #-1,(sp)
3903move #-1,-(sp)
3904move #7,-(sp)
3905move.l _t_cur,-(sp)
3906move.l _p_cur,-(sp)
3907jsr _findev
3908adda.l #12,sp
3909move.l R0,R13
3910move.l R13,R0
3911beq L335
3912*line 1708
3913*line 1709
3914clr (sp)
3915move.l R13,-(sp)
3916jsr _se_exec
3917addq.l #4,sp
3918*line 1710
3919bra L336
3920L335:
3921*line 1711
3922*line 1711
3923move #5,(sp)
3924jsr _e_alc
3925move.l R0,R13
3926move.l R13,R0
3927beq L337
3928*line 1712
3929*line 1713
3930move.l _t_cur,(R13)
3931*line 1714
3932move.b #7,5(R13)
3933*line 1715
3934move.l _t_cur,(sp)
3935clr -(sp)
3936move.l _p_cur,-(sp)
3937jsr _ep_adj
3938addq.l #6,sp
3939move.l R0,(sp)
3940move.l R13,-(sp)
3941jsr _e_ins
3942addq.l #4,sp
3943move.l R0,R8
3944move.l 12(R8),_p_cur
3945*line 1716
3946clr (sp)
3947move.l R13,-(sp)
3948jsr _se_exec
3949addq.l #4,sp
3950*line 1717
3951move #1,_ctrsw
3952*line 1718
3953move #1,(sp)
3954move.l #_gdstbc,-(sp)
3955clr -(sp)
3956move.l R13,-(sp)
3957jsr _se_disp
3958adda.l #10,sp
3959*line 1719
3960jsr _scupd
3961*line 1720
3962L337:L336:
3963*line 1721
3964*line 1722
3965L333:bra L338
3966L332:
3967*line 1723
3968*line 1723
3969cmp #45,R6
3970blt L339
3971cmp #48,R6
3972bgt L339
3973*line 1724
3974*line 1725
3975*line 1725
3976tst _recsw
3977beq L340
3978*line 1726
3979*line 1727
3980*line 1728
3981clr R0
3982move 10+_v_regs,R0
3983and #384,R0
3984beq L341
3985*line 1728
3986clr (sp)
3987jsr _vbank
3988*line 1729
3989L341:
3990*line 1730
3991*line 1730
3992move #-1,(sp)
3993move #-1,-(sp)
3994move #24,-(sp)
3995move.l _t_cur,-(sp)
3996move.l _p_cur,-(sp)
3997jsr _findev
3998adda.l #12,sp
3999move.l R0,R13
4000move.l R13,R0
4001beq L342
4002*line 1731
4003*line 1732
4004clr (sp)
4005move.l R13,-(sp)
4006jsr _se_exec
4007addq.l #4,sp
4008*line 1733
4009bra L343
4010L342:
4011*line 1734
4012*line 1734
4013move #5,(sp)
4014jsr _e_alc
4015move.l R0,R13
4016move.l R13,R0
4017beq L344
4018*line 1735
4019*line 1736
4020move.l _t_cur,(R13)
4021*line 1737
4022move.b #24,5(R13)
4023*line 1738
4024move.l _t_cur,(sp)
4025clr -(sp)
4026move.l _p_cur,-(sp)
4027jsr _ep_adj
4028addq.l #6,sp
4029move.l R0,(sp)
4030move.l R13,-(sp)
4031jsr _e_ins
4032addq.l #4,sp
4033move.l R0,R8
4034move.l 12(R8),_p_cur
4035*line 1739
4036clr (sp)
4037move.l R13,-(sp)
4038jsr _se_exec
4039addq.l #4,sp
4040*line 1740
4041move #1,_ctrsw
4042*line 1741
4043move #1,(sp)
4044move.l #_gdstbc,-(sp)
4045clr -(sp)
4046move.l R13,-(sp)
4047jsr _se_disp
4048adda.l #10,sp
4049*line 1742
4050jsr _scupd
4051*line 1743
4052L344:L343:
4053*line 1744
4054*line 1745
4055L340:
4056*line 1746
4057*line 1747
4058L339:L338:
4059*line 1748
4060clr R0
4061bra L205
4062*line 1749
4063*line 1750
4064*line 1751
4065L345:
4066*line 1752
4067*line 1753
4068*line 1754
4069*line 1754
4070cmp #50,R6
4071blt L346
4072cmp #51,R6
4073bgt L346
4074*line 1755
4075*line 1756
4076*line 1756
4077tst _recsw
4078beq L347
4079*line 1757
4080*line 1758
4081*line 1759
4082clr R0
4083move 10+_v_regs,R0
4084and #384,R0
4085beq L348
4086*line 1759
4087clr (sp)
4088jsr _vbank
4089*line 1760
4090L348:
4091*line 1761
4092*line 1761
4093move #-1,(sp)
4094move #1,-(sp)
4095move #7,-(sp)
4096move.l _t_cur,-(sp)
4097move.l _p_cur,-(sp)
4098jsr _findev
4099adda.l #12,sp
4100move.l R0,R13
4101move.l R13,R0
4102beq L349
4103*line 1762
4104*line 1763
4105clr (sp)
4106move.l R13,-(sp)
4107jsr _se_exec
4108addq.l #4,sp
4109*line 1764
4110bra L350
4111L349:
4112*line 1765
4113*line 1765
4114move #5,(sp)
4115jsr _e_alc
4116move.l R0,R13
4117move.l R13,R0
4118beq L351
4119*line 1766
4120*line 1767
4121move.l _t_cur,(R13)
4122*line 1768
4123move.b #19,5(R13)
4124*line 1769
4125move.b #1,6(R13)
4126*line 1770
4127move.l _t_cur,(sp)
4128clr -(sp)
4129move.l _p_cur,-(sp)
4130jsr _ep_adj
4131addq.l #6,sp
4132move.l R0,(sp)
4133move.l R13,-(sp)
4134jsr _e_ins
4135addq.l #4,sp
4136move.l R0,R8
4137move.l 12(R8),_p_cur
4138*line 1771
4139clr (sp)
4140move.l R13,-(sp)
4141jsr _se_exec
4142addq.l #4,sp
4143*line 1772
4144move #1,_ctrsw
4145*line 1773
4146move #1,(sp)
4147move.l #_gdstbc,-(sp)
4148clr -(sp)
4149move.l R13,-(sp)
4150jsr _se_disp
4151adda.l #10,sp
4152*line 1774
4153jsr _scupd
4154*line 1775
4155L351:L350:
4156*line 1776
4157*line 1777
4158L347:bra L352
4159L346:
4160*line 1778
4161*line 1778
4162cmp #53,R6
4163blt L353
4164cmp #55,R6
4165bgt L353
4166*line 1779
4167*line 1780
4168*line 1780
4169tst _recsw
4170beq L354
4171*line 1781
4172*line 1782
4173*line 1783
4174clr R0
4175move 10+_v_regs,R0
4176and #384,R0
4177beq L355
4178*line 1783
4179clr (sp)
4180jsr _vbank
4181*line 1784
4182L355:
4183*line 1785
4184*line 1785
4185move #-1,(sp)
4186clr -(sp)
4187move #19,-(sp)
4188move.l _t_cur,-(sp)
4189move.l _p_cur,-(sp)
4190jsr _findev
4191adda.l #12,sp
4192move.l R0,R13
4193move.l R13,R0
4194beq L356
4195*line 1786
4196*line 1787
4197clr (sp)
4198move.l R13,-(sp)
4199jsr _se_exec
4200addq.l #4,sp
4201*line 1788
4202bra L357
4203L356:
4204*line 1789
4205*line 1789
4206move #5,(sp)
4207jsr _e_alc
4208move.l R0,R13
4209move.l R13,R0
4210beq L358
4211*line 1790
4212*line 1791
4213move.l _t_cur,(R13)
4214*line 1792
4215move.b #19,5(R13)
4216*line 1793
4217clr.b 6(R13)
4218*line 1794
4219move.l _t_cur,(sp)
4220clr -(sp)
4221move.l _p_cur,-(sp)
4222jsr _ep_adj
4223addq.l #6,sp
4224move.l R0,(sp)
4225move.l R13,-(sp)
4226jsr _e_ins
4227addq.l #4,sp
4228move.l R0,R8
4229move.l 12(R8),_p_cur
4230*line 1795
4231clr (sp)
4232move.l R13,-(sp)
4233jsr _se_exec
4234addq.l #4,sp
4235*line 1796
4236move #1,_ctrsw
4237*line 1797
4238move #1,(sp)
4239move.l #_gdstbc,-(sp)
4240clr -(sp)
4241move.l R13,-(sp)
4242jsr _se_disp
4243adda.l #10,sp
4244*line 1798
4245jsr _scupd
4246*line 1799
4247L358:L357:
4248*line 1800
4249*line 1801
4250L354:
4251*line 1802
4252*line 1803
4253L353:L352:
4254*line 1804
4255clr R0
4256bra L205
4257*line 1805
4258*line 1806
4259L359:
4260*line 1807
4261*line 1808
4262*line 1809
4263clr R0
4264bra L205
4265*line 1810
4266L360:
4267*line 1811
4268*line 1812
4269*line 1813
4270*line 1813
4271cmp #18,R7
4272bne L361
4273cmp #3,R6
4274bgt L361
4275*line 1814
4276*line 1815
4277*line 1816
4278tst _scmctl
4279beq L362
4280*line 1816
4281clr (sp)
4282jsr _scmenu
4283*line 1817
4284bra L363
4285L362:
4286*line 1818
4287move #-1,(sp)
4288jsr _scmenu
4289L363:
4290*line 1819
4291*line 1820
4292clr R0
4293bra L205
4294*line 1821
4295bra L364
4296L361:
4297*line 1822
4298*line 1822
4299cmp #21,R7
4300bne L365
4301cmp #3,R6
4302bgt L365
4303*line 1823
4304*line 1824
4305tst _velflag
4306beq L10019
4307clr R0
4308bra L10020
4309L10019:move #1,R0
4310L10020:move R0,_velflag
4311*line 1825
4312jsr _ds_vmod
4313*line 1826
4314clr R0
4315bra L205
4316*line 1827
4317*line 1828
4318bra L366
4319L365:
4320*line 1829
4321jsr _enterit
4322bra L205
4323L366:L364:
4324*line 1830
4325*line 1831
4326*line 1832
4327L367:
4328*line 1833
4329*line 1834
4330*line 1835
4331*line 1835
4332cmp #23,R7
4333bne L368
4334cmp #4,R6
4335bgt L368
4336*line 1836
4337*line 1837
4338move _angroup,R0
4339neg R0
4340move R0,_angroup
4341*line 1838
4342*line 1839
4343*line 1840
4344tst _angroup
4345bge L369
4346*line 1840
4347move #18,-2(R14)
4348*line 1841
4349bra L370
4350L369:
4351*line 1842
4352move #82,-2(R14)
4353L370:
4354*line 1843
4355*line 1844
4356*line 1845
4357clr R0
4358move 10+_v_regs,R0
4359and #384,R0
4360beq L371
4361*line 1845
4362clr (sp)
4363jsr _vbank
4364*line 1846
4365L371:
4366*line 1847
4367clr R3
4368bra L374
4369L375:
4370*line 1848
4371move -2(R14),(sp)
4372move R3,-(sp)
4373move #7,-(sp)
4374move.l _obj8,-(sp)
4375jsr _vputa
4376addq.l #8,sp
4377L373:
4378*line 1847
4379add #1,R3
4380L374:
4381*line 1847
4382cmp #4,R3
4383blt L375
4384L372:
4385*line 1848
4386*line 1849
4387*line 1850
4388clr R0
4389bra L205
4390*line 1851
4391bra L376
4392L368:
4393*line 1852
4394*line 1852
4395cmp #22,R7
4396bne L377
4397cmp #4,R6
4398bgt L377
4399*line 1853
4400*line 1854
4401tst _ancmsw
4402beq L10021
4403clr R0
4404bra L10022
4405L10021:move #1,R0
4406L10022:move R0,_ancmsw
4407*line 1855
4408*line 1856
4409*line 1857
4410tst _ancmsw
4411beq L378
4412*line 1857
4413move #82,-2(R14)
4414*line 1858
4415bra L379
4416L378:
4417*line 1859
4418move #18,-2(R14)
4419L379:
4420*line 1860
4421*line 1861
4422*line 1862
4423clr R0
4424move 10+_v_regs,R0
4425and #384,R0
4426beq L380
4427*line 1862
4428clr (sp)
4429jsr _vbank
4430*line 1863
4431L380:
4432*line 1864
4433clr R3
4434bra L383
4435L384:
4436*line 1865
4437move -2(R14),(sp)
4438move R3,-(sp)
4439move #6,-(sp)
4440move.l _obj8,-(sp)
4441jsr _vputa
4442addq.l #8,sp
4443L382:
4444*line 1864
4445add #1,R3
4446L383:
4447*line 1864
4448cmp #4,R3
4449blt L384
4450L381:
4451*line 1865
4452*line 1866
4453*line 1867
4454clr R0
4455bra L205
4456*line 1868
4457bra L385
4458L377:
4459*line 1869
4460*line 1870
4461*line 1871
4462jsr _enterit
4463bra L205
4464L385:L376:
4465*line 1872
4466*line 1873
4467*line 1874
4468L386:
4469*line 1875
4470*line 1876
4471*line 1877
4472*line 1877
4473cmp #4,R6
4474bgt L387
4475*line 1878
4476*line 1879
4477*line 1880
4478cmp #3,_scmctl
4479beq L388
4480*line 1880
4481move #3,(sp)
4482jsr _scmenu
4483*line 1881
4484bra L389
4485L388:
4486*line 1882
4487move #-1,(sp)
4488jsr _scmenu
4489L389:
4490*line 1883
4491*line 1884
4492clr R0
4493bra L205
4494*line 1885
4495bra L390
4496L387:
4497*line 1886
4498*line 1886
4499cmp #10,R6
4500blt L391
4501cmp #25,R6
4502bgt L391
4503*line 1887
4504*line 1888
4505*line 1888
4506tst _sdmctl
4507beq L392
4508*line 1889
4509*line 1890
4510clr (sp)
4511jsr _sdmenu
4512*line 1891
4513*line 1892
4514*line 1893
4515*line 1894
4516move #3,(sp)
4517move #99,-(sp)
4518move.l #_svtstop,-(sp)
4519move.l #_nokey,-(sp)
4520move.l #_nokey,-(sp)
4521move.l #_bspscur,-(sp)
4522move.l #_advscur,-(sp)
4523move #1,-(sp)
4524move #19,-(sp)
4525move _curscor,R0
4526asl #4,R0
4527ext.l R0
4528add.l #_scname,R0
4529move.l R0,-(sp)
4530move #10,-(sp)
4531move.l #_svtdsp,-(sp)
4532move.l _obj8,-(sp)
4533jsr _vtsetup
4534adda.l #40,sp
4535*line 1895
4536bra L393
4537L392:
4538*line 1896
4539*line 1897
4540*line 1898
4541jsr _vtyper
4542L393:
4543*line 1899
4544*line 1900
4545*line 1901
4546clr R0
4547bra L205
4548*line 1902
4549*line 1903
4550bra L394
4551L391:
4552*line 1904
4553jsr _enterit
4554bra L205
4555L394:L390:
4556*line 1905
4557*line 1906
4558L395:
4559*line 1907
4560*line 1908
4561*line 1909
4562*line 1909
4563cmp #31,R6
4564blt L396
4565cmp #34,R6
4566bgt L396
4567*line 1910
4568*line 1911
4569clr _recsw
4570*line 1912
4571jsr _dsrpmod
4572*line 1913
4573clr R0
4574bra L205
4575*line 1914
4576bra L397
4577L396:
4578*line 1915
4579*line 1915
4580cmp #36,R6
4581blt L398
4582cmp #40,R6
4583bgt L398
4584*line 1916
4585*line 1917
4586move #1,_recsw
4587*line 1918
4588jsr _dsrpmod
4589*line 1919
4590clr R0
4591bra L205
4592*line 1920
4593bra L399
4594L398:
4595*line 1921
4596*line 1921
4597cmp #42,R6
4598blt L400
4599cmp #47,R6
4600bgt L400
4601*line 1922
4602*line 1923
4603tst _dubsw
4604beq L10023
4605clr R0
4606bra L10024
4607L10023:move #1,R0
4608L10024:move R0,_dubsw
4609*line 1924
4610jsr _dsrpmod
4611*line 1925
4612clr R0
4613bra L205
4614*line 1926
4615bra L401
4616L400:
4617*line 1927
4618*line 1927
4619cmp #49,R6
4620blt L402
4621cmp #55,R6
4622bgt L402
4623*line 1928
4624*line 1929
4625tst _pchsw
4626beq L10025
4627clr R0
4628bra L10026
4629L10025:move #1,R0
4630L10026:move R0,_pchsw
4631*line 1930
4632jsr _dsrpmod
4633*line 1931
4634clr R0
4635bra L205
4636*line 1932
4637*line 1933
4638*line 1934
4639L402:L401:L399:L397:
4640*line 1935
4641move #-1,R0
4642bra L205
4643*line 1936
4644L403:
4645*line 1937
4646*line 1938
4647*line 1939
4648*line 1940
4649tst _noteop
4650beq L404
4651*line 1940
4652jsr _donote
4653*line 1941
4654L404:
4655*line 1942
4656clr R0
4657bra L205
4658bra L206
4659L207:cmp #16,R0
4660bhi L206
4661asl #2,R0
4662move R0,R8
4663add.l #L405,R8
4664move.l (R8),R8
4665jmp (R8)
4666.data
4667L405:.dc.l L208
4668.dc.l L259
4669.dc.l L263
4670.dc.l L297
4671.dc.l L319
4672.dc.l L326
4673.dc.l L206
4674.dc.l L206
4675.dc.l L331
4676.dc.l L345
4677.dc.l L359
4678.dc.l L360
4679.dc.l L367
4680.dc.l L386
4681.dc.l L395
4682.dc.l L206
4683.dc.l L403
4684.text
4685L206:
4686*line 1945
4687move #-1,R0
4688bra L205
4689L205:tst.l (sp)+
4690movem.l (sp)+,R3-R7/R13-R13
4691unlk R14
4692rts
4693.data
4694L1:.dc.b $20,$41,$42,$43,$44,$45,$46,$47,$48,$49,$4A,$4B,$4C,$4D,$4E,$4F,$50,$51,$52,$53,$54,$55,$56,$57,$58,$59,$5A,$20,$20,$7C
4695.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
4696.dc.b $20,$20,$20,$20,$0
4697L2:.dc.b $20,$61,$62,$63,$64,$65,$66,$67,$68,$69,$6A,$6B,$6C,$6D,$6E,$6F,$70,$71,$72,$73,$74,$75,$76,$77,$78,$79,$7A,$20,$2D,$2A
4698.dc.b $2D,$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
4699.dc.b $20,$20,$20,$20,$0
4700L3:.dc.b $20,$20,$30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$2B,$2D,$2F,$2A,$28,$29,$2E,$2C,$3A,$3B,$21,$3F,$26,$3C,$3E,$20,$20,$7C
4701.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
4702.dc.b $20,$20,$20,$20,$0
4703L4:.dc.b $20,$42,$65,$67,$69,$6E,$20,$41,$63,$63,$20,$20,$20,$4D,$6F,$76,$65,$20,$4E,$6F,$74,$65,$20,$20,$20,$45,$73,$63,$61,$70
4704.dc.b $65,$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
4705.dc.b $20,$20,$20,$20,$0
4706L5:.dc.b $20,$42,$65,$67,$69,$6E,$20,$4E,$61,$74,$20,$20,$20,$4D,$6F,$76,$65,$20,$42,$65,$67,$69,$6E,$20,$20,$20,$20,$20,$20,$20
4707.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
4708.dc.b $20,$20,$20,$20,$0
4709L6:.dc.b $20,$45,$6E,$64,$20,$4E,$6F,$74,$65,$20,$20,$20,$20,$4D,$6F,$76,$65,$20,$45,$6E,$64,$20,$20,$20,$20,$20,$20,$20,$20,$20
4710.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
4711.dc.b $20,$20,$20,$20,$0
4712L7:.dc.b $20,$4C,$6F,$63,$61,$6C,$20,$20,$20,$50,$4C,$53,$32,$34,$20,$20,$20,$53,$74,$65,$70,$20,$20,$20,$20,$20,$20,$20,$20,$20
4713.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
4714.dc.b $20,$20,$20,$20,$0
4715L8:.dc.b $20,$4D,$49,$44,$49,$20,$20,$20,$20,$50,$4C,$53,$34,$38,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
4716.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
4717.dc.b $20,$20,$20,$20,$0
4718L9:.dc.b $20,$53,$4D,$50,$54,$45,$20,$20,$20,$50,$4C,$53,$39,$36,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
4719.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
4720.dc.b $20,$20,$20,$20,$0
4721L10:.dc.b $20,$4C,$6F,$63,$61,$6C,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
4722.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
4723.dc.b $20,$20,$20,$20,$0
4724L11:.dc.b $20,$4D,$49,$44,$49,$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
4725.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
4726.dc.b $20,$20,$20,$20,$0
4727L12:.dc.b $20,$53,$4D,$50,$54,$45,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
4728.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
4729.dc.b $20,$20,$20,$20,$0
4730L13:.dc.b $20,$47,$6F,$54,$6F,$20,$20,$20,$4D,$6F,$76,$65,$20,$20,$20,$53,$4D,$50,$54,$45,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
4731.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
4732.dc.b $20,$20,$20,$20,$0
4733L14:.dc.b $20,$42,$65,$67,$69,$6E,$20,$20,$43,$6F,$70,$79,$20,$20,$20,$44,$65,$6C,$20,$47,$72,$20,$20,$20,$20,$20,$20,$20,$20,$20
4734.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
4735.dc.b $20,$20,$20,$20,$0
4736L15:.dc.b $20,$45,$6E,$64,$20,$20,$20,$20,$4D,$65,$72,$67,$65,$20,$20,$44,$65,$6C,$20,$45,$76,$20,$20,$20,$20,$20,$20,$20,$20,$20
4737.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
4738.dc.b $20,$20,$20,$20,$0
4739L18:.dc.b $4E,$6F,$74,$65,$20,$45,$64,$69,$74,$0
4740L19:.dc.b $42,$65,$67,$69,$6E,$20,$41,$63,$63,$0
4741L20:.dc.b $42,$65,$67,$69,$6E,$20,$4E,$61,$74,$0
4742L21:.dc.b $45,$6E,$64,$20,$4E,$6F,$74,$65,$20,$0
4743L22:.dc.b $4D,$6F,$76,$65,$20,$4E,$6F,$74,$65,$0
4744L23:.dc.b $4D,$6F,$76,$65,$20,$42,$65,$67,$20,$0
4745L24:.dc.b $4D,$6F,$76,$65,$20,$45,$6E,$64,$20,$0
4746L53:.dc.b $25,$63,$25,$30,$32,$64,$25,$63,$0
4747L55:.dc.b $25,$30,$32,$64,$0
4748L59:.dc.b $20,$20,$0
4749L61:.dc.b $25,$30,$32,$64,$0
4750L65:.dc.b $25,$63,$25,$30,$32,$64,$0
4751L82:.dc.b $4E,$6F,$20,$41,$73,$73,$69,$67,$6E,$6D,$65,$6E,$74,$0
4752L87:.dc.b $25,$30,$32,$64,$20,$25,$2D,$31,$30,$2E,$31,$30,$73,$0
4753L89:.dc.b $4E,$20,$4E,$61,$6D,$65,$0
4754L94:.dc.b $25,$64,$20,$25,$2D,$33,$32,$2E,$33,$32,$73,$0
4755L100:.dc.b $4E,$6F,$20,$53,$63,$6F,$72,$65,$0
4756L105:.dc.b $25,$30,$32,$64,$20,$25,$2D,$31,$36,$2E,$31,$36,$73,$0
Note: See TracBrowser for help on using the repository browser.