source: buchla-68k/alcyon/etiosc.s@ 4810254

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 29.5 KB
Line 
1.globl _ebflag
2.globl _ebuf
3.globl _curfet
4.globl _cfetp
5.globl _infetp
6.globl _io_time
7.globl _io_lcd
8.globl _io_ser
9.globl _io_midi
10.globl _io_disk
11.globl _io_tone
12.globl _io_leds
13.globl _io_kbrd
14.globl _lcd_a0
15.globl _lcd_a1
16.globl _io_vreg
17.globl _io_vraw
18.globl _io_vram
19.globl _io_fpu
20.globl _v_regs
21.globl _v_odtab
22.globl _v_actab
23.globl _v_ct0
24.globl _v_gt1
25.globl _v_score
26.globl _v_cgtab
27.globl _v_curs0
28.globl _v_curs1
29.globl _v_curs2
30.globl _v_curs3
31.globl _v_curs4
32.globl _v_curs5
33.globl _v_curs6
34.globl _v_curs7
35.globl _v_tcur
36.globl _v_kbobj
37.globl _v_lnobj
38.globl _v_win0
39.globl _v_cur
40.globl _fc_sw
41.globl _fc_val
42.globl _stcrow
43.globl _stccol
44.globl _curvce
45.globl _idbox
46.globl _instob
47.globl _dspbuf
48.globl _vbufs
49.globl _cents
50.globl _bform
51.globl _notes
52.data
53_notes:
54.dc.w $2
55.dc.w $2
56.dc.w $3
57.dc.w $3
58.dc.w $4
59.dc.w $5
60.dc.w $5
61.dc.w $6
62.dc.w $6
63.dc.w $0
64.dc.w $0
65.dc.w $1
66.globl _pitches
67.data
68_pitches:
69.dc.w $384
70.dc.w $44C
71.dc.w $0
72.dc.w $C8
73.dc.w $190
74.dc.w $1F4
75.dc.w $2BC
76.globl _ratio
77.data
78_ratio:
79.dc.w $0
80.dc.w $0
81.dc.w $0
82.dc.w $0
83.dc.w $0
84.dc.w $0
85.dc.w $0
86.dc.w $0
87.dc.w $0
88.dc.w $0
89.dc.w $0
90.dc.w $0
91.dc.w $FB50
92.dc.w $F892
93.dc.w $F6A0
94.dc.w $F51E
95.dc.w $F3E2
96.dc.w $F2D7
97.dc.w $F1F0
98.dc.w $F124
99.dc.w $0
100.dc.w $4B0
101.dc.w $0
102.dc.w $FD42
103.dc.w $FB50
104.dc.w $F9CE
105.dc.w $F892
106.dc.w $F787
107.dc.w $F6A0
108.dc.w $F5D4
109.dc.w $0
110.dc.w $76E
111.dc.w $2BE
112.dc.w $0
113.dc.w $FE0E
114.dc.w $FC8C
115.dc.w $FB50
116.dc.w $FA45
117.dc.w $F95E
118.dc.w $F892
119.dc.w $0
120.dc.w $960
121.dc.w $4B0
122.dc.w $1F2
123.dc.w $0
124.dc.w $FE7E
125.dc.w $FD42
126.dc.w $FC37
127.dc.w $FB50
128.dc.w $FA84
129.dc.w $0
130.dc.w $AE2
131.dc.w $632
132.dc.w $374
133.dc.w $182
134.dc.w $0
135.dc.w $FEC4
136.dc.w $FDB9
137.dc.w $FCD2
138.dc.w $FC06
139.dc.w $0
140.dc.w $C1E
141.dc.w $76E
142.dc.w $4B0
143.dc.w $2BE
144.dc.w $13C
145.dc.w $0
146.dc.w $FEF5
147.dc.w $FE0E
148.dc.w $FD42
149.dc.w $0
150.dc.w $D29
151.dc.w $879
152.dc.w $5BB
153.dc.w $3C9
154.dc.w $247
155.dc.w $10B
156.dc.w $0
157.dc.w $FF19
158.dc.w $FE4D
159.dc.w $0
160.dc.w $E10
161.dc.w $960
162.dc.w $6A2
163.dc.w $4B0
164.dc.w $32E
165.dc.w $1F2
166.dc.w $E7
167.dc.w $0
168.dc.w $FF34
169.dc.w $0
170.dc.w $EDC
171.dc.w $A2C
172.dc.w $76E
173.dc.w $57C
174.dc.w $3FA
175.dc.w $2BE
176.dc.w $1B3
177.dc.w $CC
178.dc.w $0
179.globl _sharps
180.data
181_sharps:
182.dc.w $7
183.dc.w $9
184.dc.w $7
185.dc.w $9
186.dc.w $7
187.dc.w $7
188.dc.w $9
189.dc.w $7
190.dc.w $9
191.dc.w $7
192.dc.w $9
193.dc.w $7
194.globl _shrpflt
195.data
196_shrpflt:
197.dc.w $0
198.dc.w $FF9C
199.dc.w $64
200.globl _sfdsp
201.data
202_sfdsp:
203.dc.b $20
204.dc.b $A9
205.dc.b $A8
206.even
207.data
208L1:.dc.b $2B,$30,$30,$30,$30,$0
209.text
210.data
211L3:.dc.b $31,$2F,$31,$0
212.text
213.data
214L5:.dc.b $30,$30,$2E,$30,$0
215.even
216.text
217.data
218L7:.dc.b $30,$43,$20,$30,$30,$0
219.text
220.globl _ndvals
221.data
222_ndvals:
223.dc.w $0
224.dc.w $0
225.dc.w $4B0
226.dc.w $76E
227.dc.w $960
228.dc.w $AE2
229.dc.w $C1E
230.dc.w $D29
231.dc.w $E10
232.dc.w $EDC
233.globl _int2rat
234.text
235_int2rat:
236~~int2rat:
237~rat=8
238link R14,#0
239movem.l R4-R7,-(sp)
240~den=R7
241~inum=R6
242~num=R5
243*line 81
244move.b #49,_ebuf
245*line 82
246move.b #47,1+_ebuf
247*line 83
248move.b #49,2+_ebuf
249*line 84
250clr.b 3+_ebuf
251*line 86
252move #1,R5
253bra L12
254L13:
255*line 87
256*line 88
257move R5,R6
258muls #10,R6
259*line 89
260*line 90
261move #1,R7
262bra L16
263L17:
264*line 91
265*line 92
266*line 92
267move R6,R8
268add R7,R8
269add.l R8,R8
270move.l #_ratio,R9
271move 0(R8,R9.l),R0
272cmp 8(R14),R0
273bne L18
274*line 93
275*line 94
276move R5,R0
277add #48,R0
278move.b R0,_ebuf
279*line 95
280move R7,R0
281add #48,R0
282move.b R0,2+_ebuf
283bra L9
284*line 96
285*line 97
286L18:L15:
287*line 90
288add #1,R7
289L16:
290*line 90
291cmp #10,R7
292blt L17
293L14:
294*line 98
295L11:
296*line 86
297add #1,R5
298L12:
299*line 86
300cmp #10,R5
301blt L13
302L10:L9:tst.l (sp)+
303movem.l (sp)+,R5-R7
304unlk R14
305rts
306.globl _cnvc2p
307.text
308_cnvc2p:
309~~cnvc2p:
310~buf=8
311~cv=12
312link R14,#-8
313~rem=-2
314~tmp=-4
315*line 117
316sub #160,12(R14)
317*line 118
318move 12(R14),R0
319ext.l R0
320divs #1200,R0
321move.l 8(R14),R9
322move.b R0,(R9)
323*line 119
324move 12(R14),R0
325move.l 8(R14),R9
326move.b (R9),R1
327ext.w R1
328muls #1200,R1
329sub R1,R0
330move R0,-2(R14)
331*line 120
332move -2(R14),R0
333ext.l R0
334divs #100,R0
335move R0,-4(R14)
336*line 121
337move -4(R14),R0
338muls #100,R0
339sub R0,-2(R14)
340*line 122
341move -4(R14),R8
342add.l R8,R8
343move.l #_notes,R9
344move 0(R8,R9.l),R0
345move.l 8(R14),R9
346move.b R0,1(R9)
347*line 123
348move -4(R14),R8
349add.l R8,R8
350move.l #_sharps,R9
351move 0(R8,R9.l),R0
352move.l 8(R14),R9
353move.b R0,2(R9)
354*line 124
355move -2(R14),R0
356ext.l R0
357divs #10,R0
358move.l 8(R14),R9
359move.b R0,3(R9)
360*line 125
361move -2(R14),R0
362move.l 8(R14),R9
363move.b 3(R9),R1
364ext.w R1
365muls #10,R1
366sub R1,R0
367move.l 8(R14),R9
368move.b R0,4(R9)
369L19:unlk R14
370rts
371.globl _cnvp2c
372.text
373_cnvp2c:
374~~cnvp2c:
375link R14,#-4
376*line 150
377*line 151
378cmp.b #9,_ebuf
379bne L21
380*line 151
381*line 152
382cmp.b #2,1+_ebuf
383ble L22
384*line 152
385move #-1,R0
386bra L20
387bra L23
388L22:
389*line 153
390*line 154
391cmp.b #2,1+_ebuf
392bne L24
393*line 154
394*line 155
395cmp.b #7,2+_ebuf
396beq L25
397*line 155
398move #-1,R0
399bra L20
400bra L26
401L25:
402*line 156
403*line 157
404tst.b 3+_ebuf
405bne L10000
406tst.b 4+_ebuf
407beq L27
408L10000:*line 157
409move #-1,R0
410bra L20
411*line 158
412L27:L26:L24:L23:L21:
413*line 159
414*line 160
415move.b _ebuf,R0
416ext.w R0
417muls #1200,R0
418move.b 1+_ebuf,R1
419ext.w R1
420move R1,R9
421add.l R9,R9
422add.l #_pitches,R9
423move (R9),R1
424add R1,R0
425move.b 2+_ebuf,R1
426ext.w R1
427sub #7,R1
428move R1,R9
429add.l R9,R9
430add.l #_shrpflt,R9
431move (R9),R1
432add R1,R0
433move.b 3+_ebuf,R1
434ext.w R1
435muls #10,R1
436add R1,R0
437move.b 4+_ebuf,R1
438ext.w R1
439add R1,R0
440add #160,R0
441move R0,_cents
442*line 162
443clr R0
444bra L20
445L20:unlk R14
446rts
447.globl _et_iosc
448.text
449_et_iosc:
450~~et_iosc:
451~nn=8
452link R14,#0
453movem.l R2-R7/R13-R13,-(sp)
454~ip=R13
455~val=R7
456~ctl=R6
457~fh=R5
458~fl=R4
459~v=R3
460*line 181
461move 8(R14),R3
462asr #8,R3
463and #3,R3
464*line 182
465move _curvce,R0
466muls #3938,R0
467move.l R0,R13
468add.l #_vbufs,R13
469*line 184
470move R3,R0
471bra L30
472*line 185
473L31:
474*line 186
475*line 187
476*line 188
477move 78(R13),R7
478*line 189
479move.b 74(R13),R6
480ext.w R6
481bra L29
482*line 190
483*line 191
484L32:
485*line 192
486*line 193
487*line 194
488move 80(R13),R7
489*line 195
490move.b 75(R13),R6
491ext.w R6
492bra L29
493*line 196
494*line 197
495L33:
496*line 198
497*line 199
498*line 200
499move 82(R13),R7
500*line 201
501move.b 76(R13),R6
502ext.w R6
503bra L29
504*line 202
505*line 203
506L34:
507*line 204
508*line 205
509*line 206
510move 84(R13),R7
511*line 207
512move.b 77(R13),R6
513ext.w R6
514bra L29
515*line 208
516bra L29
517L30:tst R0
518beq L31
519cmp #1,R0
520beq L32
521cmp #2,R0
522beq L33
523cmp #3,R0
524beq L34
525bra L29
526L29:
527*line 212
528move R6,R0
529and #3,R0
530move R0,_bform
531*line 214
532move _bform,R0
533bra L36
534*line 215
535L37:
536*line 216
537*line 217
538*line 218
539*line 219
540tst R7
541bge L10001
542move #45,(sp)
543bra L10003
544L10001:move #43,(sp)
545L10003:tst R7
546bge L10004
547move R7,R0
548neg R0
549bra L10006
550L10004:move R7,R0
551L10006:asr #1,R0
552move R0,-(sp)
553move.l #L38,-(sp)
554move.l #_ebuf,-(sp)
555jsr _sprintf
556adda.l #10,sp
557*line 220
558*line 221
559move #1,_ebflag
560*line 222
561clr R0
562bra L28
563*line 223
564L39:
565*line 224
566*line 225
567*line 226
568move R7,R0
569asr #1,R0
570move R0,(sp)
571jsr _int2rat
572*line 227
573move #1,_ebflag
574*line 228
575clr R0
576bra L28
577*line 229
578L40:
579*line 230
580*line 231
581*line 232
582move R7,R5
583asr R5
584ext.l R5
585divs #10,R5
586*line 233
587move R7,R4
588asr R4
589move R5,R0
590muls #10,R0
591sub R0,R4
592*line 234
593*line 235
594move R4,(sp)
595move R5,-(sp)
596move.l #L41,-(sp)
597move.l #_ebuf,-(sp)
598jsr _sprintf
599adda.l #10,sp
600*line 236
601move #1,_ebflag
602*line 237
603clr R0
604bra L28
605*line 238
606L42:
607*line 239
608*line 240
609*line 241
610move R7,R0
611asr #1,R0
612move R0,(sp)
613move.l #_ebuf,-(sp)
614jsr _cnvc2p
615addq.l #4,sp
616*line 242
617move #1,_ebflag
618*line 243
619clr R0
620bra L28
621bra L35
622L36:tst R0
623beq L37
624cmp #1,R0
625beq L39
626cmp #2,R0
627beq L40
628cmp #3,R0
629beq L42
630bra L35
631L35:L28:tst.l (sp)+
632movem.l (sp)+,R3-R7/R13-R13
633unlk R14
634rts
635.globl _setoval
636.text
637_setoval:
638~~setoval:
639~ip=R13
640~v=R7
641~val=R6
642link R14,#0
643movem.l R5-R7/R13-R13,-(sp)
644*line 260
645move.l 8(R14),R13
646*line 260
647move 12(R14),R7
648*line 260
649move 14(R14),R6
650*line 260
651move R7,R0
652bra L45
653*line 261
654L46:
655*line 262
656*line 263
657*line 264
658move R6,R0
659asl #1,R0
660move R0,78(R13)
661*line 265
662move.b 74(R13),R0
663ext.w R0
664and #-4,R0
665or _bform,R0
666move.b R0,74(R13)
667bra L44
668*line 266
669*line 267
670L47:
671*line 268
672*line 269
673*line 270
674move R6,R0
675asl #1,R0
676move R0,80(R13)
677*line 271
678move.b 75(R13),R0
679ext.w R0
680and #-4,R0
681or _bform,R0
682move.b R0,75(R13)
683bra L44
684*line 272
685*line 273
686L48:
687*line 274
688*line 275
689*line 276
690move R6,R0
691asl #1,R0
692move R0,82(R13)
693*line 277
694move.b 76(R13),R0
695ext.w R0
696and #-4,R0
697or _bform,R0
698move.b R0,76(R13)
699bra L44
700*line 278
701*line 279
702L49:
703*line 280
704*line 281
705*line 282
706move R6,R0
707asl #1,R0
708move R0,84(R13)
709*line 283
710move.b 77(R13),R0
711ext.w R0
712and #-4,R0
713or _bform,R0
714move.b R0,77(R13)
715bra L44
716*line 284
717bra L44
718L45:tst R0
719beq L46
720cmp #1,R0
721beq L47
722cmp #2,R0
723beq L48
724cmp #3,R0
725beq L49
726bra L44
727L44:
728*line 287
729*line 288
730move R7,R0
731muls #12,R0
732move.b 93(R13,R0.l),R0
733ext.w R0
734and #-5,R0
735btst #1,1+_bform
736beq L10007
737move #4,R1
738bra L10009
739L10007:clr R1
740L10009:or R1,R0
741move.l R13,R9
742move R7,R2
743muls #12,R2
744add.l R2,R9
745move.b R0,93(R9)
746L43:tst.l (sp)+
747movem.l (sp)+,R6-R7/R13-R13
748unlk R14
749rts
750.globl _ef_iosc
751.text
752_ef_iosc:
753~~ef_iosc:
754~nn=8
755link R14,#0
756movem.l R4-R7/R13-R13,-(sp)
757~ip=R13
758~v=R7
759~i=R6
760~tmp=R5
761*line 307
762move 8(R14),R7
763asr #8,R7
764and #3,R7
765*line 308
766move _curvce,R0
767muls #3938,R0
768move.l R0,R13
769add.l #_vbufs,R13
770*line 309
771clr _ebflag
772*line 311
773move _bform,R0
774bra L52
775*line 312
776L53:
777*line 313
778*line 314
779*line 315
780clr R5
781*line 316
782*line 317
783clr R6
784bra L56
785L57:
786*line 318
787muls #10,R5
788move.l #_ebuf,R8
789move.b 0(R8,R6),R0
790ext.w R0
791add R0,R5
792add #-48,R5
793L55:
794*line 317
795add #1,R6
796L56:
797*line 317
798cmp #4,R6
799blt L57
800L54:
801*line 318
802*line 319
803*line 320
804*line 321
805cmp.b #45,4+_ebuf
806bne L58
807*line 321
808move R5,R0
809neg R0
810move R0,R5
811*line 322
812L58:
813*line 323
814move R5,(sp)
815move R7,-(sp)
816move.l R13,-(sp)
817jsr _setoval
818addq.l #6,sp
819*line 324
820jsr _modinst
821*line 325
822clr R0
823bra L50
824*line 326
825L59:
826*line 327
827*line 328
828*line 329
829move.b _ebuf,R0
830ext.w R0
831add #-48,R0
832move R0,R8
833add.l R8,R8
834add.l #_ndvals,R8
835move (R8),R5
836move.b 2+_ebuf,R0
837ext.w R0
838add #-48,R0
839move R0,R8
840add.l R8,R8
841add.l #_ndvals,R8
842move (R8),R0
843sub R0,R5
844*line 330
845*line 331
846move R5,(sp)
847move R7,-(sp)
848move.l R13,-(sp)
849jsr _setoval
850addq.l #6,sp
851*line 332
852jsr _modinst
853*line 333
854clr R0
855bra L50
856*line 334
857*line 335
858L60:
859*line 336
860*line 337
861*line 338
862clr R5
863*line 339
864*line 340
865clr R6
866bra L63
867L64:
868*line 341
869muls #10,R5
870move.l #_ebuf,R8
871move.b 0(R8,R6),R0
872ext.w R0
873add R0,R5
874add #-48,R5
875L62:
876*line 340
877add #1,R6
878L63:
879*line 340
880cmp #2,R6
881blt L64
882L61:
883*line 341
884*line 342
885*line 343
886muls #10,R5
887move.b 3+_ebuf,R0
888ext.w R0
889add R0,R5
890add #-48,R5
891*line 344
892*line 345
893*line 346
894cmp #159,R5
895ble L65
896*line 346
897move #-1,R0
898bra L50
899*line 347
900L65:
901*line 348
902move R5,(sp)
903move R7,-(sp)
904move.l R13,-(sp)
905jsr _setoval
906addq.l #6,sp
907*line 349
908jsr _modinst
909*line 350
910clr R0
911bra L50
912*line 351
913L66:
914*line 352
915*line 353
916*line 354
917*line 355
918jsr _cnvp2c
919cmp #-1,R0
920bne L67
921*line 355
922move #-1,R0
923bra L50
924*line 356
925L67:
926*line 357
927move _cents,(sp)
928move R7,-(sp)
929move.l R13,-(sp)
930jsr _setoval
931addq.l #6,sp
932*line 358
933jsr _modinst
934*line 359
935clr R0
936bra L50
937bra L51
938L52:tst R0
939beq L53
940cmp #1,R0
941beq L59
942cmp #2,R0
943beq L60
944cmp #3,R0
945beq L66
946bra L51
947L51:L50:tst.l (sp)+
948movem.l (sp)+,R5-R7/R13-R13
949unlk R14
950rts
951.globl _rd_iosc
952.text
953_rd_iosc:
954~~rd_iosc:
955~nn=8
956link R14,#-4
957movem.l R2-R7/R13-R13,-(sp)
958~ip=R13
959~val=R7
960~ctl=R6
961~fh=R5
962~fl=R4
963~v=R3
964~n=-2
965~ocs=-4
966*line 381
967move 8(R14),R3
968asr #8,R3
969and #3,R3
970*line 382
971move 8(R14),R0
972and #255,R0
973move R0,-2(R14)
974*line 383
975move _curvce,R0
976muls #3938,R0
977move.l R0,R13
978add.l #_vbufs,R13
979*line 385
980move R3,R0
981bra L70
982*line 386
983L71:
984*line 387
985*line 388
986*line 389
987move 78(R13),R7
988*line 390
989move.b 74(R13),R6
990ext.w R6
991bra L69
992*line 391
993*line 392
994L72:
995*line 393
996*line 394
997*line 395
998move 80(R13),R7
999*line 396
1000move.b 75(R13),R6
1001ext.w R6
1002bra L69
1003*line 397
1004*line 398
1005L73:
1006*line 399
1007*line 400
1008*line 401
1009move 82(R13),R7
1010*line 402
1011move.b 76(R13),R6
1012ext.w R6
1013bra L69
1014*line 403
1015*line 404
1016L74:
1017*line 405
1018*line 406
1019*line 407
1020move 84(R13),R7
1021*line 408
1022move.b 77(R13),R6
1023ext.w R6
1024bra L69
1025*line 409
1026bra L69
1027L70:tst R0
1028beq L71
1029cmp #1,R0
1030beq L72
1031cmp #2,R0
1032beq L73
1033cmp #3,R0
1034beq L74
1035bra L69
1036L69:
1037*line 413
1038move R6,R0
1039and #3,R0
1040move R0,_bform
1041*line 414
1042cmp #3,R3
1043bne L10010
1044move #32,R0
1045bra L10012
1046L10010:btst #2,R6
1047beq L10013
1048move #83,R0
1049bra L10015
1050L10013:move #115,R0
1051L10015:L10012:move.b R0,-4(R14)
1052*line 416
1053move _bform,R0
1054bra L76
1055*line 417
1056L77:
1057*line 418
1058*line 419
1059*line 420
1060*line 421
1061*line 422
1062*line 423
1063move.b -4(R14),R0
1064ext.w R0
1065move R0,(sp)
1066tst R7
1067bge L10016
1068move R7,R0
1069neg R0
1070bra L10018
1071L10016:move R7,R0
1072L10018:asr #1,R0
1073move R0,-(sp)
1074tst R7
1075bge L10019
1076move #45,-(sp)
1077bra L10021
1078L10019:move #43,-(sp)
1079L10021:move.l #L78,-(sp)
1080move.l #_dspbuf,-(sp)
1081jsr _sprintf
1082adda.l #12,sp
1083bra L75
1084*line 424
1085*line 425
1086L79:
1087*line 426
1088*line 427
1089*line 428
1090move R7,R0
1091asr #1,R0
1092move R0,(sp)
1093jsr _int2rat
1094*line 429
1095move.b -4(R14),R0
1096ext.w R0
1097move R0,(sp)
1098move.b 2+_ebuf,R0
1099ext.w R0
1100move R0,-(sp)
1101move.b _ebuf,R0
1102ext.w R0
1103move R0,-(sp)
1104move.l #L80,-(sp)
1105move.l #_dspbuf,-(sp)
1106jsr _sprintf
1107adda.l #12,sp
1108bra L75
1109*line 430
1110*line 431
1111L81:
1112*line 432
1113*line 433
1114*line 434
1115move R7,R5
1116asr R5
1117ext.l R5
1118divs #10,R5
1119*line 435
1120move R7,R4
1121asr R4
1122move R5,R0
1123muls #10,R0
1124sub R0,R4
1125*line 436
1126*line 437
1127move.b -4(R14),R0
1128ext.w R0
1129move R0,(sp)
1130move R4,-(sp)
1131move R5,-(sp)
1132move.l #L82,-(sp)
1133move.l #_dspbuf,-(sp)
1134jsr _sprintf
1135adda.l #12,sp
1136bra L75
1137*line 438
1138*line 439
1139L83:
1140*line 440
1141*line 441
1142*line 442
1143move.l #L84,(sp)
1144move.l #_dspbuf,-(sp)
1145jsr _strcpy
1146addq.l #4,sp
1147*line 443
1148move R7,R0
1149asr #1,R0
1150move R0,(sp)
1151move.l #4+_dspbuf,-(sp)
1152jsr _cnvc2p
1153addq.l #4,sp
1154*line 444
1155add.b #48,4+_dspbuf
1156*line 445
1157add.b #65,5+_dspbuf
1158*line 446
1159move.b 6+_dspbuf,R0
1160ext.w R0
1161ext.l R0
1162add.l #_sfdsp,R0
1163move.l R0,R8
1164move.b -7(R8),6+_dspbuf
1165*line 447
1166add.b #48,7+_dspbuf
1167*line 448
1168add.b #48,8+_dspbuf
1169*line 449
1170move.b #32,9+_dspbuf
1171*line 450
1172move.b -4(R14),10+_dspbuf
1173*line 451
1174clr.b 11+_dspbuf
1175bra L75
1176*line 452
1177bra L75
1178L76:tst R0
1179beq L77
1180cmp #1,R0
1181beq L79
1182cmp #2,R0
1183beq L81
1184cmp #3,R0
1185beq L83
1186bra L75
1187L75:
1188*line 455
1189*line 456
1190clr R0
1191move 10+_v_regs,R0
1192and #384,R0
1193beq L85
1194*line 456
1195clr (sp)
1196jsr _vbank
1197*line 457
1198L85:
1199*line 458
1200move #14,(sp)
1201move.l #_dspbuf,-(sp)
1202move #36,-(sp)
1203move R3,-(sp)
1204add #18,(sp)
1205move -2(R14),R0
1206asl #4,R0
1207ext.l R0
1208move.l R0,R8
1209move.l #_idbox,R9
1210move 10(R8,R9.l),-(sp)
1211move -2(R14),R0
1212asl #4,R0
1213ext.l R0
1214move.l R0,R8
1215move.l #_idbox,R9
1216move 8(R8,R9.l),-(sp)
1217move #64,-(sp)
1218move.l _instob,-(sp)
1219jsr _vcputsv
1220adda.l #18,sp
1221*line 460
1222clr R0
1223bra L68
1224L68:tst.l (sp)+
1225movem.l (sp)+,R3-R7/R13-R13
1226unlk R14
1227rts
1228.globl _setoscb
1229.text
1230_setoscb:
1231~~setoscb:
1232~n=8
1233~v=10
1234link R14,#0
1235movem.l R3-R7/R13-R13,-(sp)
1236~ip=R13
1237~bfm=R7
1238~ctl=R6
1239~val=R5
1240~ocs=R4
1241*line 479
1242move _curvce,R0
1243muls #3938,R0
1244move.l R0,R13
1245add.l #_vbufs,R13
1246*line 481
1247move 10(R14),R0
1248bra L88
1249*line 482
1250L89:
1251*line 483
1252*line 484
1253*line 485
1254move.b 74(R13),R6
1255ext.w R6
1256*line 486
1257move 78(R13),R5
1258bra L87
1259*line 487
1260*line 488
1261L90:
1262*line 489
1263*line 490
1264*line 491
1265move.b 75(R13),R6
1266ext.w R6
1267*line 492
1268move 80(R13),R5
1269bra L87
1270*line 493
1271*line 494
1272L91:
1273*line 495
1274*line 496
1275*line 497
1276move.b 76(R13),R6
1277ext.w R6
1278*line 498
1279move 82(R13),R5
1280bra L87
1281*line 499
1282*line 500
1283L92:
1284*line 501
1285*line 502
1286*line 503
1287move.b 77(R13),R6
1288ext.w R6
1289*line 504
1290move 84(R13),R5
1291bra L87
1292*line 505
1293bra L87
1294L88:tst R0
1295beq L89
1296cmp #1,R0
1297beq L90
1298cmp #2,R0
1299beq L91
1300cmp #3,R0
1301beq L92
1302bra L87
1303L87:
1304*line 508
1305cmp #3,10(R14)
1306bne L10022
1307move #32,R0
1308bra L10024
1309L10022:btst #2,R6
1310beq L10025
1311move #83,R0
1312bra L10027
1313L10025:move #115,R0
1314L10027:L10024:move.b R0,R4
1315*line 510
1316move R6,R7
1317and #3,R7
1318*line 513
1319move _bform,R0
1320bra L94
1321*line 514
1322L95:
1323*line 515
1324*line 516
1325*line 517
1326*line 517
1327cmp #1,R7
1328beq L10028
1329tst R7
1330bne L96
1331L10028:*line 518
1332*line 519
1333*line 520
1334tst R5
1335bge L10029
1336move #45,(sp)
1337bra L10031
1338L10029:move #43,(sp)
1339L10031:tst R5
1340bge L10032
1341move R5,R0
1342neg R0
1343bra L10034
1344L10032:move R5,R0
1345L10034:asr #1,R0
1346move R0,-(sp)
1347move.l #L97,-(sp)
1348move.l #_ebuf,-(sp)
1349jsr _sprintf
1350adda.l #10,sp
1351*line 521
1352*line 522
1353*line 523
1354*line 524
1355*line 525
1356move.b R4,R0
1357ext.w R0
1358move R0,(sp)
1359tst R5
1360bge L10035
1361move R5,R0
1362neg R0
1363bra L10037
1364L10035:move R5,R0
1365L10037:asr #1,R0
1366move R0,-(sp)
1367tst R5
1368bge L10038
1369move #45,-(sp)
1370bra L10040
1371L10038:move #43,-(sp)
1372L10040:move.l #L98,-(sp)
1373move.l #_dspbuf,-(sp)
1374jsr _sprintf
1375adda.l #12,sp
1376*line 526
1377bra L99
1378L96:
1379*line 527
1380*line 528
1381*line 529
1382move.l #L100,(sp)
1383move.l #_ebuf,-(sp)
1384jsr _strcpy
1385addq.l #4,sp
1386*line 530
1387move.b R4,R0
1388ext.w R0
1389move R0,(sp)
1390move.l #L1,-(sp)
1391move.l #L101,-(sp)
1392move.l #_dspbuf,-(sp)
1393jsr _sprintf
1394adda.l #12,sp
1395L99:
1396*line 531
1397*line 532
1398bra L93
1399*line 533
1400*line 534
1401L102:
1402*line 535
1403*line 536
1404*line 537
1405*line 537
1406cmp #1,R7
1407bne L103
1408*line 538
1409*line 539
1410move R5,R0
1411asr #1,R0
1412move R0,(sp)
1413jsr _int2rat
1414*line 540
1415*line 541
1416*line 542
1417move.b R4,R0
1418ext.w R0
1419move R0,(sp)
1420move.b 2+_ebuf,R0
1421ext.w R0
1422move R0,-(sp)
1423move.b _ebuf,R0
1424ext.w R0
1425move R0,-(sp)
1426move.l #L104,-(sp)
1427move.l #_dspbuf,-(sp)
1428jsr _sprintf
1429adda.l #12,sp
1430*line 543
1431bra L105
1432L103:
1433*line 544
1434*line 545
1435*line 546
1436move.l #L3,(sp)
1437move.l #_ebuf,-(sp)
1438jsr _strcpy
1439addq.l #4,sp
1440*line 547
1441move.b R4,R0
1442ext.w R0
1443move R0,(sp)
1444move.l #L3,-(sp)
1445move.l #L106,-(sp)
1446move.l #_dspbuf,-(sp)
1447jsr _sprintf
1448adda.l #12,sp
1449L105:
1450*line 548
1451*line 549
1452bra L93
1453*line 550
1454*line 551
1455*line 552
1456L107:
1457*line 553
1458*line 554
1459*line 555
1460move.l #L5,(sp)
1461move.l #_ebuf,-(sp)
1462jsr _strcpy
1463addq.l #4,sp
1464*line 556
1465move.b R4,R0
1466ext.w R0
1467move R0,(sp)
1468move.l #L5,-(sp)
1469move.l #L108,-(sp)
1470move.l #_dspbuf,-(sp)
1471jsr _sprintf
1472adda.l #12,sp
1473bra L93
1474*line 557
1475*line 558
1476L109:
1477*line 559
1478*line 560
1479*line 561
1480clr.b _ebuf
1481*line 562
1482move.b #2,1+_ebuf
1483*line 563
1484move.b #7,2+_ebuf
1485*line 564
1486clr.b 3+_ebuf
1487*line 565
1488clr.b 4+_ebuf
1489*line 566
1490*line 567
1491move.b R4,R0
1492ext.w R0
1493move R0,(sp)
1494move.l #L7,-(sp)
1495move.l #L110,-(sp)
1496move.l #_dspbuf,-(sp)
1497jsr _sprintf
1498adda.l #12,sp
1499bra L93
1500*line 568
1501bra L93
1502L94:tst R0
1503beq L95
1504cmp #1,R0
1505beq L102
1506cmp #2,R0
1507beq L107
1508cmp #3,R0
1509beq L109
1510bra L93
1511L93:
1512*line 571
1513move #1,_ebflag
1514*line 573
1515*line 574
1516clr R0
1517move 10+_v_regs,R0
1518and #384,R0
1519beq L111
1520*line 574
1521clr (sp)
1522jsr _vbank
1523*line 575
1524L111:
1525*line 576
1526*line 577
1527move #14,(sp)
1528move.l #_dspbuf,-(sp)
1529move #36,-(sp)
1530move _stcrow,-(sp)
1531move 8(R14),R0
1532asl #4,R0
1533ext.l R0
1534move.l R0,R8
1535move.l #_idbox,R9
1536move 10(R8,R9.l),-(sp)
1537move #10,-(sp)
1538move #64,-(sp)
1539move.l _instob,-(sp)
1540jsr _vcputsv
1541adda.l #18,sp
1542L86:tst.l (sp)+
1543movem.l (sp)+,R4-R7/R13-R13
1544unlk R14
1545rts
1546.globl _setosyn
1547.text
1548_setosyn:
1549~~setosyn:
1550~n=8
1551~v=10
1552~t=12
1553link R14,#0
1554movem.l R7-R7/R12-R13,-(sp)
1555~ip=R13
1556~sc=R12
1557*line 595
1558move _curvce,R0
1559muls #3938,R0
1560move.l R0,R13
1561add.l #_vbufs,R13
1562*line 597
1563*line 598
1564cmp #21,_stcrow
1565beq L112
1566*line 599
1567*line 600
1568tst 12(R14)
1569beq L10041
1570move.l #L113,R0
1571bra L10043
1572L10041:move.l #L114,R0
1573L10043:move.l R0,R12
1574*line 602
1575move 10(R14),R0
1576bra L116
1577*line 603
1578L117:
1579*line 604
1580*line 605
1581*line 606
1582move.b 74(R13),R0
1583ext.w R0
1584and #-5,R0
1585tst 12(R14)
1586beq L10044
1587move #4,R1
1588bra L10046
1589L10044:clr R1
1590L10046:or R1,R0
1591move.b R0,74(R13)
1592bra L115
1593*line 607
1594*line 608
1595L118:
1596*line 609
1597*line 610
1598*line 611
1599move.b 75(R13),R0
1600ext.w R0
1601and #-5,R0
1602tst 12(R14)
1603beq L10047
1604move #4,R1
1605bra L10049
1606L10047:clr R1
1607L10049:or R1,R0
1608move.b R0,75(R13)
1609bra L115
1610*line 612
1611*line 613
1612L119:
1613*line 614
1614*line 615
1615*line 616
1616move.b 76(R13),R0
1617ext.w R0
1618and #-5,R0
1619tst 12(R14)
1620beq L10050
1621move #4,R1
1622bra L10052
1623L10050:clr R1
1624L10052:or R1,R0
1625move.b R0,76(R13)
1626bra L115
1627*line 617
1628*line 618
1629L120:
1630*line 619
1631*line 620
1632bra L112
1633*line 621
1634bra L115
1635L116:tst R0
1636beq L117
1637cmp #1,R0
1638beq L118
1639cmp #2,R0
1640beq L119
1641cmp #3,R0
1642beq L120
1643bra L115
1644L115:
1645*line 624
1646move _curvce,(sp)
1647jsr _dosync
1648*line 626
1649*line 627
1650clr R0
1651move 10+_v_regs,R0
1652and #384,R0
1653beq L121
1654*line 627
1655clr (sp)
1656jsr _vbank
1657*line 628
1658L121:
1659*line 629
1660move #14,(sp)
1661move.l R12,-(sp)
1662move _stccol,-(sp)
1663move _stcrow,-(sp)
1664move 8(R14),R0
1665asl #4,R0
1666ext.l R0
1667move.l R0,R8
1668move.l #_idbox,R9
1669move 10(R8,R9.l),-(sp)
1670move 8(R14),R0
1671asl #4,R0
1672ext.l R0
1673move.l R0,R8
1674move.l #_idbox,R9
1675move 8(R8,R9.l),-(sp)
1676move #64,-(sp)
1677move.l _instob,-(sp)
1678jsr _vcputsv
1679adda.l #18,sp
1680*line 630
1681jsr _modinst
1682L112:tst.l (sp)+
1683movem.l (sp)+,R12-R13
1684unlk R14
1685rts
1686.globl _nd_iosc
1687.text
1688_nd_iosc:
1689~~nd_iosc:
1690~nn=8
1691~k=10
1692link R14,#0
1693movem.l R5-R7,-(sp)
1694~v=R7
1695~n=R6
1696*line 648
1697move 8(R14),R6
1698and #255,R6
1699*line 649
1700move 8(R14),R7
1701asr #8,R7
1702and #3,R7
1703*line 651
1704*line 651
1705cmp #39,_stccol
1706bge L123
1707*line 652
1708*line 653
1709*line 653
1710cmp #8,10(R14)
1711bne L124
1712*line 654
1713*line 655
1714*line 656
1715sub #1,_bform
1716bge L125
1717*line 656
1718move #3,_bform
1719*line 657
1720L125:
1721*line 658
1722move R7,(sp)
1723move R6,-(sp)
1724jsr _setoscb
1725addq.l #2,sp
1726*line 659
1727clr R0
1728bra L122
1729*line 660
1730bra L126
1731L124:
1732*line 661
1733*line 661
1734cmp #9,10(R14)
1735bne L127
1736*line 662
1737*line 663
1738*line 664
1739add #1,_bform
1740move _bform,R0
1741cmp #3,R0
1742ble L128
1743*line 664
1744clr _bform
1745*line 665
1746L128:
1747*line 666
1748move R7,(sp)
1749move R6,-(sp)
1750jsr _setoscb
1751addq.l #2,sp
1752*line 667
1753clr R0
1754bra L122
1755*line 668
1756*line 669
1757bra L129
1758L127:
1759*line 670
1760move #-1,R0
1761bra L122
1762L129:L126:
1763*line 671
1764*line 672
1765bra L130
1766L123:
1767*line 673
1768*line 673
1769cmp #46,_stccol
1770bne L131
1771*line 674
1772*line 675
1773*line 676
1774cmp #21,_stcrow
1775bne L132
1776*line 676
1777move #-1,R0
1778bra L122
1779*line 677
1780L132:
1781*line 678
1782*line 678
1783cmp #8,10(R14)
1784bne L133
1785*line 679
1786*line 680
1787clr (sp)
1788move R7,-(sp)
1789move R6,-(sp)
1790jsr _setosyn
1791addq.l #4,sp
1792*line 681
1793clr R0
1794bra L122
1795*line 682
1796bra L134
1797L133:
1798*line 683
1799*line 683
1800cmp #9,10(R14)
1801bne L135
1802*line 684
1803*line 685
1804move #1,(sp)
1805move R7,-(sp)
1806move R6,-(sp)
1807jsr _setosyn
1808addq.l #4,sp
1809*line 686
1810clr R0
1811bra L122
1812*line 687
1813*line 688
1814bra L136
1815L135:
1816*line 689
1817move #-1,R0
1818bra L122
1819L136:L134:
1820*line 690
1821*line 691
1822*line 692
1823bra L137
1824L131:
1825*line 693
1826*line 693
1827cmp #40,_stccol
1828blt L138
1829cmp #44,_stccol
1830bgt L138
1831*line 694
1832*line 695
1833move _bform,R0
1834bra L140
1835*line 696
1836L141:
1837*line 697
1838*line 698
1839*line 699
1840*line 699
1841cmp #40,_stccol
1842bne L142
1843*line 700
1844*line 701
1845*line 701
1846cmp #8,10(R14)
1847bne L143
1848*line 702
1849*line 703
1850move #45,10(R14)
1851*line 704
1852move.b #45,4+_ebuf
1853*line 705
1854bra L144
1855L143:
1856*line 706
1857*line 706
1858cmp #9,10(R14)
1859bne L145
1860*line 707
1861*line 708
1862move #43,10(R14)
1863*line 709
1864move.b #43,4+_ebuf
1865*line 710
1866*line 711
1867bra L146
1868L145:
1869*line 712
1870move #-1,R0
1871bra L122
1872L146:L144:
1873*line 713
1874bra L147
1875L142:
1876*line 714
1877*line 715
1878*line 716
1879move 10(R14),R0
1880add #48,R0
1881move _stccol,R9
1882add.l #_ebuf,R9
1883move.b R0,-41(R9)
1884L147:
1885*line 717
1886*line 718
1887*line 719
1888cmp #9,10(R14)
1889ble L10053
1890move 10(R14),R0
1891bra L10055
1892L10053:move 10(R14),R0
1893add #48,R0
1894L10055:move.b R0,_dspbuf
1895*line 720
1896clr.b 1+_dspbuf
1897*line 721
1898*line 722
1899*line 723
1900clr R0
1901move 10+_v_regs,R0
1902and #384,R0
1903beq L148
1904*line 723
1905clr (sp)
1906jsr _vbank
1907*line 724
1908L148:
1909*line 725
1910*line 726
1911move #14,(sp)
1912move.l #_dspbuf,-(sp)
1913move _stccol,-(sp)
1914move _stcrow,-(sp)
1915move R6,R0
1916asl #4,R0
1917ext.l R0
1918move.l R0,R8
1919move.l #_idbox,R9
1920move 10(R8,R9.l),-(sp)
1921move #10,-(sp)
1922move #64,-(sp)
1923move.l _instob,-(sp)
1924jsr _vcputsv
1925adda.l #18,sp
1926*line 727
1927*line 728
1928*line 729
1929cmp #44,_stccol
1930bne L149
1931*line 729
1932clr R0
1933bra L122
1934*line 730
1935L149:
1936*line 731
1937jsr _advicur
1938*line 732
1939clr R0
1940bra L122
1941*line 733
1942*line 734
1943L150:
1944*line 735
1945*line 736
1946*line 737
1947*line 737
1948cmp #40,_stccol
1949bne L151
1950*line 738
1951*line 739
1952*line 739
1953tst 10(R14)
1954beq L152
1955*line 740
1956*line 741
1957move 10(R14),R0
1958add #48,R0
1959move.b R0,_dspbuf
1960move.b R0,_ebuf
1961*line 742
1962clr.b 1+_dspbuf
1963*line 743
1964*line 744
1965*line 745
1966clr R0
1967move 10+_v_regs,R0
1968and #384,R0
1969beq L153
1970*line 745
1971clr (sp)
1972jsr _vbank
1973*line 746
1974L153:
1975*line 747
1976*line 748
1977move #14,(sp)
1978move.l #_dspbuf,-(sp)
1979move _stccol,-(sp)
1980move _stcrow,-(sp)
1981move R6,R0
1982asl #4,R0
1983ext.l R0
1984move.l R0,R8
1985move.l #_idbox,R9
1986move 10(R8,R9.l),-(sp)
1987move #10,-(sp)
1988move #64,-(sp)
1989move.l _instob,-(sp)
1990jsr _vcputsv
1991adda.l #18,sp
1992*line 749
1993*line 750
1994jsr _advicur
1995*line 751
1996jsr _advicur
1997*line 752
1998*line 753
1999clr R0
2000bra L122
2001*line 754
2002*line 755
2003bra L154
2004L152:
2005*line 756
2006move #-1,R0
2007bra L122
2008L154:
2009*line 757
2010bra L155
2011L151:
2012*line 758
2013*line 758
2014cmp #42,_stccol
2015bne L156
2016*line 759
2017*line 760
2018*line 760
2019tst 10(R14)
2020beq L157
2021*line 761
2022*line 762
2023move 10(R14),R0
2024add #48,R0
2025move.b R0,_dspbuf
2026move.b R0,2+_ebuf
2027*line 763
2028clr.b 1+_dspbuf
2029*line 764
2030*line 765
2031*line 766
2032clr R0
2033move 10+_v_regs,R0
2034and #384,R0
2035beq L158
2036*line 766
2037clr (sp)
2038jsr _vbank
2039*line 767
2040L158:
2041*line 768
2042*line 769
2043move #14,(sp)
2044move.l #_dspbuf,-(sp)
2045move _stccol,-(sp)
2046move _stcrow,-(sp)
2047move R6,R0
2048asl #4,R0
2049ext.l R0
2050move.l R0,R8
2051move.l #_idbox,R9
2052move 10(R8,R9.l),-(sp)
2053move #10,-(sp)
2054move #64,-(sp)
2055move.l _instob,-(sp)
2056jsr _vcputsv
2057adda.l #18,sp
2058*line 770
2059*line 771
2060clr R0
2061bra L122
2062*line 772
2063*line 773
2064bra L159
2065L157:
2066*line 774
2067move #-1,R0
2068bra L122
2069L159:bra L160
2070L156:
2071*line 775
2072*line 776
2073*line 777
2074move #-1,R0
2075bra L122
2076L160:L155:
2077*line 778
2078*line 779
2079*line 780
2080L161:
2081*line 781
2082*line 782
2083*line 783
2084*line 784
2085cmp #42,_stccol
2086bne L162
2087*line 784
2088move #-1,R0
2089bra L122
2090*line 785
2091L162:
2092*line 786
2093move 10(R14),R0
2094add #48,R0
2095move _stccol,R9
2096add.l #_ebuf,R9
2097move.b R0,-40(R9)
2098*line 787
2099move 10(R14),R0
2100add #48,R0
2101move.b R0,_dspbuf
2102*line 788
2103clr.b 1+_dspbuf
2104*line 789
2105*line 790
2106*line 791
2107clr R0
2108move 10+_v_regs,R0
2109and #384,R0
2110beq L163
2111*line 791
2112clr (sp)
2113jsr _vbank
2114*line 792
2115L163:
2116*line 793
2117*line 794
2118move #14,(sp)
2119move.l #_dspbuf,-(sp)
2120move _stccol,-(sp)
2121move _stcrow,-(sp)
2122move R6,R0
2123asl #4,R0
2124ext.l R0
2125move.l R0,R8
2126move.l #_idbox,R9
2127move 10(R8,R9.l),-(sp)
2128move #10,-(sp)
2129move #64,-(sp)
2130move.l _instob,-(sp)
2131jsr _vcputsv
2132adda.l #18,sp
2133*line 795
2134*line 796
2135*line 797
2136cmp #44,_stccol
2137bne L164
2138*line 797
2139clr R0
2140bra L122
2141*line 798
2142L164:
2143*line 799
2144jsr _advicur
2145*line 800
2146*line 801
2147*line 802
2148cmp #42,_stccol
2149bne L165
2150*line 802
2151jsr _advicur
2152*line 803
2153L165:
2154*line 804
2155clr R0
2156bra L122
2157*line 805
2158*line 806
2159L166:
2160*line 807
2161*line 808
2162*line 809
2163move _stccol,R0
2164bra L168
2165*line 810
2166L169:
2167*line 811
2168*line 812
2169*line 813
2170move 10(R14),R0
2171move.b R0,_ebuf
2172*line 814
2173move 10(R14),R0
2174add #48,R0
2175move.b R0,_dspbuf
2176bra L167
2177*line 815
2178*line 816
2179L170:
2180*line 817
2181*line 818
2182*line 819
2183*line 820
2184cmp #6,10(R14)
2185ble L171
2186*line 820
2187move #-1,R0
2188bra L122
2189*line 821
2190L171:
2191*line 822
2192move 10(R14),R0
2193move.b R0,1+_ebuf
2194*line 823
2195move 10(R14),R0
2196add #65,R0
2197move.b R0,_dspbuf
2198bra L167
2199*line 824
2200*line 825
2201L172:
2202*line 826
2203*line 827
2204*line 828
2205*line 828
2206cmp #7,10(R14)
2207bne L173
2208*line 829
2209*line 830
2210move 10(R14),R0
2211move.b R0,2+_ebuf
2212*line 831
2213move.b _sfdsp,_dspbuf
2214bra L167
2215*line 832
2216*line 833
2217bra L174
2218L173:
2219*line 834
2220*line 834
2221cmp #8,10(R14)
2222bne L175
2223*line 835
2224*line 836
2225move 10(R14),R0
2226move.b R0,2+_ebuf
2227*line 837
2228move.b 1+_sfdsp,_dspbuf
2229bra L167
2230*line 838
2231*line 839
2232bra L176
2233L175:
2234*line 840
2235*line 840
2236cmp #9,10(R14)
2237bne L177
2238*line 841
2239*line 842
2240move 10(R14),R0
2241move.b R0,2+_ebuf
2242*line 843
2243move.b 2+_sfdsp,_dspbuf
2244bra L167
2245*line 844
2246*line 845
2247*line 846
2248bra L178
2249L177:
2250*line 847
2251move #-1,R0
2252bra L122
2253L178:L176:L174:L179:
2254*line 848
2255L180:
2256*line 849
2257*line 850
2258*line 851
2259move 10(R14),R0
2260move _stccol,R9
2261add.l #_ebuf,R9
2262move.b R0,-40(R9)
2263*line 852
2264move 10(R14),R0
2265add #48,R0
2266move.b R0,_dspbuf
2267bra L167
2268*line 853
2269bra L167
2270L168:sub #40,R0
2271cmp #4,R0
2272bhi L167
2273asl #2,R0
2274move R0,R8
2275add.l #L181,R8
2276move.l (R8),R8
2277jmp (R8)
2278.data
2279L181:.dc.l L169
2280.dc.l L170
2281.dc.l L172
2282.dc.l L179
2283.dc.l L180
2284.text
2285L167:
2286*line 854
2287*line 855
2288*line 856
2289*line 857
2290*line 858
2291clr.b 1+_dspbuf
2292*line 859
2293*line 860
2294*line 861
2295clr R0
2296move 10+_v_regs,R0
2297and #384,R0
2298beq L182
2299*line 861
2300clr (sp)
2301jsr _vbank
2302*line 862
2303L182:
2304*line 863
2305*line 864
2306move #14,(sp)
2307move.l #_dspbuf,-(sp)
2308move _stccol,-(sp)
2309move _stcrow,-(sp)
2310move R6,R0
2311asl #4,R0
2312ext.l R0
2313move.l R0,R8
2314move.l #_idbox,R9
2315move 10(R8,R9.l),-(sp)
2316move #10,-(sp)
2317move #64,-(sp)
2318move.l _instob,-(sp)
2319jsr _vcputsv
2320adda.l #18,sp
2321*line 865
2322*line 866
2323*line 867
2324cmp #44,_stccol
2325bne L183
2326*line 867
2327clr R0
2328bra L122
2329*line 868
2330L183:
2331*line 869
2332jsr _advicur
2333*line 870
2334clr R0
2335bra L122
2336bra L139
2337L140:tst R0
2338beq L141
2339cmp #1,R0
2340beq L150
2341cmp #2,R0
2342beq L161
2343cmp #3,R0
2344beq L166
2345bra L139
2346L139:
2347*line 871
2348*line 872
2349bra L184
2350L138:
2351*line 873
2352*line 874
2353*line 875
2354move #-1,R0
2355bra L122
2356L184:L137:L130:L122:tst.l (sp)+
2357movem.l (sp)+,R6-R7
2358unlk R14
2359rts
2360.data
2361L38:.dc.b $25,$30,$34,$64,$25,$63,$0
2362L41:.dc.b $25,$30,$32,$64,$2E,$25,$64,$0
2363L78:.dc.b $49,$6E,$74,$20,$25,$63,$25,$30,$34,$64,$20,$25,$63,$0
2364L80:.dc.b $52,$61,$74,$20,$25,$63,$2F,$25,$63,$20,$20,$20,$25,$63,$0
2365L82:.dc.b $46,$72,$71,$20,$25,$30,$32,$64,$2E,$25,$64,$20,$20,$25,$63,$0
2366L84:.dc.b $50,$63,$68,$20,$0
2367L97:.dc.b $25,$30,$34,$64,$25,$63,$0
2368L98:.dc.b $49,$6E,$74,$20,$25,$63,$25,$30,$34,$64,$20,$25,$63,$0
2369L100:.dc.b $30,$30,$30,$30,$2B,$0
2370L101:.dc.b $49,$6E,$74,$20,$25,$73,$20,$25,$63,$0
2371L104:.dc.b $52,$61,$74,$20,$25,$63,$2F,$25,$63,$20,$20,$20,$25,$63,$0
2372L106:.dc.b $52,$61,$74,$20,$25,$73,$20,$20,$20,$25,$63,$0
2373L108:.dc.b $46,$72,$71,$20,$25,$73,$20,$20,$25,$63,$0
2374L110:.dc.b $50,$63,$68,$20,$25,$73,$20,$25,$63,$0
2375L113:.dc.b $53,$0
2376L114:.dc.b $73,$0
Note: See TracBrowser for help on using the repository browser.