source: buchla-68k/alcyon/tundsp.s@ 7bb1284

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

Added Alcyon C reference output.

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