source: buchla-68k/alcyon/wsdsp.s@ 7bf3856

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

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 20.2 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 _point
47.globl _obj0
48.globl _bfs
49.globl _wdbxlb0
50.globl _wdbxlb1
51.globl _wdbox
52.globl _vbufs
53.globl _curinst
54.globl _curvce
55.globl _curwave
56.globl _curwdth
57.globl _curwfnl
58.globl _curwhrm
59.globl _curwhrv
60.globl _curwpnt
61.globl _curwoff
62.globl _curwslt
63.globl _cxval
64.globl _cyval
65.globl _lstwoff
66.globl _lstwpnt
67.globl _stccol
68.globl _stcrow
69.globl _wpntsv
70.globl _wplast
71.globl _wvlast
72.globl _vmtab
73.globl _wsbuf
74.globl _vknm
75.globl _waveob
76.globl _wsnmod
77.globl _wslib
78.globl _wdoct
79.globl _wavpal
80.data
81_wavpal:
82.dc.w $0
83.dc.w $0
84.dc.w $0
85.dc.w $3
86.dc.w $3
87.dc.w $3
88.dc.w $2
89.dc.w $2
90.dc.w $2
91.dc.w $0
92.dc.w $1
93.dc.w $1
94.dc.w $1
95.dc.w $0
96.dc.w $1
97.dc.w $0
98.dc.w $1
99.dc.w $1
100.dc.w $2
101.dc.w $1
102.dc.w $2
103.dc.w $0
104.dc.w $3
105.dc.w $0
106.dc.w $2
107.dc.w $0
108.dc.w $0
109.dc.w $2
110.dc.w $0
111.dc.w $2
112.dc.w $0
113.dc.w $0
114.dc.w $0
115.dc.w $2
116.dc.w $3
117.dc.w $3
118.dc.w $3
119.dc.w $3
120.dc.w $0
121.dc.w $3
122.dc.w $0
123.dc.w $0
124.dc.w $0
125.dc.w $0
126.dc.w $1
127.dc.w $0
128.dc.w $0
129.dc.w $3
130.globl _advwcur
131.text
132_advwcur:
133~~advwcur:
134link R14,#0
135movem.l R6-R7,-(sp)
136~newcol=R7
137*line 117
138move _stccol,R7
139add #1,R7
140*line 119
141*line 120
142move.l _cfetp,R8
143cmp 4(R8),R7
144bgt L2
145*line 120
146move R7,(sp)
147move _stcrow,-(sp)
148jsr _itcpos
149addq.l #2,sp
150L2:L1:tst.l (sp)+
151movem.l (sp)+,R7-R7
152unlk R14
153rts
154.globl _hdraw
155.text
156_hdraw:
157~~hdraw:
158~hv=R13
159~h=12
160link R14,#0
161movem.l R3-R7/R13-R13,-(sp)
162~bc=R7
163~bx=R6
164~by=R5
165~j=R4
166*line 138
167move.l 8(R14),R13
168*line 138
169move 12(R14),R6
170asl #4,R6
171add #4,R6
172*line 140
173*line 140
174move.l R13,R8
175move 12(R14),R9
176add.l R9,R9
177add.l R9,R8
178tst (R8)
179bge L4
180*line 141
181*line 142
182move #306,R5
183move 12(R14),R8
184add.l R8,R8
185move 0(R13,R8.l),R0
186neg R0
187asl #7,R0
188ext.l R0
189divs #100,R0
190sub R0,R5
191*line 143
192move #8,R7
193*line 144
194bra L5
195L4:
196*line 145
197*line 146
198*line 147
199move #306,R5
200move 12(R14),R8
201add.l R8,R8
202move 0(R13,R8.l),R0
203asl #7,R0
204ext.l R0
205divs #100,R0
206sub R0,R5
207*line 148
208move #9,R7
209L5:
210*line 151
211clr R4
212bra L8
213L9:
214*line 152
215*line 153
216move R7,(sp)
217move R5,-(sp)
218move R6,-(sp)
219move #306,-(sp)
220move R6,-(sp)
221jsr _lseg
222addq.l #8,sp
223*line 154
224add #1,R6
225L7:
226*line 151
227add #1,R4
228L8:
229*line 151
230cmp #8,R4
231blt L9
232L6:L3:tst.l (sp)+
233movem.l (sp)+,R4-R7/R13-R13
234unlk R14
235rts
236.globl _dsws
237.text
238_dsws:
239~~dsws:
240~how=8
241link R14,#-6
242movem.l R6-R7/R11-R13,-(sp)
243~ip=R13
244~fv=R12
245~hv=R11
246~ov=-4
247~i=R7
248~cx=-6
249*line 175
250move _wdbox,(sp)
251jsr _exp_c
252move R0,-6(R14)
253*line 177
254move _curvce,R0
255muls #3938,R0
256move.l R0,R13
257add.l #_vbufs,R13
258*line 178
259tst _curwslt
260beq L10000
261move.l R13,R0
262add.l #2858,R0
263bra L10002
264L10000:move.l R13,R0
265add.l #1778,R0
266L10002:move.l R0,R12
267*line 179
268tst _curwslt
269beq L10003
270move.l R13,R0
271add.l #3366,R0
272bra L10005
273L10003:move.l R13,R0
274add.l #2286,R0
275L10005:move.l R0,-4(R14)
276*line 180
277tst _curwslt
278beq L10006
279move.l R13,R0
280add.l #3874,R0
281bra L10008
282L10006:move.l R13,R0
283add.l #2794,R0
284L10008:move.l R0,R11
285*line 182
286move.l #_wdpoint,_point
287*line 184
288*line 185
289clr R0
290move 10+_v_regs,R0
291and #384,R0
292beq L11
293*line 185
294clr (sp)
295jsr _vbank
296*line 186
297L11:
298*line 187
299*line 188
300tst 8(R14)
301beq L12
302*line 189
303move -6(R14),(sp)
304move 6+_wdbox,-(sp)
305move 4+_wdbox,-(sp)
306move 2+_wdbox,-(sp)
307move _wdbox,-(sp)
308move #128,-(sp)
309move.l _waveob,-(sp)
310jsr _vbfill4
311adda.l #14,sp
312*line 190
313L12:
314*line 191
315move #10,(sp)
316move #133,-(sp)
317move #510,-(sp)
318move #133,-(sp)
319move #1,-(sp)
320jsr _lseg
321addq.l #8,sp
322*line 192
323move #10,(sp)
324move #266,-(sp)
325move #510,-(sp)
326move #266,-(sp)
327move #1,-(sp)
328jsr _lseg
329addq.l #8,sp
330*line 194
331clr R7
332bra L15
333L16:
334*line 195
335move R7,(sp)
336move.l R11,-(sp)
337jsr _hdraw
338addq.l #4,sp
339L14:
340*line 194
341add #1,R7
342L15:
343*line 194
344cmp #32,R7
345blt L16
346L13:
347*line 197
348clr R7
349bra L19
350L20:
351*line 198
352*line 199
353*line 200
354*line 201
355*line 202
356move #6,(sp)
357move #133,-(sp)
358move.l -4(R14),R8
359move R7,R9
360add.l R9,R9
361move 0(R8,R9.l),R0
362asr #5,R0
363ext.l R0
364divs #8,R0
365sub R0,(sp)
366move R7,R0
367asl #1,R0
368move R0,-(sp)
369add #2,(sp)
370jsr _wdpoint
371addq.l #4,sp
372*line 203
373*line 204
374*line 205
375*line 206
376*line 207
377move #7,(sp)
378move #133,-(sp)
379move R7,R8
380add.l R8,R8
381move 0(R12,R8.l),R0
382asr #5,R0
383ext.l R0
384divs #8,R0
385sub R0,(sp)
386move R7,R0
387asl #1,R0
388move R0,-(sp)
389add #2,(sp)
390jsr _wdpoint
391addq.l #4,sp
392L18:
393*line 197
394add #1,R7
395L19:
396*line 197
397cmp #254,R7
398blt L20
399L17:L10:tst.l (sp)+
400movem.l (sp)+,R7-R7/R11-R13
401unlk R14
402rts
403.globl _wdswin
404.text
405_wdswin:
406~~wdswin:
407~n=R7
408link R14,#0
409movem.l R3-R7,-(sp)
410~cx=R6
411~wval=R5
412~wsgn=R4
413*line 226
414move 8(R14),R7
415*line 226
416move R7,R0
417asl #4,R0
418ext.l R0
419add.l #_wdbox,R0
420move.l R0,R8
421move 10(R8),R6
422*line 227
423move R6,R0
424asl #4,R0
425or R0,R6
426*line 228
427move R6,R0
428asl #8,R0
429or R0,R6
430*line 232
431*line 233
432clr R0
433move 10+_v_regs,R0
434and #384,R0
435beq L22
436*line 233
437clr (sp)
438jsr _vbank
439*line 234
440L22:
441*line 235
442*line 236
443move R6,(sp)
444move R7,R0
445asl #4,R0
446ext.l R0
447move.l R0,R8
448move.l #_wdbox,R9
449move 6(R8,R9.l),-(sp)
450move R7,R0
451asl #4,R0
452ext.l R0
453move.l R0,R8
454move.l #_wdbox,R9
455move 4(R8,R9.l),-(sp)
456move R7,R0
457asl #4,R0
458ext.l R0
459move.l R0,R8
460move.l #_wdbox,R9
461move 2(R8,R9.l),-(sp)
462move R7,R0
463asl #4,R0
464ext.l R0
465move.l R0,R8
466move.l #_wdbox,R9
467move 0(R8,R9.l),-(sp)
468move #128,-(sp)
469move.l _waveob,-(sp)
470jsr _vbfill4
471adda.l #14,sp
472*line 240
473*line 241
474move #14,(sp)
475move R7,R8
476add.l R8,R8
477add.l R8,R8
478move.l #_wdbxlb0,R9
479move.l 0(R8,R9.l),-(sp)
480move R7,R0
481asl #4,R0
482ext.l R0
483move.l R0,R8
484move.l #_wdbox,R9
485move 14(R8,R9.l),-(sp)
486move R7,R0
487asl #4,R0
488ext.l R0
489move.l R0,R8
490move.l #_wdbox,R9
491move 12(R8,R9.l),-(sp)
492move R7,R0
493asl #4,R0
494ext.l R0
495move.l R0,R8
496move.l #_wdbox,R9
497move 8(R8,R9.l),-(sp)
498move #64,-(sp)
499move.l _waveob,-(sp)
500jsr _tsplot4
501adda.l #16,sp
502*line 243
503*line 244
504move #14,(sp)
505move R7,R8
506add.l R8,R8
507add.l R8,R8
508move.l #_wdbxlb1,R9
509move.l 0(R8,R9.l),-(sp)
510move R7,R0
511asl #4,R0
512ext.l R0
513move.l R0,R8
514move.l #_wdbox,R9
515move 14(R8,R9.l),-(sp)
516move R7,R0
517asl #4,R0
518ext.l R0
519move.l R0,R8
520move.l #_wdbox,R9
521move 12(R8,R9.l),-(sp)
522add #1,(sp)
523move R7,R0
524asl #4,R0
525ext.l R0
526move.l R0,R8
527move.l #_wdbox,R9
528move 8(R8,R9.l),-(sp)
529move #64,-(sp)
530move.l _waveob,-(sp)
531jsr _tsplot4
532adda.l #16,sp
533*line 248
534move R7,R0
535bra L24
536*line 249
537L25:
538*line 250
539*line 251
540*line 252
541clr (sp)
542jsr _dsws
543bra L21
544*line 253
545*line 254
546L26:
547*line 255
548*line 256
549*line 257
550move _curwave,(sp)
551add #1,(sp)
552move.l #L27,-(sp)
553move.l #_bfs,-(sp)
554jsr _sprintf
555addq.l #8,sp
556*line 258
557*line 259
558*line 260
559move #14,(sp)
560move.l #_bfs,-(sp)
561move R7,R0
562asl #4,R0
563ext.l R0
564move.l R0,R8
565move.l #_wdbox,R9
566move 14(R8,R9.l),-(sp)
567add #9,(sp)
568move R7,R0
569asl #4,R0
570ext.l R0
571move.l R0,R8
572move.l #_wdbox,R9
573move 12(R8,R9.l),-(sp)
574move _curvce,R8
575add.l R8,R8
576add.l R8,R8
577move _curwslt,R9
578add.l R9,R9
579add.l R9,R8
580move.l #_wsnmod,R9
581tst 0(R8,R9.l)
582beq L10009
583move #13,-(sp)
584bra L10011
585L10009:move R7,R0
586asl #4,R0
587ext.l R0
588move.l R0,R8
589move.l #_wdbox,R9
590move 8(R8,R9.l),-(sp)
591L10011:jsr _exp_c
592addq.l #2,sp
593move R0,-(sp)
594move #64,-(sp)
595move.l _waveob,-(sp)
596jsr _tsplot4
597adda.l #16,sp
598*line 261
599*line 262
600move _curvce,(sp)
601add #1,(sp)
602move.l #L28,-(sp)
603move.l #_bfs,-(sp)
604jsr _sprintf
605addq.l #8,sp
606*line 263
607*line 264
608move #14,(sp)
609move.l #_bfs,-(sp)
610move R7,R0
611asl #4,R0
612ext.l R0
613move.l R0,R8
614move.l #_wdbox,R9
615move 14(R8,R9.l),-(sp)
616add #18,(sp)
617move R7,R0
618asl #4,R0
619ext.l R0
620move.l R0,R8
621move.l #_wdbox,R9
622move 12(R8,R9.l),-(sp)
623move R7,R0
624asl #4,R0
625ext.l R0
626move.l R0,R8
627move.l #_wdbox,R9
628move 8(R8,R9.l),-(sp)
629move #64,-(sp)
630move.l _waveob,-(sp)
631jsr _tsplot4
632adda.l #16,sp
633*line 265
634*line 266
635move _curinst,(sp)
636move.l #L29,-(sp)
637move.l #_bfs,-(sp)
638jsr _sprintf
639addq.l #8,sp
640*line 267
641*line 268
642move #14,(sp)
643move.l #_bfs,-(sp)
644move R7,R0
645asl #4,R0
646ext.l R0
647move.l R0,R8
648move.l #_wdbox,R9
649move 14(R8,R9.l),-(sp)
650add #11,(sp)
651move R7,R0
652asl #4,R0
653ext.l R0
654move.l R0,R8
655move.l #_wdbox,R9
656move 12(R8,R9.l),-(sp)
657add #1,(sp)
658move R7,R0
659asl #4,R0
660ext.l R0
661move.l R0,R8
662move.l #_wdbox,R9
663move 8(R8,R9.l),-(sp)
664move #64,-(sp)
665move.l _waveob,-(sp)
666jsr _tsplot4
667adda.l #16,sp
668*line 269
669*line 270
670move _curwslt,(sp)
671add #65,(sp)
672move.l #L30,-(sp)
673move.l #_bfs,-(sp)
674jsr _sprintf
675addq.l #8,sp
676*line 271
677*line 272
678move #14,(sp)
679move.l #_bfs,-(sp)
680move R7,R0
681asl #4,R0
682ext.l R0
683move.l R0,R8
684move.l #_wdbox,R9
685move 14(R8,R9.l),-(sp)
686add #19,(sp)
687move R7,R0
688asl #4,R0
689ext.l R0
690move.l R0,R8
691move.l #_wdbox,R9
692move 12(R8,R9.l),-(sp)
693add #1,(sp)
694move R7,R0
695asl #4,R0
696ext.l R0
697move.l R0,R8
698move.l #_wdbox,R9
699move 8(R8,R9.l),-(sp)
700move #64,-(sp)
701move.l _waveob,-(sp)
702jsr _tsplot4
703adda.l #16,sp
704*line 273
705bra L21
706*line 274
707*line 275
708*line 276
709*line 277
710L31:
711*line 278
712*line 279
713*line 280
714move _curwpnt,(sp)
715move.l #L32,-(sp)
716move.l #_bfs,-(sp)
717jsr _sprintf
718addq.l #8,sp
719*line 281
720*line 282
721move #14,(sp)
722move.l #_bfs,-(sp)
723move R7,R0
724asl #4,R0
725ext.l R0
726move.l R0,R8
727move.l #_wdbox,R9
728move 14(R8,R9.l),-(sp)
729add #4,(sp)
730move R7,R0
731asl #4,R0
732ext.l R0
733move.l R0,R8
734move.l #_wdbox,R9
735move 12(R8,R9.l),-(sp)
736move R7,R0
737asl #4,R0
738ext.l R0
739move.l R0,R8
740move.l #_wdbox,R9
741move 8(R8,R9.l),-(sp)
742move #64,-(sp)
743move.l _waveob,-(sp)
744jsr _tsplot4
745adda.l #16,sp
746*line 283
747*line 284
748*line 284
749tst _curwoff
750bge L33
751*line 285
752*line 286
753move _curwoff,R0
754neg R0
755move R0,R5
756*line 287
757move.b #45,R4
758*line 288
759bra L34
760L33:
761*line 289
762*line 290
763*line 291
764move _curwoff,R5
765*line 292
766move.b #43,R4
767L34:
768*line 293
769*line 294
770*line 295
771move R5,(sp)
772move.b R4,R0
773ext.w R0
774move R0,-(sp)
775move.l #L35,-(sp)
776move.l #_bfs,-(sp)
777jsr _sprintf
778adda.l #10,sp
779*line 296
780*line 297
781move #14,(sp)
782move.l #_bfs,-(sp)
783move R7,R0
784asl #4,R0
785ext.l R0
786move.l R0,R8
787move.l #_wdbox,R9
788move 14(R8,R9.l),-(sp)
789add #14,(sp)
790move R7,R0
791asl #4,R0
792ext.l R0
793move.l R0,R8
794move.l #_wdbox,R9
795move 12(R8,R9.l),-(sp)
796move R7,R0
797asl #4,R0
798ext.l R0
799move.l R0,R8
800move.l #_wdbox,R9
801move 8(R8,R9.l),-(sp)
802move #64,-(sp)
803move.l _waveob,-(sp)
804jsr _tsplot4
805adda.l #16,sp
806*line 298
807*line 299
808*line 299
809cmp #8,_curwdth
810bne L36
811*line 300
812*line 301
813*line 302
814move #14,(sp)
815move.l #L37,-(sp)
816move R7,R0
817asl #4,R0
818ext.l R0
819move.l R0,R8
820move.l #_wdbox,R9
821move 14(R8,R9.l),-(sp)
822move R7,R0
823asl #4,R0
824ext.l R0
825move.l R0,R8
826move.l #_wdbox,R9
827move 12(R8,R9.l),-(sp)
828add #1,(sp)
829move R7,R0
830asl #4,R0
831ext.l R0
832move.l R0,R8
833move.l #_wdbox,R9
834move 8(R8,R9.l),-(sp)
835move #64,-(sp)
836move.l _waveob,-(sp)
837jsr _tsplot4
838adda.l #16,sp
839*line 303
840bra L38
841L36:
842*line 304
843*line 305
844*line 306
845*line 307
846move #14,(sp)
847move.l #L39,-(sp)
848move R7,R0
849asl #4,R0
850ext.l R0
851move.l R0,R8
852move.l #_wdbox,R9
853move 14(R8,R9.l),-(sp)
854move R7,R0
855asl #4,R0
856ext.l R0
857move.l R0,R8
858move.l #_wdbox,R9
859move 12(R8,R9.l),-(sp)
860add #1,(sp)
861move R7,R0
862asl #4,R0
863ext.l R0
864move.l R0,R8
865move.l #_wdbox,R9
866move 8(R8,R9.l),-(sp)
867move #64,-(sp)
868move.l _waveob,-(sp)
869jsr _tsplot4
870adda.l #16,sp
871*line 308
872*line 309
873move _curwdth,(sp)
874move.l #L40,-(sp)
875move.l #_bfs,-(sp)
876jsr _sprintf
877addq.l #8,sp
878*line 310
879*line 311
880move #14,(sp)
881move.l #_bfs,-(sp)
882move R7,R0
883asl #4,R0
884ext.l R0
885move.l R0,R8
886move.l #_wdbox,R9
887move 14(R8,R9.l),-(sp)
888add #6,(sp)
889move R7,R0
890asl #4,R0
891ext.l R0
892move.l R0,R8
893move.l #_wdbox,R9
894move 12(R8,R9.l),-(sp)
895add #1,(sp)
896move R7,R0
897asl #4,R0
898ext.l R0
899move.l R0,R8
900move.l #_wdbox,R9
901move 8(R8,R9.l),-(sp)
902move #64,-(sp)
903move.l _waveob,-(sp)
904jsr _tsplot4
905adda.l #16,sp
906L38:
907*line 312
908*line 313
909*line 314
910*line 314
911tst _curwfnl
912bge L41
913*line 315
914*line 316
915move _curwfnl,R0
916neg R0
917move R0,R5
918*line 317
919move.b #45,R4
920*line 318
921bra L42
922L41:
923*line 319
924*line 320
925*line 321
926move _curwfnl,R5
927*line 322
928move.b #43,R4
929L42:
930*line 323
931*line 324
932*line 325
933move R5,(sp)
934move.b R4,R0
935ext.w R0
936move R0,-(sp)
937move.l #L43,-(sp)
938move.l #_bfs,-(sp)
939jsr _sprintf
940adda.l #10,sp
941*line 326
942*line 327
943move #14,(sp)
944move.l #_bfs,-(sp)
945move R7,R0
946asl #4,R0
947ext.l R0
948move.l R0,R8
949move.l #_wdbox,R9
950move 14(R8,R9.l),-(sp)
951add #14,(sp)
952move R7,R0
953asl #4,R0
954ext.l R0
955move.l R0,R8
956move.l #_wdbox,R9
957move 12(R8,R9.l),-(sp)
958add #1,(sp)
959move R7,R0
960asl #4,R0
961ext.l R0
962move.l R0,R8
963move.l #_wdbox,R9
964move 8(R8,R9.l),-(sp)
965move #64,-(sp)
966move.l _waveob,-(sp)
967jsr _tsplot4
968adda.l #16,sp
969*line 328
970bra L21
971*line 329
972*line 330
973*line 331
974L44:
975*line 332
976*line 333
977*line 334
978move _curwhrm,(sp)
979add #1,(sp)
980move.l #L45,-(sp)
981move.l #_bfs,-(sp)
982jsr _sprintf
983addq.l #8,sp
984*line 335
985*line 336
986move #14,(sp)
987move.l #_bfs,-(sp)
988move R7,R0
989asl #4,R0
990ext.l R0
991move.l R0,R8
992move.l #_wdbox,R9
993move 14(R8,R9.l),-(sp)
994add #10,(sp)
995move R7,R0
996asl #4,R0
997ext.l R0
998move.l R0,R8
999move.l #_wdbox,R9
1000move 12(R8,R9.l),-(sp)
1001move R7,R0
1002asl #4,R0
1003ext.l R0
1004move.l R0,R8
1005move.l #_wdbox,R9
1006move 8(R8,R9.l),-(sp)
1007move #64,-(sp)
1008move.l _waveob,-(sp)
1009jsr _tsplot4
1010adda.l #16,sp
1011*line 337
1012*line 338
1013*line 338
1014tst _curwhrv
1015bge L46
1016*line 339
1017*line 340
1018move _curwhrv,R0
1019neg R0
1020move R0,R5
1021*line 341
1022move.b #45,R4
1023*line 342
1024bra L47
1025L46:
1026*line 343
1027*line 344
1028*line 345
1029move _curwhrv,R5
1030*line 346
1031move.b #43,R4
1032L47:
1033*line 347
1034*line 348
1035*line 349
1036move R5,(sp)
1037move.b R4,R0
1038ext.w R0
1039move R0,-(sp)
1040move.l #L48,-(sp)
1041move.l #_bfs,-(sp)
1042jsr _sprintf
1043adda.l #10,sp
1044*line 350
1045*line 351
1046move #14,(sp)
1047move.l #_bfs,-(sp)
1048move R7,R0
1049asl #4,R0
1050ext.l R0
1051move.l R0,R8
1052move.l #_wdbox,R9
1053move 14(R8,R9.l),-(sp)
1054add #6,(sp)
1055move R7,R0
1056asl #4,R0
1057ext.l R0
1058move.l R0,R8
1059move.l #_wdbox,R9
1060move 12(R8,R9.l),-(sp)
1061add #1,(sp)
1062move R7,R0
1063asl #4,R0
1064ext.l R0
1065move.l R0,R8
1066move.l #_wdbox,R9
1067move 8(R8,R9.l),-(sp)
1068move #64,-(sp)
1069move.l _waveob,-(sp)
1070jsr _tsplot4
1071adda.l #16,sp
1072*line 352
1073bra L21
1074*line 353
1075*line 354
1076bra L23
1077L24:tst R0
1078beq L25
1079cmp #2,R0
1080beq L26
1081cmp #4,R0
1082beq L31
1083cmp #5,R0
1084beq L44
1085bra L23
1086L23:L21:tst.l (sp)+
1087movem.l (sp)+,R4-R7
1088unlk R14
1089rts
1090.globl _wwins
1091.text
1092_wwins:
1093~~wwins:
1094link R14,#0
1095movem.l R6-R7,-(sp)
1096~i=R7
1097*line 371
1098clr R7
1099bra L52
1100L53:
1101*line 372
1102move R7,(sp)
1103jsr _wdswin
1104L51:
1105*line 371
1106add #1,R7
1107L52:
1108*line 371
1109cmp #6,R7
1110blt L53
1111L50:L49:tst.l (sp)+
1112movem.l (sp)+,R7-R7
1113unlk R14
1114rts
1115.globl _wdpoint
1116.text
1117_wdpoint:
1118~~wdpoint:
1119~x=8
1120~y=10
1121~pen=12
1122link R14,#-4
1123*line 384
1124*line 385
1125clr R0
1126move 10+_v_regs,R0
1127and #384,R0
1128beq L55
1129*line 385
1130clr (sp)
1131jsr _vbank
1132*line 386
1133L55:
1134*line 387
1135move 12(R14),(sp)
1136move 10(R14),-(sp)
1137move 8(R14),-(sp)
1138move.l _wdoct,-(sp)
1139jsr _vputp
1140addq.l #8,sp
1141L54:unlk R14
1142rts
1143.globl _wdbord
1144.text
1145_wdbord:
1146~~wdbord:
1147link R14,#-4
1148*line 401
1149move.l #_wdpoint,_point
1150*line 403
1151move #2,(sp)
1152clr -(sp)
1153move #511,-(sp)
1154clr -(sp)
1155clr -(sp)
1156jsr _lseg
1157addq.l #8,sp
1158*line 404
1159move #2,(sp)
1160move #349,-(sp)
1161move #511,-(sp)
1162clr -(sp)
1163move #511,-(sp)
1164jsr _lseg
1165addq.l #8,sp
1166*line 405
1167move #2,(sp)
1168move #349,-(sp)
1169clr -(sp)
1170move #349,-(sp)
1171move #511,-(sp)
1172jsr _lseg
1173addq.l #8,sp
1174*line 406
1175move #2,(sp)
1176clr -(sp)
1177clr -(sp)
1178move #349,-(sp)
1179clr -(sp)
1180jsr _lseg
1181addq.l #8,sp
1182*line 408
1183move #2,(sp)
1184move #308,-(sp)
1185move #511,-(sp)
1186move #308,-(sp)
1187clr -(sp)
1188jsr _lseg
1189addq.l #8,sp
1190*line 409
1191move #2,(sp)
1192move #321,-(sp)
1193clr -(sp)
1194move #321,-(sp)
1195move #511,-(sp)
1196jsr _lseg
1197addq.l #8,sp
1198*line 411
1199move #2,(sp)
1200move #349,-(sp)
1201move #175,-(sp)
1202move #322,-(sp)
1203move #175,-(sp)
1204jsr _lseg
1205addq.l #8,sp
1206*line 412
1207move #2,(sp)
1208move #349,-(sp)
1209move #231,-(sp)
1210move #322,-(sp)
1211move #231,-(sp)
1212jsr _lseg
1213addq.l #8,sp
1214*line 413
1215move #2,(sp)
1216move #349,-(sp)
1217move #399,-(sp)
1218move #322,-(sp)
1219move #399,-(sp)
1220jsr _lseg
1221addq.l #8,sp
1222L56:unlk R14
1223rts
1224.globl _clrws
1225.text
1226_clrws:
1227~~clrws:
1228link R14,#0
1229movem.l R7-R7/R13-R13,-(sp)
1230~ip=R13
1231*line 429
1232move _curvce,R0
1233muls #3938,R0
1234move.l R0,R13
1235add.l #_vbufs,R13
1236*line 431
1237*line 431
1238tst _curwslt
1239beq L58
1240*line 432
1241*line 433
1242move #32,(sp)
1243clr -(sp)
1244move.l R13,-(sp)
1245add.l #3874,(sp)
1246jsr _memsetw
1247addq.l #6,sp
1248*line 434
1249move #254,(sp)
1250clr -(sp)
1251move.l R13,-(sp)
1252add.l #3366,(sp)
1253jsr _memsetw
1254addq.l #6,sp
1255*line 435
1256move #254,(sp)
1257clr -(sp)
1258move.l R13,-(sp)
1259add.l #2858,(sp)
1260jsr _memsetw
1261addq.l #6,sp
1262*line 436
1263bra L59
1264L58:
1265*line 437
1266*line 438
1267*line 439
1268move #32,(sp)
1269clr -(sp)
1270move.l R13,-(sp)
1271add.l #2794,(sp)
1272jsr _memsetw
1273addq.l #6,sp
1274*line 440
1275move #254,(sp)
1276clr -(sp)
1277move.l R13,-(sp)
1278add.l #2286,(sp)
1279jsr _memsetw
1280addq.l #6,sp
1281*line 441
1282move #254,(sp)
1283clr -(sp)
1284move.l R13,-(sp)
1285add.l #1778,(sp)
1286jsr _memsetw
1287addq.l #6,sp
1288L59:
1289*line 444
1290jsr _clrwsa
1291*line 446
1292move _curwpnt,R0
1293move R0,_wplast
1294move R0,_lstwpnt
1295*line 448
1296clr R0
1297move R0,_curwoff
1298move R0,_curwfnl
1299move R0,_wvlast
1300move R0,_lstwoff
1301*line 450
1302clr _curwhrv
1303*line 452
1304jsr _updfpu
1305*line 453
1306move _curvce,R8
1307add.l R8,R8
1308add.l R8,R8
1309move _curwslt,R9
1310add.l R9,R9
1311add.l R9,R8
1312add.l #_wsnmod,R8
1313move #1,(R8)
1314L57:tst.l (sp)+
1315movem.l (sp)+,R13-R13
1316unlk R14
1317rts
1318.globl _iniwslb
1319.text
1320_iniwslb:
1321~~iniwslb:
1322link R14,#0
1323movem.l R5-R7,-(sp)
1324~i=R7
1325~j=R6
1326*line 469
1327move #24,(sp)
1328clr -(sp)
1329move.l #_wsnmod,-(sp)
1330jsr _memsetw
1331addq.l #6,sp
1332*line 471
1333clr R7
1334bra L63
1335L64:
1336*line 472
1337*line 473
1338clr R6
1339bra L67
1340L68:
1341*line 474
1342*line 475
1343move R6,R0
1344add #1,R0
1345asl #8,R0
1346move #-32768,R1
1347eor R1,R0
1348move R7,R1
1349muls #1080,R1
1350move R6,R2
1351asl #1,R2
1352ext.l R2
1353add.l R2,R1
1354add.l #_wslib,R1
1355move.l R1,R9
1356move R0,(R9)
1357*line 476
1358move R6,R0
1359add #1,R0
1360asl #8,R0
1361move #-32768,R1
1362eor R1,R0
1363move R7,R1
1364muls #1080,R1
1365move R6,R2
1366asl #1,R2
1367ext.l R2
1368add.l R2,R1
1369add.l #_wslib,R1
1370move.l R1,R9
1371move R0,508(R9)
1372L66:
1373*line 473
1374add #1,R6
1375L67:
1376*line 473
1377cmp #254,R6
1378blt L68
1379L65:
1380*line 477
1381*line 478
1382*line 479
1383move #32,(sp)
1384clr -(sp)
1385move R7,R0
1386muls #1080,R0
1387add.l #_wslib,R0
1388move.l R0,-(sp)
1389add.l #1016,(sp)
1390jsr _memsetw
1391addq.l #6,sp
1392L62:
1393*line 471
1394add #1,R7
1395L63:
1396*line 471
1397cmp #20,R7
1398blt L64
1399L61:L60:tst.l (sp)+
1400movem.l (sp)+,R6-R7
1401unlk R14
1402rts
1403.globl _wsdsp
1404.text
1405_wsdsp:
1406~~wsdsp:
1407link R14,#-4
1408*line 494
1409move.l #_v_score,_waveob
1410*line 495
1411move.l #_v_curs0,_obj0
1412*line 496
1413move.l #144+_v_obtab,_wdoct
1414*line 498
1415clr _wpntsv
1416*line 499
1417jsr _newws
1418*line 501
1419jsr _dswap
1420*line 503
1421*line 504
1422clr R0
1423move 10+_v_regs,R0
1424and #384,R0
1425beq L70
1426*line 504
1427clr (sp)
1428jsr _vbank
1429*line 505
1430L70:
1431*line 506
1432move #32767,(sp)
1433clr -(sp)
1434move.l _waveob,-(sp)
1435jsr _memsetw
1436addq.l #6,sp
1437*line 507
1438move #12033,(sp)
1439clr -(sp)
1440move.l _waveob,R0
1441add.l #$fffe,R0
1442move.l R0,-(sp)
1443jsr _memsetw
1444addq.l #6,sp
1445*line 509
1446move #-1,(sp)
1447move #1536,-(sp)
1448clr -(sp)
1449clr -(sp)
1450move #350,-(sp)
1451move #512,-(sp)
1452move.l _waveob,-(sp)
1453clr -(sp)
1454clr -(sp)
1455move #8,-(sp)
1456jsr _SetObj
1457adda.l #20,sp
1458*line 510
1459move #-1,(sp)
1460move #1540,-(sp)
1461move #128,-(sp)
1462move #256,-(sp)
1463move #16,-(sp)
1464move #16,-(sp)
1465move.l _obj0,-(sp)
1466move #1,-(sp)
1467clr -(sp)
1468clr -(sp)
1469jsr _SetObj
1470adda.l #20,sp
1471*line 512
1472move #1,(sp)
1473jsr _arcurs
1474*line 513
1475move #1,(sp)
1476jsr _itcini
1477*line 515
1478jsr _wdbord
1479*line 516
1480jsr _wwins
1481*line 518
1482move #8,(sp)
1483move #8,-(sp)
1484jsr _SetPri
1485addq.l #2,sp
1486*line 519
1487move #15,(sp)
1488clr -(sp)
1489jsr _SetPri
1490addq.l #2,sp
1491*line 520
1492move #128,(sp)
1493move #256,-(sp)
1494jsr _setgc
1495addq.l #2,sp
1496*line 522
1497move.l #_wavpal,(sp)
1498jsr _vsndpal
1499L69:unlk R14
1500rts
1501.data
1502L27:.dc.b $25,$30,$32,$64,$0
1503L28:.dc.b $25,$30,$32,$64,$0
1504L29:.dc.b $25,$30,$32,$64,$0
1505L30:.dc.b $25,$63,$0
1506L32:.dc.b $25,$30,$33,$64,$0
1507L35:.dc.b $25,$63,$25,$30,$34,$64,$0
1508L37:.dc.b $49,$6E,$74,$65,$72,$70,$0
1509L39:.dc.b $57,$69,$64,$74,$68,$0
1510L40:.dc.b $25,$30,$31,$64,$0
1511L43:.dc.b $25,$63,$25,$30,$34,$64,$0
1512L45:.dc.b $25,$30,$32,$64,$0
1513L48:.dc.b $25,$63,$25,$30,$33,$64,$0
Note: See TracBrowser for help on using the repository browser.