source: buchla-68k/alcyon/m7menu.s

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

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 25.9 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 _v_obtab
38.globl _v_curob
39.globl _v_nobj
40.globl _v_obpri
41.globl _ebflag
42.globl _ebuf
43.globl _curfet
44.globl _cfetp
45.globl _infetp
46.globl _filecat
47.globl _m7verms
48.globl _bfs
49.globl _loadedf
50.globl _csbp
51.globl _curboxp
52.globl _point
53.globl _ndisp
54.globl _runit
55.globl _curslim
56.globl _sgcsw
57.globl _cxval
58.globl _cyval
59.globl _stcrow
60.globl _stccol
61.globl _crate1
62.globl _defect
63.globl _dsp_ok
64.globl _mdoct
65.globl _menuob
66.globl _obj0
67.globl _vi_ctl
68.bss
69L1:.ds.b 62
70.text
71.bss
72L2:.ds.b 62
73.text
74.bss
75L3:.ds.b 62
76.text
77.bss
78L4:.ds.b 62
79.text
80.bss
81L5:.ds.b 62
82.text
83.data
84L6:.dc.b $1
85.dc.b $BA
86.dc.b $3A
87.dc.b $B1
88.dc.b $1
89.dc.b $BB
90.dc.b $FF
91.even
92.text
93.data
94L7:.dc.b $1
95.dc.b $B6
96.dc.b $1D
97.dc.b $B1
98.dc.b $1
99.dc.b $B7
100.dc.b $1C
101.dc.b $B1
102.dc.b $1
103.dc.b $B4
104.dc.b $FF
105.even
106.text
107.data
108L8:.dc.b $1
109.dc.b $B6
110.dc.b $1D
111.dc.b $B1
112.dc.b $1
113.dc.b $B2
114.dc.b $1C
115.dc.b $B1
116.dc.b $1
117.dc.b $B4
118.dc.b $FF
119.even
120.text
121.data
122L9:.dc.b $1
123.dc.b $B6
124.dc.b $1D
125.dc.b $B1
126.dc.b $1
127.dc.b $B5
128.dc.b $1C
129.dc.b $B1
130.dc.b $1
131.dc.b $B4
132.dc.b $FF
133.even
134.text
135.data
136L10:.dc.b $1
137.dc.b $B9
138.dc.b $3A
139.dc.b $B1
140.dc.b $1
141.dc.b $B8
142.dc.b $FF
143.even
144.text
145.data
146L11:
147*line 71
148.dc.l L12
149*line 72
150.dc.l L13
151*line 73
152.dc.l L14
153*line 74
154.dc.l L15
155*line 75
156.dc.l L16
157*line 76
158.dc.l L17
159*line 77
160.dc.l L18
161*line 78
162.dc.l L19
163*line 79
164.dc.l L20
165*line 80
166.dc.l L21
167*line 81
168.dc.l L22
169*line 82
170.dc.l L23
171*line 83
172.dc.l L24
173*line 84
174.dc.l L25
175.text
176.data
177L26:.dc.w $12
178.dc.w $1A
179.dc.w $12
180.dc.w $142
181.dc.w $15
182.dc.w $1A
183.dc.w $15
184.dc.w $2A
185.dc.w $15
186.dc.w $36
187.dc.w $15
188.dc.w $54
189.dc.w $15
190.dc.w $60
191.dc.w $15
192.dc.w $7E
193.dc.w $15
194.dc.w $8A
195.dc.w $15
196.dc.w $A8
197.dc.w $15
198.dc.w $B4
199.dc.w $15
200.dc.w $D2
201.dc.w $15
202.dc.w $DE
203.dc.w $15
204.dc.w $FC
205.dc.w $15
206.dc.w $108
207.dc.w $15
208.dc.w $126
209.dc.w $15
210.dc.w $132
211.dc.w $15
212.dc.w $142
213.dc.w $102
214.dc.w $36
215.dc.w $102
216.dc.w $54
217.dc.w $102
218.dc.w $60
219.dc.w $102
220.dc.w $7E
221.dc.w $102
222.dc.w $8A
223.dc.w $102
224.dc.w $A8
225.dc.w $102
226.dc.w $B4
227.dc.w $102
228.dc.w $D2
229.dc.w $102
230.dc.w $DE
231.dc.w $102
232.dc.w $FC
233.dc.w $102
234.dc.w $108
235.dc.w $102
236.dc.w $126
237.dc.w $105
238.dc.w $36
239.dc.w $105
240.dc.w $54
241.dc.w $105
242.dc.w $60
243.dc.w $105
244.dc.w $7E
245.dc.w $105
246.dc.w $8A
247.dc.w $105
248.dc.w $A8
249.dc.w $105
250.dc.w $B4
251.dc.w $105
252.dc.w $D2
253.dc.w $105
254.dc.w $DE
255.dc.w $105
256.dc.w $FC
257.dc.w $105
258.dc.w $108
259.dc.w $105
260.dc.w $126
261.dc.w $1EA
262.dc.w $1A
263.dc.w $1EA
264.dc.w $2A
265.dc.w $1EA
266.dc.w $36
267.dc.w $1EA
268.dc.w $54
269.dc.w $1EA
270.dc.w $60
271.dc.w $1EA
272.dc.w $7E
273.dc.w $1EA
274.dc.w $8A
275.dc.w $1EA
276.dc.w $A8
277.dc.w $1EA
278.dc.w $B4
279.dc.w $1EA
280.dc.w $D2
281.dc.w $1EA
282.dc.w $DE
283.dc.w $1EA
284.dc.w $FC
285.dc.w $1EA
286.dc.w $108
287.dc.w $1EA
288.dc.w $126
289.dc.w $1EA
290.dc.w $132
291.dc.w $1EA
292.dc.w $142
293.dc.w $1ED
294.dc.w $1A
295.dc.w $1ED
296.dc.w $142
297.dc.w $FFFF
298.dc.w $FFFF
299.dc.w $FFFF
300.dc.w $FFFF
301.text
302.data
303L27:.dc.w $2
304.dc.w $4
305.dc.w $4
306.dc.w $4
307.dc.w $4
308.dc.w $22
309.dc.w $7
310.dc.w $4
311.dc.w $7
312.dc.w $22
313.dc.w $A
314.dc.w $4
315.dc.w $A
316.dc.w $22
317.dc.w $D
318.dc.w $4
319.dc.w $D
320.dc.w $22
321.dc.w $10
322.dc.w $4
323.dc.w $10
324.dc.w $22
325.dc.w $13
326.dc.w $4
327.dc.w $13
328.dc.w $22
329.dc.w $16
330.dc.w $4
331.text
332.globl _mdboxes
333.data
334_mdboxes:
335.dc.w $16
336.dc.w $35
337.dc.w $101
338.dc.w $57
339.dc.w $0
340*line 154
341.dc.l _mdselbx
342.dc.w $106
343.dc.w $35
344.dc.w $1E9
345.dc.w $57
346.dc.w $1
347*line 155
348.dc.l _mdselbx
349.dc.w $16
350.dc.w $5F
351.dc.w $101
352.dc.w $81
353.dc.w $2
354*line 156
355.dc.l _mdselbx
356.dc.w $106
357.dc.w $5F
358.dc.w $1E9
359.dc.w $81
360.dc.w $3
361*line 157
362.dc.l _mdselbx
363.dc.w $16
364.dc.w $89
365.dc.w $101
366.dc.w $AB
367.dc.w $4
368*line 158
369.dc.l _mdselbx
370.dc.w $106
371.dc.w $89
372.dc.w $1E9
373.dc.w $AB
374.dc.w $5
375*line 159
376.dc.l _mdselbx
377.dc.w $16
378.dc.w $B3
379.dc.w $101
380.dc.w $D5
381.dc.w $6
382*line 160
383.dc.l _mdselbx
384.dc.w $106
385.dc.w $B3
386.dc.w $1E9
387.dc.w $D5
388.dc.w $7
389*line 161
390.dc.l _mdselbx
391.dc.w $16
392.dc.w $DD
393.dc.w $101
394.dc.w $FF
395.dc.w $8
396*line 162
397.dc.l _mdselbx
398.dc.w $106
399.dc.w $DD
400.dc.w $1E9
401.dc.w $FF
402.dc.w $9
403*line 163
404.dc.l _mdselbx
405.dc.w $16
406.dc.w $107
407.dc.w $101
408.dc.w $129
409.dc.w $A
410*line 164
411.dc.l _mdselbx
412.dc.w $106
413.dc.w $107
414.dc.w $1E9
415.dc.w $129
416.dc.w $B
417*line 165
418.dc.l _mdselbx
419.dc.w $0
420.dc.w $0
421.dc.w $0
422.dc.w $0
423.dc.w $0
424.dc.l $0
425.globl _menupal
426.data
427_menupal:
428.dc.w $0
429.dc.w $0
430.dc.w $0
431.dc.w $2
432.dc.w $1
433.dc.w $0
434.dc.w $0
435.dc.w $0
436.dc.w $0
437.dc.w $3
438.dc.w $0
439.dc.w $2
440.dc.w $2
441.dc.w $1
442.dc.w $0
443.dc.w $2
444.dc.w $1
445.dc.w $0
446.dc.w $0
447.dc.w $1
448.dc.w $0
449.dc.w $2
450.dc.w $0
451.dc.w $0
452.dc.w $2
453.dc.w $2
454.dc.w $2
455.dc.w $0
456.dc.w $0
457.dc.w $0
458.dc.w $1
459.dc.w $1
460.dc.w $2
461.dc.w $2
462.dc.w $3
463.dc.w $3
464.dc.w $3
465.dc.w $1
466.dc.w $1
467.dc.w $3
468.dc.w $3
469.dc.w $0
470.dc.w $0
471.dc.w $3
472.dc.w $3
473.dc.w $0
474.dc.w $0
475.dc.w $3
476.globl _blakpal
477.data
478_blakpal:
479.dc.w $0
480.dc.w $0
481.dc.w $0
482.dc.w $0
483.dc.w $0
484.dc.w $0
485.dc.w $0
486.dc.w $0
487.dc.w $0
488.dc.w $0
489.dc.w $0
490.dc.w $0
491.dc.w $0
492.dc.w $0
493.dc.w $0
494.dc.w $0
495.dc.w $0
496.dc.w $0
497.dc.w $0
498.dc.w $0
499.dc.w $0
500.dc.w $0
501.dc.w $0
502.dc.w $0
503.dc.w $0
504.dc.w $0
505.dc.w $0
506.dc.w $0
507.dc.w $0
508.dc.w $0
509.dc.w $0
510.dc.w $0
511.dc.w $0
512.dc.w $0
513.dc.w $0
514.dc.w $0
515.dc.w $0
516.dc.w $0
517.dc.w $0
518.dc.w $0
519.dc.w $0
520.dc.w $0
521.dc.w $0
522.dc.w $0
523.dc.w $0
524.dc.w $0
525.dc.w $0
526.dc.w $0
527.globl _mfrc
528.data
529_mfrc:
530.dc.w $14
531.dc.w $6
532.dc.w $B
533.dc.w $6
534.dc.w $B
535.dc.w $14
536.dc.w $8
537.dc.w $6
538.dc.w $11
539.dc.w $6
540.dc.w $E
541.dc.w $6
542.dc.w $5
543.dc.w $24
544.dc.w $8
545.dc.w $24
546.globl _m7_flds
547.data
548_m7_flds:
549*line 232
550.dc.l _stdctp2
551*line 233
552.dc.l _nokey
553*line 234
554.dc.l _nokey
555*line 235
556.dc.l _cxkstd
557*line 236
558.dc.l _cykstd
559*line 237
560.dc.l _cxgen
561*line 238
562.dc.l _cygen
563*line 239
564.dc.l _nokey
565*line 240
566.dc.l _nokey
567*line 241
568.dc.l _nokey
569*line 242
570.dc.l _select
571*line 243
572.dc.l _nokey
573*line 244
574.dc.l _nokey
575*line 245
576.dc.l _nokey
577.dc.l $0
578*line 247
579.dc.l _mdboxes
580*line 248
581.dc.l _crate1
582*line 249
583.dc.l _crate1
584.dc.w $0
585.dc.w $90
586.dc.w $9A
587.globl _dswap
588.text
589_dswap:
590~~dswap:
591link R14,#0
592movem.l R6-R7,-(sp)
593~i=R7
594*line 268
595move.l #_blakpal,(sp)
596jsr _vsndpal
597*line 270
598*line 271
599clr R0
600move 10+_v_regs,R0
601and #384,R0
602beq L29
603*line 271
604clr (sp)
605jsr _vbank
606*line 272
607L29:
608*line 273
609move #1,(sp)
610jsr _setipl
611*line 274
612clr _vi_ctl
613*line 276
614clr R7
615bra L32
616L33:
617*line 277
618move R7,R0
619asl #3,R0
620ext.l R0
621add.l #_v_odtab,R0
622move.l R0,R8
623or #16,(R8)
624L31:
625*line 276
626add #1,R7
627L32:
628*line 276
629cmp #16,R7
630blt L33
631L30:
632*line 279
633jsr _VHinit
634*line 280
635jsr _VSinit
636L28:tst.l (sp)+
637movem.l (sp)+,R7-R7
638unlk R14
639rts
640.globl _mlbld
641.text
642_mlbld:
643~~mlbld:
644~where=8
645~from=12
646link R14,#0
647movem.l R4-R7,-(sp)
648~i=R7
649~j=R6
650~c=R5
651*line 298
652bra L37
653L36:
654*line 299
655*line 300
656move.l 12(R14),R8
657move.b (R8),R5
658add.l #1,12(R14)
659*line 301
660*line 302
661clr R6
662bra L40
663L41:
664*line 303
665move.l 8(R14),R8
666move.b R5,(R8)
667add.l #1,8(R14)
668L39:
669*line 302
670add #1,R6
671L40:
672*line 302
673cmp R7,R6
674blt L41
675L38:
676*line 303
677L37:
678*line 304
679move.l 12(R14),R8
680move.b (R8),R0
681ext.w R0
682move R0,R7
683cmp #-1,R7
684move sr,R0
685add.l #1,12(R14)
686move R0,ccr
687bne L36
688L35:
689*line 306
690move.l 8(R14),R8
691clr.b (R8)
692L34:tst.l (sp)+
693movem.l (sp)+,R5-R7
694unlk R14
695rts
696.globl _mlpoint
697.text
698_mlpoint:
699~~mlpoint:
700~x=8
701~y=10
702~pen=12
703link R14,#-4
704*line 318
705*line 319
706clr R0
707move 10+_v_regs,R0
708and #384,R0
709beq L43
710*line 319
711clr (sp)
712jsr _vbank
713*line 320
714L43:
715*line 321
716move 12(R14),(sp)
717move 10(R14),-(sp)
718move 8(R14),-(sp)
719move.l _mdoct,-(sp)
720jsr _vputp
721addq.l #8,sp
722L42:unlk R14
723rts
724.globl _mdselbx
725.text
726_mdselbx:
727~~mdselbx:
728~n=8
729link R14,#0
730movem.l R3-R7,-(sp)
731~mlcv=R7
732~mbcv=R6
733~mbak=R5
734~rc=R4
735*line 345
736move #10,(sp)
737jsr _exp_c
738move R0,R7
739*line 346
740move #11,(sp)
741jsr _exp_c
742move R0,R6
743*line 347
744move #2,(sp)
745jsr _exp_c
746move R0,R5
747*line 349
748clr R4
749*line 351
750*line 351
751cmp #7,_ndisp
752bne L45
753*line 352
754*line 353
755*line 353
756cmp #7,8(R14)
757bne L46
758*line 354
759*line 355
760*line 355
761jsr _dcopy
762tst R0
763beq L47
764*line 356
765*line 357
766move _defect,(sp)
767move.l #L48,-(sp)
768move.l #_bfs,-(sp)
769jsr _sprintf
770addq.l #8,sp
771*line 358
772*line 359
773*line 360
774*line 361
775*line 362
776move #14,(sp)
777move.l #_bfs,-(sp)
778move 34+L27,-(sp)
779move 32+L27,-(sp)
780add #1,(sp)
781move R5,-(sp)
782move #7,-(sp)
783move #64,-(sp)
784move.l _menuob,-(sp)
785jsr _vcputsv
786adda.l #18,sp
787*line 363
788*line 364
789move #-1,R4
790*line 365
791*line 366
792L47:
793*line 367
794move #-1,_ndisp
795*line 368
796bra L49
797L46:
798*line 369
799*line 370
800*line 371
801move 8(R14),_ndisp
802*line 372
803clr _runit
804*line 373
805clr _dsp_ok
806L49:
807*line 374
808*line 375
809*line 376
810*line 377
811*line 378
812move #14,(sp)
813move.l 32+L11,-(sp)
814move 34+L27,-(sp)
815move 32+L27,-(sp)
816move R5,-(sp)
817move R6,-(sp)
818move #64,-(sp)
819move.l _menuob,-(sp)
820jsr _vcputsv
821adda.l #18,sp
822*line 379
823*line 380
824*line 381
825*line 382
826bra L50
827L45:
828*line 383
829*line 383
830cmp #9,_ndisp
831bne L51
832*line 384
833*line 385
834*line 385
835cmp #9,8(R14)
836bne L52
837*line 386
838*line 387
839*line 387
840move #1,(sp)
841jsr _dformat
842tst R0
843beq L53
844*line 388
845*line 389
846move _defect,(sp)
847move.l #L54,-(sp)
848move.l #_bfs,-(sp)
849jsr _sprintf
850addq.l #8,sp
851*line 390
852*line 391
853*line 392
854*line 393
855*line 394
856move #14,(sp)
857move.l #_bfs,-(sp)
858move 42+L27,-(sp)
859move 40+L27,-(sp)
860add #1,(sp)
861move R5,-(sp)
862move #7,-(sp)
863move #64,-(sp)
864move.l _menuob,-(sp)
865jsr _vcputsv
866adda.l #18,sp
867*line 395
868*line 396
869move #-1,R4
870*line 397
871*line 398
872L53:
873*line 399
874move #-1,_ndisp
875*line 400
876bra L55
877L52:
878*line 401
879*line 402
880*line 403
881move 8(R14),_ndisp
882*line 404
883clr _runit
884*line 405
885clr _dsp_ok
886L55:
887*line 406
888*line 407
889*line 408
890*line 409
891*line 410
892move #14,(sp)
893move.l 40+L11,-(sp)
894move 42+L27,-(sp)
895move 40+L27,-(sp)
896move R5,-(sp)
897move R6,-(sp)
898move #64,-(sp)
899move.l _menuob,-(sp)
900jsr _vcputsv
901adda.l #18,sp
902*line 411
903*line 412
904*line 413
905bra L56
906L51:
907*line 414
908*line 415
909*line 416
910move 8(R14),_ndisp
911*line 417
912*line 418
913*line 418
914cmp #7,8(R14)
915bne L57
916*line 419
917*line 420
918*line 421
919*line 422
920move #14,(sp)
921move.l 32+L11,-(sp)
922move 34+L27,-(sp)
923move 32+L27,-(sp)
924move R5,-(sp)
925move #7,-(sp)
926move #64,-(sp)
927move.l _menuob,-(sp)
928jsr _vcputsv
929adda.l #18,sp
930*line 423
931bra L58
932L57:
933*line 424
934*line 424
935cmp #9,8(R14)
936bne L59
937*line 425
938*line 426
939*line 427
940*line 428
941move #14,(sp)
942move.l 40+L11,-(sp)
943move 42+L27,-(sp)
944move 40+L27,-(sp)
945move R5,-(sp)
946move #7,-(sp)
947move #64,-(sp)
948move.l _menuob,-(sp)
949jsr _vcputsv
950adda.l #18,sp
951*line 429
952bra L60
953L59:
954*line 430
955*line 431
956*line 432
957clr _runit
958*line 433
959clr _dsp_ok
960L60:L58:
961*line 434
962L56:L50:
963*line 443
964move R4,R0
965bra L44
966L44:tst.l (sp)+
967movem.l (sp)+,R4-R7
968unlk R14
969rts
970.globl _drawm
971.text
972_drawm:
973~~drawm:
974link R14,#-16
975movem.l R3-R7/R13-R13,-(sp)
976~mlp=R13
977~i=R7
978~mlcv=R6
979~mbcv=R5
980~mbak=R4
981~buf=-16
982*line 462
983move #10,(sp)
984jsr _exp_c
985move R0,R6
986*line 463
987move #11,(sp)
988jsr _exp_c
989move R0,R5
990*line 464
991move #2,(sp)
992jsr _exp_c
993move R0,R4
994*line 466
995*line 466
996tst.b L1
997bne L62
998*line 467
999*line 468
1000move.l #L6,(sp)
1001move.l #L1,-(sp)
1002jsr _mlbld
1003addq.l #4,sp
1004*line 469
1005move.l #L7,(sp)
1006move.l #L2,-(sp)
1007jsr _mlbld
1008addq.l #4,sp
1009*line 470
1010move.l #L8,(sp)
1011move.l #L3,-(sp)
1012jsr _mlbld
1013addq.l #4,sp
1014*line 471
1015move.l #L9,(sp)
1016move.l #L4,-(sp)
1017jsr _mlbld
1018addq.l #4,sp
1019*line 472
1020move.l #L10,(sp)
1021move.l #L5,-(sp)
1022jsr _mlbld
1023addq.l #4,sp
1024*line 473
1025*line 474
1026L62:
1027*line 475
1028*line 476
1029clr R0
1030move 10+_v_regs,R0
1031and #384,R0
1032beq L63
1033*line 476
1034clr (sp)
1035jsr _vbank
1036*line 477
1037L63:
1038*line 478
1039move R4,(sp)
1040move #349,-(sp)
1041move #511,-(sp)
1042clr -(sp)
1043clr -(sp)
1044move #128,-(sp)
1045move.l _menuob,-(sp)
1046jsr _vbfill4
1047adda.l #14,sp
1048*line 480
1049move #14,(sp)
1050move.l #L1,-(sp)
1051move #2,-(sp)
1052move #1,-(sp)
1053move R4,-(sp)
1054move R6,-(sp)
1055move #64,-(sp)
1056move.l _menuob,-(sp)
1057jsr _vcputsv
1058adda.l #18,sp
1059*line 481
1060move #14,(sp)
1061move.l #L64,-(sp)
1062move #2,-(sp)
1063move #2,-(sp)
1064move R4,-(sp)
1065move R6,-(sp)
1066move #64,-(sp)
1067move.l _menuob,-(sp)
1068jsr _vcputsv
1069adda.l #18,sp
1070*line 482
1071move #14,(sp)
1072move.l #L65,-(sp)
1073move #61,-(sp)
1074move #2,-(sp)
1075move R4,-(sp)
1076move R6,-(sp)
1077move #64,-(sp)
1078move.l _menuob,-(sp)
1079jsr _vcputsv
1080adda.l #18,sp
1081*line 484
1082move #14,(sp)
1083move.l #L2,-(sp)
1084move #2,-(sp)
1085move #3,-(sp)
1086move R4,-(sp)
1087move R6,-(sp)
1088move #64,-(sp)
1089move.l _menuob,-(sp)
1090jsr _vcputsv
1091adda.l #18,sp
1092*line 485
1093move #14,(sp)
1094move.l #L66,-(sp)
1095move #2,-(sp)
1096move #4,-(sp)
1097move R4,-(sp)
1098move R6,-(sp)
1099move #64,-(sp)
1100move.l _menuob,-(sp)
1101jsr _vcputsv
1102adda.l #18,sp
1103*line 486
1104move #14,(sp)
1105move.l #L67,-(sp)
1106move #32,-(sp)
1107move #4,-(sp)
1108move R4,-(sp)
1109move R6,-(sp)
1110move #64,-(sp)
1111move.l _menuob,-(sp)
1112jsr _vcputsv
1113adda.l #18,sp
1114*line 487
1115move #14,(sp)
1116move.l #L68,-(sp)
1117move #61,-(sp)
1118move #4,-(sp)
1119move R4,-(sp)
1120move R6,-(sp)
1121move #64,-(sp)
1122move.l _menuob,-(sp)
1123jsr _vcputsv
1124adda.l #18,sp
1125*line 488
1126move #14,(sp)
1127move.l #L69,-(sp)
1128move #2,-(sp)
1129move #5,-(sp)
1130move R4,-(sp)
1131move R6,-(sp)
1132move #64,-(sp)
1133move.l _menuob,-(sp)
1134jsr _vcputsv
1135adda.l #18,sp
1136*line 489
1137move #14,(sp)
1138move.l #L70,-(sp)
1139move #32,-(sp)
1140move #5,-(sp)
1141move R4,-(sp)
1142move R6,-(sp)
1143move #64,-(sp)
1144move.l _menuob,-(sp)
1145jsr _vcputsv
1146adda.l #18,sp
1147*line 490
1148move #14,(sp)
1149move.l #L71,-(sp)
1150move #61,-(sp)
1151move #5,-(sp)
1152move R4,-(sp)
1153move R6,-(sp)
1154move #64,-(sp)
1155move.l _menuob,-(sp)
1156jsr _vcputsv
1157adda.l #18,sp
1158*line 492
1159move #14,(sp)
1160move.l #L3,-(sp)
1161move #2,-(sp)
1162move #6,-(sp)
1163move R4,-(sp)
1164move R6,-(sp)
1165move #64,-(sp)
1166move.l _menuob,-(sp)
1167jsr _vcputsv
1168adda.l #18,sp
1169*line 493
1170move #14,(sp)
1171move.l #L72,-(sp)
1172move #2,-(sp)
1173move #7,-(sp)
1174move R4,-(sp)
1175move R6,-(sp)
1176move #64,-(sp)
1177move.l _menuob,-(sp)
1178jsr _vcputsv
1179adda.l #18,sp
1180*line 494
1181move #14,(sp)
1182move.l #L73,-(sp)
1183move #32,-(sp)
1184move #7,-(sp)
1185move R4,-(sp)
1186move R6,-(sp)
1187move #64,-(sp)
1188move.l _menuob,-(sp)
1189jsr _vcputsv
1190adda.l #18,sp
1191*line 495
1192move #14,(sp)
1193move.l #L74,-(sp)
1194move #61,-(sp)
1195move #7,-(sp)
1196move R4,-(sp)
1197move R6,-(sp)
1198move #64,-(sp)
1199move.l _menuob,-(sp)
1200jsr _vcputsv
1201adda.l #18,sp
1202*line 496
1203move #14,(sp)
1204move.l #L75,-(sp)
1205move #2,-(sp)
1206move #8,-(sp)
1207move R4,-(sp)
1208move R6,-(sp)
1209move #64,-(sp)
1210move.l _menuob,-(sp)
1211jsr _vcputsv
1212adda.l #18,sp
1213*line 497
1214move #14,(sp)
1215move.l #L76,-(sp)
1216move #32,-(sp)
1217move #8,-(sp)
1218move R4,-(sp)
1219move R6,-(sp)
1220move #64,-(sp)
1221move.l _menuob,-(sp)
1222jsr _vcputsv
1223adda.l #18,sp
1224*line 498
1225move #14,(sp)
1226move.l #L77,-(sp)
1227move #61,-(sp)
1228move #8,-(sp)
1229move R4,-(sp)
1230move R6,-(sp)
1231move #64,-(sp)
1232move.l _menuob,-(sp)
1233jsr _vcputsv
1234adda.l #18,sp
1235*line 501
1236move #14,(sp)
1237move.l #L3,-(sp)
1238move #2,-(sp)
1239move #9,-(sp)
1240move R4,-(sp)
1241move R6,-(sp)
1242move #64,-(sp)
1243move.l _menuob,-(sp)
1244jsr _vcputsv
1245adda.l #18,sp
1246*line 502
1247move #14,(sp)
1248move.l #L78,-(sp)
1249move #2,-(sp)
1250move #10,-(sp)
1251move R4,-(sp)
1252move R6,-(sp)
1253move #64,-(sp)
1254move.l _menuob,-(sp)
1255jsr _vcputsv
1256adda.l #18,sp
1257*line 503
1258move #14,(sp)
1259move.l #L79,-(sp)
1260move #32,-(sp)
1261move #10,-(sp)
1262move R4,-(sp)
1263move R6,-(sp)
1264move #64,-(sp)
1265move.l _menuob,-(sp)
1266jsr _vcputsv
1267adda.l #18,sp
1268*line 504
1269move #14,(sp)
1270move.l #L80,-(sp)
1271move #61,-(sp)
1272move #10,-(sp)
1273move R4,-(sp)
1274move R6,-(sp)
1275move #64,-(sp)
1276move.l _menuob,-(sp)
1277jsr _vcputsv
1278adda.l #18,sp
1279*line 505
1280move #14,(sp)
1281move.l #L81,-(sp)
1282move #2,-(sp)
1283move #11,-(sp)
1284move R4,-(sp)
1285move R6,-(sp)
1286move #64,-(sp)
1287move.l _menuob,-(sp)
1288jsr _vcputsv
1289adda.l #18,sp
1290*line 506
1291move #14,(sp)
1292move.l #L82,-(sp)
1293move #32,-(sp)
1294move #11,-(sp)
1295move R4,-(sp)
1296move R6,-(sp)
1297move #64,-(sp)
1298move.l _menuob,-(sp)
1299jsr _vcputsv
1300adda.l #18,sp
1301*line 507
1302move #14,(sp)
1303move.l #L83,-(sp)
1304move #61,-(sp)
1305move #11,-(sp)
1306move R4,-(sp)
1307move R6,-(sp)
1308move #64,-(sp)
1309move.l _menuob,-(sp)
1310jsr _vcputsv
1311adda.l #18,sp
1312*line 509
1313move #14,(sp)
1314move.l #L3,-(sp)
1315move #2,-(sp)
1316move #12,-(sp)
1317move R4,-(sp)
1318move R6,-(sp)
1319move #64,-(sp)
1320move.l _menuob,-(sp)
1321jsr _vcputsv
1322adda.l #18,sp
1323*line 510
1324move #14,(sp)
1325move.l #L84,-(sp)
1326move #2,-(sp)
1327move #13,-(sp)
1328move R4,-(sp)
1329move R6,-(sp)
1330move #64,-(sp)
1331move.l _menuob,-(sp)
1332jsr _vcputsv
1333adda.l #18,sp
1334*line 511
1335move #14,(sp)
1336move.l #L85,-(sp)
1337move #32,-(sp)
1338move #13,-(sp)
1339move R4,-(sp)
1340move R6,-(sp)
1341move #64,-(sp)
1342move.l _menuob,-(sp)
1343jsr _vcputsv
1344adda.l #18,sp
1345*line 512
1346move #14,(sp)
1347move.l #L86,-(sp)
1348move #61,-(sp)
1349move #13,-(sp)
1350move R4,-(sp)
1351move R6,-(sp)
1352move #64,-(sp)
1353move.l _menuob,-(sp)
1354jsr _vcputsv
1355adda.l #18,sp
1356*line 513
1357move #14,(sp)
1358move.l #L87,-(sp)
1359move #2,-(sp)
1360move #14,-(sp)
1361move R4,-(sp)
1362move R6,-(sp)
1363move #64,-(sp)
1364move.l _menuob,-(sp)
1365jsr _vcputsv
1366adda.l #18,sp
1367*line 514
1368move #14,(sp)
1369move.l #L88,-(sp)
1370move #32,-(sp)
1371move #14,-(sp)
1372move R4,-(sp)
1373move R6,-(sp)
1374move #64,-(sp)
1375move.l _menuob,-(sp)
1376jsr _vcputsv
1377adda.l #18,sp
1378*line 515
1379move #14,(sp)
1380move.l #L89,-(sp)
1381move #61,-(sp)
1382move #14,-(sp)
1383move R4,-(sp)
1384move R6,-(sp)
1385move #64,-(sp)
1386move.l _menuob,-(sp)
1387jsr _vcputsv
1388adda.l #18,sp
1389*line 517
1390move #14,(sp)
1391move.l #L3,-(sp)
1392move #2,-(sp)
1393move #15,-(sp)
1394move R4,-(sp)
1395move R6,-(sp)
1396move #64,-(sp)
1397move.l _menuob,-(sp)
1398jsr _vcputsv
1399adda.l #18,sp
1400*line 518
1401move #14,(sp)
1402move.l #L90,-(sp)
1403move #2,-(sp)
1404move #16,-(sp)
1405move R4,-(sp)
1406move R6,-(sp)
1407move #64,-(sp)
1408move.l _menuob,-(sp)
1409jsr _vcputsv
1410adda.l #18,sp
1411*line 519
1412move #14,(sp)
1413move.l #L91,-(sp)
1414move #32,-(sp)
1415move #16,-(sp)
1416move R4,-(sp)
1417move R6,-(sp)
1418move #64,-(sp)
1419move.l _menuob,-(sp)
1420jsr _vcputsv
1421adda.l #18,sp
1422*line 520
1423move #14,(sp)
1424move.l #L92,-(sp)
1425move #61,-(sp)
1426move #16,-(sp)
1427move R4,-(sp)
1428move R6,-(sp)
1429move #64,-(sp)
1430move.l _menuob,-(sp)
1431jsr _vcputsv
1432adda.l #18,sp
1433*line 521
1434move #14,(sp)
1435move.l #L93,-(sp)
1436move #2,-(sp)
1437move #17,-(sp)
1438move R4,-(sp)
1439move R6,-(sp)
1440move #64,-(sp)
1441move.l _menuob,-(sp)
1442jsr _vcputsv
1443adda.l #18,sp
1444*line 522
1445move #14,(sp)
1446move.l #L94,-(sp)
1447move #32,-(sp)
1448move #17,-(sp)
1449move R4,-(sp)
1450move R6,-(sp)
1451move #64,-(sp)
1452move.l _menuob,-(sp)
1453jsr _vcputsv
1454adda.l #18,sp
1455*line 523
1456move #14,(sp)
1457move.l #L95,-(sp)
1458move #61,-(sp)
1459move #17,-(sp)
1460move R4,-(sp)
1461move R6,-(sp)
1462move #64,-(sp)
1463move.l _menuob,-(sp)
1464jsr _vcputsv
1465adda.l #18,sp
1466*line 525
1467move #14,(sp)
1468move.l #L3,-(sp)
1469move #2,-(sp)
1470move #18,-(sp)
1471move R4,-(sp)
1472move R6,-(sp)
1473move #64,-(sp)
1474move.l _menuob,-(sp)
1475jsr _vcputsv
1476adda.l #18,sp
1477*line 526
1478move #14,(sp)
1479move.l #L96,-(sp)
1480move #2,-(sp)
1481move #19,-(sp)
1482move R4,-(sp)
1483move R6,-(sp)
1484move #64,-(sp)
1485move.l _menuob,-(sp)
1486jsr _vcputsv
1487adda.l #18,sp
1488*line 527
1489move #14,(sp)
1490move.l #L97,-(sp)
1491move #32,-(sp)
1492move #19,-(sp)
1493move R4,-(sp)
1494move R6,-(sp)
1495move #64,-(sp)
1496move.l _menuob,-(sp)
1497jsr _vcputsv
1498adda.l #18,sp
1499*line 528
1500move #14,(sp)
1501move.l #L98,-(sp)
1502move #61,-(sp)
1503move #19,-(sp)
1504move R4,-(sp)
1505move R6,-(sp)
1506move #64,-(sp)
1507move.l _menuob,-(sp)
1508jsr _vcputsv
1509adda.l #18,sp
1510*line 529
1511move #14,(sp)
1512move.l #L99,-(sp)
1513move #2,-(sp)
1514move #20,-(sp)
1515move R4,-(sp)
1516move R6,-(sp)
1517move #64,-(sp)
1518move.l _menuob,-(sp)
1519jsr _vcputsv
1520adda.l #18,sp
1521*line 530
1522move #14,(sp)
1523move.l #L100,-(sp)
1524move #32,-(sp)
1525move #20,-(sp)
1526move R4,-(sp)
1527move R6,-(sp)
1528move #64,-(sp)
1529move.l _menuob,-(sp)
1530jsr _vcputsv
1531adda.l #18,sp
1532*line 531
1533move #14,(sp)
1534move.l #L101,-(sp)
1535move #61,-(sp)
1536move #20,-(sp)
1537move R4,-(sp)
1538move R6,-(sp)
1539move #64,-(sp)
1540move.l _menuob,-(sp)
1541jsr _vcputsv
1542adda.l #18,sp
1543*line 533
1544move #14,(sp)
1545move.l #L4,-(sp)
1546move #2,-(sp)
1547move #21,-(sp)
1548move R4,-(sp)
1549move R6,-(sp)
1550move #64,-(sp)
1551move.l _menuob,-(sp)
1552jsr _vcputsv
1553adda.l #18,sp
1554*line 534
1555move #14,(sp)
1556move.l #L102,-(sp)
1557move #2,-(sp)
1558move #22,-(sp)
1559move R4,-(sp)
1560move R6,-(sp)
1561move #64,-(sp)
1562move.l _menuob,-(sp)
1563jsr _vcputsv
1564adda.l #18,sp
1565*line 535
1566move #14,(sp)
1567move.l #L103,-(sp)
1568move #61,-(sp)
1569move #22,-(sp)
1570move R4,-(sp)
1571move R6,-(sp)
1572move #64,-(sp)
1573move.l _menuob,-(sp)
1574jsr _vcputsv
1575adda.l #18,sp
1576*line 536
1577move #14,(sp)
1578move.l #L5,-(sp)
1579move #2,-(sp)
1580move #23,-(sp)
1581move R4,-(sp)
1582move R6,-(sp)
1583move #64,-(sp)
1584move.l _menuob,-(sp)
1585jsr _vcputsv
1586adda.l #18,sp
1587*line 539
1588move.l #L26,R13
1589*line 540
1590move.l #_mlpoint,_point
1591*line 542
1592bra L106
1593L105:
1594*line 543
1595*line 544
1596move R6,(sp)
1597move 6(R13),-(sp)
1598move 4(R13),-(sp)
1599move 2(R13),-(sp)
1600move (R13),-(sp)
1601jsr _lseg
1602addq.l #8,sp
1603*line 545
1604add.l #8,R13
1605L106:
1606*line 546
1607cmp #-1,(R13)
1608bne L105
1609L104:
1610*line 548
1611*line 549
1612move #14,(sp)
1613move.l L11,-(sp)
1614move 2+L27,-(sp)
1615move L27,-(sp)
1616move R4,-(sp)
1617move #5,-(sp)
1618move #64,-(sp)
1619move.l _menuob,-(sp)
1620jsr _vcputsv
1621adda.l #18,sp
1622*line 551
1623move #14,(sp)
1624move.l #_m7verms,-(sp)
1625move #51,-(sp)
1626move #2,-(sp)
1627move R4,-(sp)
1628move #5,-(sp)
1629move #64,-(sp)
1630move.l _menuob,-(sp)
1631jsr _vcputsv
1632adda.l #18,sp
1633*line 553
1634move #1,R7
1635bra L109
1636L110:
1637*line 554
1638*line 555
1639move #14,(sp)
1640move R7,R8
1641add.l R8,R8
1642add.l R8,R8
1643move.l #L11,R9
1644move.l 0(R8,R9.l),-(sp)
1645move R7,R8
1646add.l R8,R8
1647add.l R8,R8
1648move.l #L27,R9
1649move 2(R8,R9.l),-(sp)
1650move R7,R8
1651add.l R8,R8
1652add.l R8,R8
1653move.l #L27,R9
1654move 0(R8,R9.l),-(sp)
1655move R4,-(sp)
1656move R5,-(sp)
1657move #64,-(sp)
1658move.l _menuob,-(sp)
1659jsr _vcputsv
1660adda.l #18,sp
1661L108:
1662*line 553
1663add #1,R7
1664L109:
1665*line 553
1666cmp #13,R7
1667blt L110
1668L107:
1669*line 557
1670*line 558
1671move #14,(sp)
1672move.l 52+L11,-(sp)
1673move 54+L27,-(sp)
1674move 52+L27,-(sp)
1675move R4,-(sp)
1676move #4,-(sp)
1677move #64,-(sp)
1678move.l _menuob,-(sp)
1679jsr _vcputsv
1680adda.l #18,sp
1681*line 560
1682clr R7
1683bra L113
1684L114:
1685*line 561
1686*line 562
1687move #8,(sp)
1688move R7,R0
1689asl #3,R0
1690ext.l R0
1691add.l #_loadedf,R0
1692move.l R0,-(sp)
1693move.l R14,-(sp)
1694add.l #-16,(sp)
1695jsr _memcpy
1696addq.l #8,sp
1697*line 563
1698clr.b -8(R14)
1699*line 564
1700*line 565
1701*line 566
1702move #14,(sp)
1703move.l R14,-(sp)
1704add.l #-16,(sp)
1705move R7,R8
1706add.l R8,R8
1707add.l R8,R8
1708move.l #_mfrc,R9
1709move 2(R8,R9.l),-(sp)
1710move R7,R8
1711add.l R8,R8
1712add.l R8,R8
1713move.l #_mfrc,R9
1714move 0(R8,R9.l),-(sp)
1715move R4,-(sp)
1716move #8,-(sp)
1717move #64,-(sp)
1718move.l _menuob,-(sp)
1719jsr _vcputsv
1720adda.l #18,sp
1721L112:
1722*line 560
1723add #1,R7
1724L113:
1725*line 560
1726cmp #8,R7
1727blt L114
1728L111:L61:tst.l (sp)+
1729movem.l (sp)+,R4-R7/R13-R13
1730unlk R14
1731rts
1732.globl _m7menu
1733.text
1734_m7menu:
1735~~m7menu:
1736link R14,#-4
1737*line 581
1738move.l #_v_score,_menuob
1739*line 582
1740move.l #_v_curs0,_obj0
1741*line 583
1742move.l #144+_v_obtab,_mdoct
1743*line 585
1744move #350,_curslim
1745*line 587
1746move.l #_m7_flds,(sp)
1747jsr _curset
1748*line 589
1749move #-1,_ndisp
1750*line 590
1751jsr _dswap
1752*line 592
1753clr (sp)
1754jsr _vbank
1755*line 593
1756move #32767,(sp)
1757clr -(sp)
1758move.l _menuob,-(sp)
1759jsr _memsetw
1760addq.l #6,sp
1761*line 594
1762move #12033,(sp)
1763clr -(sp)
1764move.l _menuob,R0
1765add.l #$fffe,R0
1766move.l R0,-(sp)
1767jsr _memsetw
1768addq.l #6,sp
1769*line 596
1770move #-1,(sp)
1771move #1536,-(sp)
1772clr -(sp)
1773clr -(sp)
1774move #350,-(sp)
1775move #512,-(sp)
1776move.l _menuob,-(sp)
1777clr -(sp)
1778clr -(sp)
1779move #8,-(sp)
1780jsr _SetObj
1781adda.l #20,sp
1782*line 597
1783move #-1,(sp)
1784move #1540,-(sp)
1785move #154,-(sp)
1786move #144,-(sp)
1787move #16,-(sp)
1788move #16,-(sp)
1789move.l _obj0,-(sp)
1790move #1,-(sp)
1791clr -(sp)
1792clr -(sp)
1793jsr _SetObj
1794adda.l #20,sp
1795*line 599
1796move #1,(sp)
1797jsr _arcurs
1798*line 601
1799jsr _drawm
1800*line 603
1801move.l #_menupal,(sp)
1802jsr _vsndpal
1803*line 605
1804move #8,(sp)
1805move #8,-(sp)
1806jsr _SetPri
1807addq.l #2,sp
1808*line 606
1809move #15,(sp)
1810clr -(sp)
1811jsr _SetPri
1812addq.l #2,sp
1813*line 608
1814move #154,(sp)
1815move #144,-(sp)
1816jsr _setgc
1817addq.l #2,sp
1818L115:unlk R14
1819rts
1820.data
1821L12:.dc.b $4D,$49,$44,$41,$53,$20,$56,$49,$49,$20,$20,$20,$20,$20,$20,$66,$6F,$72,$20,$74,$68,$65,$20,$42,$75,$63,$68,$6C,$61,$20
1822.dc.b $37,$30,$30,$20,$20,$20,$20,$20,$20,$56,$65,$72,$73,$69,$6F,$6E,$0
1823L13:.dc.b $4C,$69,$62,$72,$61,$72,$69,$61,$6E,$0
1824L14:.dc.b $50,$61,$74,$63,$68,$20,$45,$64,$69,$74,$6F,$72,$0
1825L15:.dc.b $53,$63,$6F,$72,$65,$20,$65,$64,$69,$74,$6F,$72,$0
1826L16:.dc.b $53,$65,$71,$75,$65,$6E,$63,$65,$20,$45,$64,$69,$74,$6F,$72,$0
1827L17:.dc.b $49,$6E,$73,$74,$72,$75,$6D,$65,$6E,$74,$20,$64,$65,$73,$69,$67,$6E,$65,$72,$0
1828L18:.dc.b $49,$6E,$69,$74,$69,$61,$6C,$69,$7A,$65,$20,$73,$79,$73,$74,$65,$6D,$0
1829L19:.dc.b $57,$61,$76,$65,$73,$68,$61,$70,$65,$20,$65,$64,$69,$74,$6F,$72,$0
1830L20:.dc.b $57,$72,$69,$74,$65,$20,$70,$72,$6F,$67,$72,$61,$6D,$20,$74,$6F,$20,$64,$69,$73,$6B,$0
1831L21:.dc.b $54,$75,$6E,$69,$6E,$67,$20,$74,$61,$62,$6C,$65,$73,$0
1832L22:.dc.b $46,$6F,$72,$6D,$61,$74,$20,$64,$69,$73,$6B,$0
1833L23:.dc.b $41,$73,$73,$69,$67,$6E,$6D,$65,$6E,$74,$20,$74,$61,$62,$6C,$65,$73,$0
1834L24:.dc.b $44,$69,$61,$67,$6E,$6F,$73,$74,$69,$63,$73,$0
1835L25:.dc.b $63,$72,$65,$61,$74,$65,$64,$20,$62,$79,$20,$42,$75,$63,$68,$6C,$61,$20,$61,$6E,$64,$20,$41,$73,$73,$6F,$63,$69,$61,$74
1836.dc.b $65,$73,$20,$6F,$66,$20,$42,$65,$72,$6B,$65,$6C,$65,$79,$2C,$20,$43,$61,$6C,$69,$66,$6F,$72,$6E,$69,$61,$0
1837L48:.dc.b $20,$20,$46,$41,$49,$4C,$45,$44,$20,$2D,$2D,$20,$45,$72,$72,$6F,$72,$20,$25,$64,$0
1838L54:.dc.b $20,$20,$46,$41,$49,$4C,$45,$44,$20,$2D,$2D,$20,$45,$72,$72,$6F,$72,$20,$25,$64,$0
1839L64:.dc.b $B0,$0
1840L65:.dc.b $B0,$0
1841L66:.dc.b $B0,$0
1842L67:.dc.b $B0,$0
1843L68:.dc.b $B0,$0
1844L69:.dc.b $B0,$0
1845L70:.dc.b $B0,$0
1846L71:.dc.b $B0,$0
1847L72:.dc.b $B0,$0
1848L73:.dc.b $B0,$0
1849L74:.dc.b $B0,$0
1850L75:.dc.b $B0,$0
1851L76:.dc.b $B0,$0
1852L77:.dc.b $B0,$0
1853L78:.dc.b $B0,$0
1854L79:.dc.b $B0,$0
1855L80:.dc.b $B0,$0
1856L81:.dc.b $B0,$0
1857L82:.dc.b $B0,$0
1858L83:.dc.b $B0,$0
1859L84:.dc.b $B0,$0
1860L85:.dc.b $B0,$0
1861L86:.dc.b $B0,$0
1862L87:.dc.b $B0,$0
1863L88:.dc.b $B0,$0
1864L89:.dc.b $B0,$0
1865L90:.dc.b $B0,$0
1866L91:.dc.b $B0,$0
1867L92:.dc.b $B0,$0
1868L93:.dc.b $B0,$0
1869L94:.dc.b $B0,$0
1870L95:.dc.b $B0,$0
1871L96:.dc.b $B0,$0
1872L97:.dc.b $B0,$0
1873L98:.dc.b $B0,$0
1874L99:.dc.b $B0,$0
1875L100:.dc.b $B0,$0
1876L101:.dc.b $B0,$0
1877L102:.dc.b $B0,$0
1878L103:.dc.b $B0,$0
Note: See TracBrowser for help on using the repository browser.