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