source: buchla-68k/alcyon/asgdsp.s@ 0170798

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

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 46.9 KB
RevLine 
[7bf3856]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 _stcrow
48.globl _stccol
49.globl _cxval
50.globl _cyval
51.globl _curtun
52.globl _tunmod
53.globl _obj0
54.globl _obj2
55.globl _bfs
56.globl _adbxlb
57.globl _caname
58.globl _adbox
59.globl _admctl
60.globl _adnamsw
61.globl _asgfks
62.globl _asghit
63.globl _asgmod
64.globl _auxctl
65.globl _curasg
66.globl _curmop
67.globl _curvce
68.globl _prgchan
69.globl _ps_dpth
70.globl _ps_intn
71.globl _ps_rate
72.globl _submenu
73.globl _grpdyn
74.globl _ins2grp
75.globl _mctlnum
76.globl _s_inst
77.globl _vce2grp
78.globl _grp2prt
79.globl _key2grp
80.globl _asgtab
81.globl _asgob
82.globl _adoct
83.globl _gprep
84.data
85_gprep:
86*line 115
87.dc.l L1
88*line 115
89.dc.l L2
90*line 115
91.dc.l L3
92*line 115
93.dc.l L4
94.globl _asgsrc
95.data
96_asgsrc:
97*line 119
98.dc.l L5
99*line 120
100.dc.l L6
101*line 121
102.dc.l L7
103*line 122
104.dc.l L8
105*line 123
106.dc.l L9
107*line 125
108.dc.l L10
109.globl _asgkble
110.data
111_asgkble:
112.dc.w $1
113.dc.w $6
114.dc.w $B
115.dc.w $11
116.dc.w $16
117.dc.w $1B
118.dc.w $20
119.dc.w $25
120.dc.w $2B
121.dc.w $30
122.dc.w $35
123.dc.w $3A
124.dc.w $3F
125.dc.w $44
126.dc.w $49
127.dc.w $4F
128.dc.w $54
129.dc.w $59
130.dc.w $5E
131.dc.w $63
132.dc.w $69
133.dc.w $6E
134.dc.w $73
135.dc.w $78
136.dc.w $7D
137.dc.w $82
138.dc.w $87
139.dc.w $8D
140.dc.w $92
141.dc.w $97
142.dc.w $9C
143.dc.w $A1
144.dc.w $A7
145.dc.w $AC
146.dc.w $B1
147.dc.w $B6
148.dc.w $BB
149.dc.w $C0
150.dc.w $C5
151.dc.w $CB
152.dc.w $D0
153.dc.w $D5
154.dc.w $DA
155.dc.w $DF
156.dc.w $E5
157.dc.w $EA
158.dc.w $EF
159.dc.w $F4
160.dc.w $F9
161.dc.w $FE
162.dc.w $103
163.dc.w $109
164.dc.w $10E
165.dc.w $113
166.dc.w $118
167.dc.w $11D
168.dc.w $123
169.dc.w $128
170.dc.w $12D
171.dc.w $132
172.dc.w $137
173.dc.w $13C
174.dc.w $141
175.dc.w $147
176.dc.w $14C
177.dc.w $151
178.dc.w $156
179.dc.w $15B
180.dc.w $161
181.dc.w $166
182.dc.w $16B
183.dc.w $170
184.dc.w $175
185.dc.w $17A
186.dc.w $17F
187.dc.w $185
188.dc.w $18A
189.dc.w $18F
190.dc.w $194
191.dc.w $199
192.dc.w $19F
193.dc.w $1A4
194.dc.w $1A9
195.dc.w $1AE
196.dc.w $1B3
197.dc.w $1B8
198.dc.w $1BD
199.dc.w $1C3
200.globl _asgkbtp
201.data
202_asgkbtp:
203.dc.w $FFF0
204.dc.w $FF
205.dc.w $F000
206.dc.w $FFFF
207.dc.w $FFF0
208.dc.w $FF
209.dc.w $F000
210.dc.w $FFFF
211.dc.w $0
212.dc.w $FFF0
213.dc.w $F0FF
214.dc.w $FFFF
215.dc.w $0
216.dc.w $FFF0
217.dc.w $FF
218.dc.w $F000
219.dc.w $FFFF
220.dc.w $0
221.dc.w $FFF0
222.dc.w $F0FF
223.dc.w $FFFF
224.dc.w $0
225.dc.w $FFF0
226.dc.w $FF
227.dc.w $F000
228.dc.w $FFFF
229.dc.w $FFF0
230.dc.w $FF
231.dc.w $F000
232.dc.w $FFFF
233.dc.w $0
234.dc.w $FFF0
235.dc.w $FF
236.dc.w $F000
237.dc.w $FFFF
238.dc.w $FFF0
239.dc.w $FF
240.dc.w $F000
241.dc.w $FFFF
242.dc.w $0
243.dc.w $FFF0
244.dc.w $F0FF
245.dc.w $FFFF
246.dc.w $0
247.dc.w $FFF0
248.dc.w $FF
249.dc.w $F000
250.dc.w $FFFF
251.dc.w $0
252.dc.w $FFF0
253.dc.w $F0FF
254.dc.w $FFFF
255.dc.w $0
256.dc.w $FFF0
257.dc.w $FF
258.dc.w $F000
259.dc.w $FFFF
260.dc.w $FFF0
261.dc.w $FF
262.dc.w $F000
263.dc.w $FFFF
264.dc.w $0
265.dc.w $FFF0
266.dc.w $FF
267.dc.w $F000
268.dc.w $FFFF
269.dc.w $FFF0
270.dc.w $FF
271.dc.w $F000
272.dc.w $FFFF
273.dc.w $0
274.dc.w $FFF0
275.dc.w $F0FF
276.dc.w $FFFF
277.dc.w $0
278.dc.w $FFF0
279.dc.w $FF
280.dc.w $F000
281.dc.w $FFFF
282.dc.w $0
283.dc.w $FFF0
284.dc.w $F0FF
285.dc.w $FFFF
286.dc.w $0
287.dc.w $FFF0
288.dc.w $FF
289.dc.w $F000
290.dc.w $FFFF
291.dc.w $FFF0
292.dc.w $FF
293.dc.w $F000
294.dc.w $FFFF
295.dc.w $0
296.dc.w $FFF0
297.dc.w $FF
298.dc.w $F000
299.dc.w $FFFF
300.dc.w $FFF0
301.dc.w $FF
302.dc.w $F000
303.dc.w $FFFF
304.dc.w $0
305.dc.w $FFF0
306.dc.w $F0FF
307.dc.w $FFFF
308.dc.w $0
309.dc.w $FFF0
310.dc.w $FF
311.dc.w $F000
312.dc.w $FFFF
313.dc.w $0
314.dc.w $FFF0
315.dc.w $F0FF
316.dc.w $FFFF
317.dc.w $FFF
318.globl _asgkbbt
319.data
320_asgkbbt:
321.dc.w $FFF0
322.dc.w $FFFF
323.dc.w $FFF0
324.dc.w $FFFF
325.dc.w $FFF0
326.dc.w $FFFF
327.dc.w $FFF0
328.dc.w $FFFF
329.dc.w $FF0F
330.dc.w $FFFF
331.dc.w $F0FF
332.dc.w $FFFF
333.dc.w $FFF
334.dc.w $FFFF
335.dc.w $FFFF
336.dc.w $FFF0
337.dc.w $FFFF
338.dc.w $FF0F
339.dc.w $FFFF
340.dc.w $F0FF
341.dc.w $FFFF
342.dc.w $FFF
343.dc.w $FFFF
344.dc.w $FFF
345.dc.w $FFFF
346.dc.w $FFFF
347.dc.w $FFF0
348.dc.w $FFFF
349.dc.w $FF0F
350.dc.w $FFFF
351.dc.w $F0FF
352.dc.w $FFFF
353.dc.w $FFF
354.dc.w $FFFF
355.dc.w $FFFF
356.dc.w $FFF0
357.dc.w $FFFF
358.dc.w $FF0F
359.dc.w $FFFF
360.dc.w $FF0F
361.dc.w $FFFF
362.dc.w $F0FF
363.dc.w $FFFF
364.dc.w $FFF
365.dc.w $FFFF
366.dc.w $FFFF
367.dc.w $FFF0
368.dc.w $FFFF
369.dc.w $FF0F
370.dc.w $FFFF
371.dc.w $F0FF
372.dc.w $FFFF
373.dc.w $FFF
374.dc.w $FFFF
375.dc.w $FFF
376.dc.w $FFFF
377.dc.w $FFFF
378.dc.w $FFF0
379.dc.w $FFFF
380.dc.w $FF0F
381.dc.w $FFFF
382.dc.w $F0FF
383.dc.w $FFFF
384.dc.w $FFF
385.dc.w $FFFF
386.dc.w $FFFF
387.dc.w $FFF0
388.dc.w $FFFF
389.dc.w $FF0F
390.dc.w $FFFF
391.dc.w $FF0F
392.dc.w $FFFF
393.dc.w $F0FF
394.dc.w $FFFF
395.dc.w $FFF
396.dc.w $FFFF
397.dc.w $FFFF
398.dc.w $FFF0
399.dc.w $FFFF
400.dc.w $FF0F
401.dc.w $FFFF
402.dc.w $F0FF
403.dc.w $FFFF
404.dc.w $FFF
405.dc.w $FFFF
406.dc.w $FFF
407.dc.w $FFFF
408.dc.w $FFFF
409.dc.w $FFF0
410.dc.w $FFFF
411.dc.w $FF0F
412.dc.w $FFFF
413.dc.w $F0FF
414.dc.w $FFFF
415.dc.w $FFF
416.dc.w $FFFF
417.dc.w $FFFF
418.dc.w $FFF0
419.dc.w $FFFF
420.dc.w $FF0F
421.dc.w $FFFF
422.dc.w $FF0F
423.dc.w $FFFF
424.dc.w $F0FF
425.dc.w $FFFF
426.dc.w $FFF
427.dc.w $FFFF
428.dc.w $FFFF
429.dc.w $FFF0
430.dc.w $FFFF
431.dc.w $FF0F
432.dc.w $FFFF
433.dc.w $F0FF
434.dc.w $FFFF
435.dc.w $FFF
436.globl _asgpal
437.data
438_asgpal:
439.dc.w $0
440.dc.w $0
441.dc.w $0
442.dc.w $3
443.dc.w $3
444.dc.w $3
445.dc.w $0
446.dc.w $0
447.dc.w $2
448.dc.w $1
449.dc.w $0
450.dc.w $1
451.dc.w $0
452.dc.w $1
453.dc.w $2
454.dc.w $0
455.dc.w $1
456.dc.w $1
457.dc.w $1
458.dc.w $1
459.dc.w $2
460.dc.w $0
461.dc.w $0
462.dc.w $1
463.dc.w $2
464.dc.w $2
465.dc.w $2
466.dc.w $0
467.dc.w $0
468.dc.w $0
469.dc.w $2
470.dc.w $2
471.dc.w $2
472.dc.w $2
473.dc.w $3
474.dc.w $3
475.dc.w $3
476.dc.w $3
477.dc.w $0
478.dc.w $3
479.dc.w $0
480.dc.w $0
481.dc.w $0
482.dc.w $0
483.dc.w $0
484.dc.w $0
485.dc.w $2
486.dc.w $3
487.globl _dyntab
488.data
489_dyntab:
490.dc.w $0
491.dc.w $F00
492.dc.w $1680
493.dc.w $1F40
494.dc.w $2800
495.dc.w $3200
496.dc.w $3E80
497.dc.w $4EC0
498.dc.w $62C0
499.dc.w $7D00
500.globl _advacur
501.text
502_advacur:
503~~advacur:
504link R14,#0
505movem.l R6-R7,-(sp)
506~newcol=R7
507*line 281
508*line 282
509move.l _curfet,(sp)
510move _stccol,-(sp)
511move _stcrow,-(sp)
512jsr _infield
513addq.l #4,sp
514tst R0
515beq L12
516*line 282
517move.l _infetp,_cfetp
518*line 283
519bra L13
520L12:bra L11
521L13:
522*line 286
523move _stccol,R7
524add #1,R7
525*line 288
526*line 289
527move.l _cfetp,R8
528cmp 4(R8),R7
529bgt L14
530*line 289
531move R7,(sp)
532move _stcrow,-(sp)
533jsr _itcpos
534addq.l #2,sp
535*line 290
536L14:
537*line 291
538move _stccol,R0
539asl #3,R0
540move R0,_cxval
541*line 292
542move _stcrow,R0
543muls #14,R0
544move R0,_cyval
545L11:tst.l (sp)+
546movem.l (sp)+,R7-R7
547unlk R14
548rts
549.globl _bspacur
550.text
551_bspacur:
552~~bspacur:
553link R14,#0
554movem.l R6-R7,-(sp)
555~newcol=R7
556*line 305
557*line 306
558move.l _curfet,(sp)
559move _stccol,-(sp)
560move _stcrow,-(sp)
561jsr _infield
562addq.l #4,sp
563tst R0
564beq L16
565*line 306
566move.l _infetp,_cfetp
567*line 307
568bra L17
569L16:bra L15
570L17:
571*line 310
572move _stccol,R7
573sub #1,R7
574*line 312
575*line 313
576move.l _cfetp,R8
577cmp 2(R8),R7
578blt L18
579*line 313
580move R7,(sp)
581move _stcrow,-(sp)
582jsr _itcpos
583addq.l #2,sp
584*line 314
585L18:
586*line 315
587move _stccol,R0
588asl #3,R0
589move R0,_cxval
590*line 316
591move _stcrow,R0
592muls #14,R0
593move R0,_cyval
594L15:tst.l (sp)+
595movem.l (sp)+,R7-R7
596unlk R14
597rts
598.globl _keycpyw
599.text
600_keycpyw:
601~~keycpyw:
602~dest=R13
603~src=R12
604~len=R7
605~wk=18
606~bk=20
607link R14,#0
608movem.l R2-R7/R12-R13,-(sp)
609~wkey=R6
610~bkey=R5
611~theword=R4
612~i=R3
613*line 336
614move.l 8(R14),R13
615*line 336
616move.l 12(R14),R12
617*line 336
618move 16(R14),R7
619*line 336
620move 18(R14),(sp)
621jsr _exp_c
622move R0,R6
623*line 337
624move 20(R14),(sp)
625jsr _exp_c
626move R0,R5
627*line 339
628clr R3
629bra L22
630L23:
631*line 340
632*line 341
633move (R12)+,R4
634*line 342
635clr R0
636move R4,R0
637and R6,R0
638clr R1
639move R5,R1
640clr R2
641move R4,R2
642not R2
643and R2,R1
644or R1,R0
645move R0,(R13)+
646L21:
647*line 339
648add #1,R3
649L22:
650*line 339
651cmp R7,R3
652blt L23
653L20:L19:tst.l (sp)+
654movem.l (sp)+,R3-R7/R12-R13
655unlk R14
656rts
657.globl _asgkb
658.text
659_asgkb:
660~~asgkb:
661link R14,#0
662movem.l R4-R7/R13-R13,-(sp)
663~p=R13
664~akline=R7
665~i=R6
666~j=R5
667*line 361
668move #14,(sp)
669jsr _exp_c
670move R0,R7
671*line 362
672move.l _asgob,R13
673add.l #$9a0c,R13
674*line 364
675clr R5
676bra L27
677L28:
678*line 365
679*line 366
680move #115,(sp)
681move R7,-(sp)
682move.l R13,-(sp)
683jsr _memsetw
684addq.l #6,sp
685*line 367
686add.l #$100,R13
687*line 368
688*line 369
689clr R6
690bra L31
691L32:
692*line 370
693*line 371
694move #7,(sp)
695move #6,-(sp)
696move #115,-(sp)
697move.l #_asgkbtp,-(sp)
698move.l R13,-(sp)
699jsr _keycpyw
700adda.l #12,sp
701*line 372
702add.l #$100,R13
703L30:
704*line 369
705add #1,R6
706L31:
707*line 369
708cmp #13,R6
709blt L32
710L29:
711*line 373
712L26:
713*line 364
714add #1,R5
715L27:
716*line 364
717cmp #12,R5
718blt L28
719L25:
720*line 376
721move #115,(sp)
722move R7,-(sp)
723move.l R13,-(sp)
724jsr _memsetw
725addq.l #6,sp
726*line 377
727add.l #$100,R13
728*line 379
729clr R6
730bra L35
731L36:
732*line 380
733*line 381
734move #9,(sp)
735move #8,-(sp)
736move #115,-(sp)
737move.l #_asgkbtp,-(sp)
738move.l R13,-(sp)
739jsr _keycpyw
740adda.l #12,sp
741*line 382
742add.l #$100,R13
743L34:
744*line 379
745add #1,R6
746L35:
747*line 379
748cmp #14,R6
749blt L36
750L33:
751*line 385
752clr R6
753bra L39
754L40:
755*line 386
756*line 387
757move #9,(sp)
758move #8,-(sp)
759move #115,-(sp)
760move.l #_asgkbbt,-(sp)
761move.l R13,-(sp)
762jsr _keycpyw
763adda.l #12,sp
764*line 388
765add.l #$100,R13
766L38:
767*line 385
768add #1,R6
769L39:
770*line 385
771cmp #11,R6
772blt L40
773L37:
774*line 391
775move #115,(sp)
776move R7,-(sp)
777move.l R13,-(sp)
778jsr _memsetw
779addq.l #6,sp
780L24:tst.l (sp)+
781movem.l (sp)+,R5-R7/R13-R13
782unlk R14
783rts
784.globl _drawk2g
785.text
786_drawk2g:
787~~drawk2g:
788~grp=R7
789link R14,#0
790movem.l R2-R7/R12-R13,-(sp)
791~i=R6
792~n=R5
793~key=R4
794~line=R3
795~bfsp=R13
796~lp=R12
797*line 413
798move 8(R14),R7
799*line 413
800move #7,R5
801*line 415
802move R7,R3
803muls #14,R3
804add #158,R3
805*line 416
806move R3,R0
807ext.l R0
808asl.l #$7,R0
809asl.l #1,R0
810move.l R0,R12
811add.l _asgob,R12
812add.l #$c,R12
813*line 418
814clr R6
815bra L44
816L45:
817*line 419
818*line 420
819move #7,(sp)
820move #6,-(sp)
821move #115,-(sp)
822move.l #_asgkbtp,-(sp)
823move.l R12,-(sp)
824jsr _keycpyw
825adda.l #12,sp
826*line 421
827add.l #$100,R12
828L43:
829*line 418
830add #1,R6
831L44:
832*line 418
833cmp #4,R6
834blt L45
835L42:
836*line 424
837*line 424
838move R7,R8
839add.l R8,R8
840add.l R8,R8
841add.l #_grp2prt,R8
842cmp #1,(R8)
843bne L46
844*line 425
845*line 426
846clr R4
847bra L49
848L50:
849*line 427
850*line 428
851move R4,R8
852add.l R8,R8
853move.l #_key2grp,R9
854move 0(R8,R9.l),R0
855move #1,R1
856move R7,R2
857asl R2,R1
858and R1,R0
859beq L51
860*line 429
861*line 430
862move #15,(sp)
863jsr _exp_c
864move R0,(sp)
865move R3,-(sp)
866add #3,(sp)
867move R4,R8
868add.l R8,R8
869move.l #_asgkble,R9
870move 0(R8,R9.l),-(sp)
871cmp #87,R4
872bne L10000
873move #31,R0
874bra L10002
875L10000:move #28,R0
876L10002:add R0,(sp)
877move R3,-(sp)
878move R4,R8
879add.l R8,R8
880move.l #_asgkble,R9
881move 0(R8,R9.l),-(sp)
882add #24,(sp)
883move #128,-(sp)
884move.l _asgob,-(sp)
885jsr _vbfill4
886adda.l #14,sp
887*line 431
888L51:L48:
889*line 426
890add #1,R4
891L49:
892*line 426
893cmp #88,R4
894blt L50
895L47:
896*line 432
897cmp #8,R7
898ble L10003
899move R7,(sp)
900add #163,(sp)
901bra L10005
902L10003:move R7,(sp)
903add #49,(sp)
904L10005:move.l #L52,-(sp)
905move.l #_bfs,-(sp)
906jsr _sprintf
907addq.l #8,sp
908*line 433
909move.l #_bfs,R13
910*line 434
911bra L53
912L46:
913*line 435
914*line 436
915*line 437
916move.l #L54,R13
917L53:
918*line 440
919*line 441
920move #14,(sp)
921move.l R13,-(sp)
922move R5,R0
923asl #4,R0
924ext.l R0
925move.l R0,R8
926move.l #_adbox,R9
927move 14(R8,R9.l),-(sp)
928move R7,-(sp)
929move R5,R0
930asl #4,R0
931ext.l R0
932move.l R0,R8
933move.l #_adbox,R9
934move 12(R8,R9.l),R0
935add R0,(sp)
936add #1,(sp)
937move R5,R0
938asl #4,R0
939ext.l R0
940move.l R0,R8
941move.l #_adbox,R9
942move 10(R8,R9.l),-(sp)
943move R5,R0
944asl #4,R0
945ext.l R0
946move.l R0,R8
947move.l #_adbox,R9
948move 8(R8,R9.l),-(sp)
949move #64,-(sp)
950move.l _asgob,-(sp)
951jsr _vcputsv
952adda.l #18,sp
953*line 443
954*line 444
955move #14,(sp)
956move.l R13,-(sp)
957move R5,R0
958asl #4,R0
959ext.l R0
960move.l R0,R8
961move.l #_adbox,R9
962move 14(R8,R9.l),-(sp)
963add #61,(sp)
964move R7,-(sp)
965move R5,R0
966asl #4,R0
967ext.l R0
968move.l R0,R8
969move.l #_adbox,R9
970move 12(R8,R9.l),R0
971add R0,(sp)
972add #1,(sp)
973move R5,R0
974asl #4,R0
975ext.l R0
976move.l R0,R8
977move.l #_adbox,R9
978move 10(R8,R9.l),-(sp)
979move R5,R0
980asl #4,R0
981ext.l R0
982move.l R0,R8
983move.l #_adbox,R9
984move 8(R8,R9.l),-(sp)
985move #64,-(sp)
986move.l _asgob,-(sp)
987jsr _vcputsv
988adda.l #18,sp
989L41:tst.l (sp)+
990movem.l (sp)+,R3-R7/R12-R13
991unlk R14
992rts
993.globl _adpoint
994.text
995_adpoint:
996~~adpoint:
997~x=8
998~y=10
999~pen=12
1000link R14,#-4
1001*line 459
1002*line 460
1003clr R0
1004move 10+_v_regs,R0
1005and #384,R0
1006beq L56
1007*line 460
1008clr (sp)
1009jsr _vbank
1010*line 461
1011L56:
1012*line 462
1013move 12(R14),(sp)
1014jsr _exp_c
1015move R0,(sp)
1016move 10(R14),-(sp)
1017move 8(R14),-(sp)
1018move.l _adoct,-(sp)
1019jsr _vputp
1020addq.l #8,sp
1021L55:unlk R14
1022rts
1023.globl _numblk
1024.text
1025_numblk:
1026~~numblk:
1027~buf=8
1028~n=12
1029link R14,#-4
1030*line 476
1031*line 476
1032cmp #-1,12(R14)
1033bne L58
1034*line 477
1035*line 478
1036move.l #L59,(sp)
1037move.l 8(R14),-(sp)
1038jsr _strcpy
1039addq.l #4,sp
1040*line 479
1041move.l 8(R14),R0
1042bra L57
1043*line 480
1044bra L60
1045L58:
1046*line 481
1047*line 482
1048*line 483
1049move 12(R14),(sp)
1050move.l #L61,-(sp)
1051move.l 8(R14),-(sp)
1052jsr _sprintf
1053addq.l #8,sp
1054*line 484
1055move.l 8(R14),R0
1056bra L57
1057L60:L57:unlk R14
1058rts
1059.globl _adswin
1060.text
1061_adswin:
1062~~adswin:
1063~n=R7
1064link R14,#-8
1065movem.l R4-R7/R13-R13,-(sp)
1066~cx=R6
1067~i=R5
1068~bfsp=R13
1069~buf1=-4
1070~buf2=-8
1071*line 504
1072move 8(R14),R7
1073*line 504
1074*line 505
1075cmp #7,R7
1076bne L10006
1077cmp #-1,_admctl
1078bne L62
1079L10006:*line 506
1080*line 507
1081move R7,R0
1082asl #4,R0
1083ext.l R0
1084move.l R0,R8
1085move.l #_adbox,R9
1086move 10(R8,R9.l),(sp)
1087jsr _exp_c
1088move R0,R6
1089*line 508
1090move.l #_adpoint,_point
1091*line 512
1092clr (sp)
1093jsr _vbank
1094*line 513
1095*line 514
1096move R6,(sp)
1097move R7,R0
1098asl #4,R0
1099ext.l R0
1100move.l R0,R8
1101move.l #_adbox,R9
1102move 6(R8,R9.l),-(sp)
1103move R7,R0
1104asl #4,R0
1105ext.l R0
1106move.l R0,R8
1107move.l #_adbox,R9
1108move 4(R8,R9.l),-(sp)
1109move R7,R0
1110asl #4,R0
1111ext.l R0
1112move.l R0,R8
1113move.l #_adbox,R9
1114move 2(R8,R9.l),-(sp)
1115move R7,R0
1116asl #4,R0
1117ext.l R0
1118move.l R0,R8
1119move.l #_adbox,R9
1120move 0(R8,R9.l),-(sp)
1121move #128,-(sp)
1122move.l _asgob,-(sp)
1123jsr _vbfill4
1124adda.l #14,sp
1125*line 518
1126*line 519
1127move #14,(sp)
1128move R7,R8
1129add.l R8,R8
1130add.l R8,R8
1131move.l #_adbxlb,R9
1132move.l 0(R8,R9.l),-(sp)
1133move R7,R0
1134asl #4,R0
1135ext.l R0
1136move.l R0,R8
1137move.l #_adbox,R9
1138move 14(R8,R9.l),-(sp)
1139move R7,R0
1140asl #4,R0
1141ext.l R0
1142move.l R0,R8
1143move.l #_adbox,R9
1144move 12(R8,R9.l),-(sp)
1145move R7,R0
1146asl #4,R0
1147ext.l R0
1148move.l R0,R8
1149move.l #_adbox,R9
1150move 8(R8,R9.l),-(sp)
1151move #64,-(sp)
1152move.l _asgob,-(sp)
1153jsr _tsplot4
1154adda.l #16,sp
1155*line 523
1156move R7,R0
1157bra L64
1158*line 524
1159L65:
1160*line 525
1161*line 526
1162*line 527
1163move _curasg,(sp)
1164move.l #L66,-(sp)
1165move.l #_bfs,-(sp)
1166jsr _sprintf
1167addq.l #8,sp
1168*line 528
1169*line 529
1170move #14,(sp)
1171move.l #_bfs,-(sp)
1172move R7,R0
1173asl #4,R0
1174ext.l R0
1175move.l R0,R8
1176move.l #_adbox,R9
1177move 14(R8,R9.l),-(sp)
1178add #8,(sp)
1179move R7,R0
1180asl #4,R0
1181ext.l R0
1182move.l R0,R8
1183move.l #_adbox,R9
1184move 12(R8,R9.l),-(sp)
1185tst _asgmod
1186beq L10007
1187move #13,-(sp)
1188bra L10009
1189L10007:move R7,R0
1190asl #4,R0
1191ext.l R0
1192move.l R0,R8
1193move.l #_adbox,R9
1194move 8(R8,R9.l),-(sp)
1195L10009:move #64,-(sp)
1196move.l _asgob,-(sp)
1197jsr _tsplot4
1198adda.l #16,sp
1199*line 530
1200*line 531
1201move.l #_caname,(sp)
1202move.l #L67,-(sp)
1203move.l #_bfs,-(sp)
1204jsr _sprintf
1205addq.l #8,sp
1206*line 532
1207*line 533
1208move #14,(sp)
1209move.l #_bfs,-(sp)
1210move R7,R0
1211asl #4,R0
1212ext.l R0
1213move.l R0,R8
1214move.l #_adbox,R9
1215move 14(R8,R9.l),-(sp)
1216move R7,R0
1217asl #4,R0
1218ext.l R0
1219move.l R0,R8
1220move.l #_adbox,R9
1221move 12(R8,R9.l),-(sp)
1222add #1,(sp)
1223move R7,R0
1224asl #4,R0
1225ext.l R0
1226move.l R0,R8
1227move.l #_adbox,R9
1228move 8(R8,R9.l),-(sp)
1229move #64,-(sp)
1230move.l _asgob,-(sp)
1231jsr _tsplot4
1232adda.l #16,sp
1233*line 534
1234bra L62
1235*line 535
1236*line 536
1237L68:
1238*line 537
1239*line 538
1240*line 539
1241*line 540
1242move #14,(sp)
1243move _curmop,R8
1244add.l R8,R8
1245add.l R8,R8
1246move.l #_gprep,R9
1247move.l 0(R8,R9.l),-(sp)
1248move R7,R0
1249asl #4,R0
1250ext.l R0
1251move.l R0,R8
1252move.l #_adbox,R9
1253move 14(R8,R9.l),-(sp)
1254add #9,(sp)
1255move R7,R0
1256asl #4,R0
1257ext.l R0
1258move.l R0,R8
1259move.l #_adbox,R9
1260move 12(R8,R9.l),-(sp)
1261move R7,R0
1262asl #4,R0
1263ext.l R0
1264move.l R0,R8
1265move.l #_adbox,R9
1266move 8(R8,R9.l),-(sp)
1267move #64,-(sp)
1268move.l _asgob,-(sp)
1269jsr _tsplot4
1270adda.l #16,sp
1271*line 541
1272bra L62
1273*line 542
1274*line 543
1275L69:
1276*line 544
1277*line 545
1278*line 546
1279move _prgchan,(sp)
1280move.l #L70,-(sp)
1281move.l #_bfs,-(sp)
1282jsr _sprintf
1283addq.l #8,sp
1284*line 547
1285*line 548
1286move #14,(sp)
1287move.l #_bfs,-(sp)
1288move R7,R0
1289asl #4,R0
1290ext.l R0
1291move.l R0,R8
1292move.l #_adbox,R9
1293move 14(R8,R9.l),-(sp)
1294add #8,(sp)
1295move R7,R0
1296asl #4,R0
1297ext.l R0
1298move.l R0,R8
1299move.l #_adbox,R9
1300move 12(R8,R9.l),-(sp)
1301move R7,R0
1302asl #4,R0
1303ext.l R0
1304move.l R0,R8
1305move.l #_adbox,R9
1306move 8(R8,R9.l),-(sp)
1307move #64,-(sp)
1308move.l _asgob,-(sp)
1309jsr _tsplot4
1310adda.l #16,sp
1311*line 549
1312bra L62
1313*line 550
1314*line 551
1315*line 552
1316L71:
1317*line 553
1318*line 554
1319*line 555
1320*line 556
1321move #14,(sp)
1322move.l #L72,-(sp)
1323move R7,R0
1324asl #4,R0
1325ext.l R0
1326move.l R0,R8
1327move.l #_adbox,R9
1328move 14(R8,R9.l),-(sp)
1329move R7,R0
1330asl #4,R0
1331ext.l R0
1332move.l R0,R8
1333move.l #_adbox,R9
1334move 12(R8,R9.l),-(sp)
1335add #1,(sp)
1336move R7,R0
1337asl #4,R0
1338ext.l R0
1339move.l R0,R8
1340move.l #_adbox,R9
1341move 8(R8,R9.l),-(sp)
1342move #64,-(sp)
1343move.l _asgob,-(sp)
1344jsr _tsplot4
1345adda.l #16,sp
1346*line 557
1347*line 558
1348*line 559
1349move #14,(sp)
1350move.l #L73,-(sp)
1351move R7,R0
1352asl #4,R0
1353ext.l R0
1354move.l R0,R8
1355move.l #_adbox,R9
1356move 14(R8,R9.l),-(sp)
1357move R7,R0
1358asl #4,R0
1359ext.l R0
1360move.l R0,R8
1361move.l #_adbox,R9
1362move 12(R8,R9.l),-(sp)
1363add #2,(sp)
1364move R7,R0
1365asl #4,R0
1366ext.l R0
1367move.l R0,R8
1368move.l #_adbox,R9
1369move 8(R8,R9.l),-(sp)
1370move #64,-(sp)
1371move.l _asgob,-(sp)
1372jsr _tsplot4
1373adda.l #16,sp
1374*line 560
1375*line 561
1376*line 562
1377move #14,(sp)
1378move.l #L74,-(sp)
1379move R7,R0
1380asl #4,R0
1381ext.l R0
1382move.l R0,R8
1383move.l #_adbox,R9
1384move 14(R8,R9.l),-(sp)
1385move R7,R0
1386asl #4,R0
1387ext.l R0
1388move.l R0,R8
1389move.l #_adbox,R9
1390move 12(R8,R9.l),-(sp)
1391add #3,(sp)
1392move R7,R0
1393asl #4,R0
1394ext.l R0
1395move.l R0,R8
1396move.l #_adbox,R9
1397move 8(R8,R9.l),-(sp)
1398move #64,-(sp)
1399move.l _asgob,-(sp)
1400jsr _tsplot4
1401adda.l #16,sp
1402*line 563
1403*line 564
1404*line 565
1405move R7,R0
1406asl #4,R0
1407ext.l R0
1408move.l R0,R8
1409move.l #_adbox,R9
1410move 8(R8,R9.l),(sp)
1411move #55,-(sp)
1412move #111,-(sp)
1413move #55,-(sp)
1414move #104,-(sp)
1415jsr _lseg
1416addq.l #8,sp
1417*line 566
1418*line 567
1419*line 568
1420move R7,R0
1421asl #4,R0
1422ext.l R0
1423move.l R0,R8
1424move.l #_adbox,R9
1425move 8(R8,R9.l),(sp)
1426move #55,-(sp)
1427move #135,-(sp)
1428move #55,-(sp)
1429move #120,-(sp)
1430jsr _lseg
1431addq.l #8,sp
1432*line 569
1433*line 570
1434*line 571
1435move R7,R0
1436asl #4,R0
1437ext.l R0
1438move.l R0,R8
1439move.l #_adbox,R9
1440move 8(R8,R9.l),(sp)
1441move #55,-(sp)
1442move #159,-(sp)
1443move #55,-(sp)
1444move #152,-(sp)
1445jsr _lseg
1446addq.l #8,sp
1447*line 572
1448*line 573
1449*line 574
1450move R7,R0
1451asl #4,R0
1452ext.l R0
1453move.l R0,R8
1454move.l #_adbox,R9
1455move 8(R8,R9.l),(sp)
1456move #55,-(sp)
1457move #183,-(sp)
1458move #55,-(sp)
1459move #168,-(sp)
1460jsr _lseg
1461addq.l #8,sp
1462*line 575
1463*line 576
1464clr R5
1465bra L77
1466L78:
1467*line 577
1468*line 578
1469*line 579
1470move R5,R8
1471add.l R8,R8
1472move.l #_vce2grp,R9
1473move 0(R8,R9.l),(sp)
1474move.l R14,-(sp)
1475sub.l #4,(sp)
1476jsr _numblk
1477addq.l #4,sp
1478move.l R0,(sp)
1479move R5,-(sp)
1480add #49,(sp)
1481move.l #L79,-(sp)
1482move.l #_bfs,-(sp)
1483jsr _sprintf
1484adda.l #10,sp
1485*line 580
1486*line 581
1487*line 582
1488move #14,(sp)
1489move.l #_bfs,-(sp)
1490move R7,R0
1491asl #4,R0
1492ext.l R0
1493move.l R0,R8
1494move.l #_adbox,R9
1495move 14(R8,R9.l),-(sp)
1496move R5,-(sp)
1497move R7,R0
1498asl #4,R0
1499ext.l R0
1500move.l R0,R8
1501move.l #_adbox,R9
1502move 12(R8,R9.l),R0
1503add R0,(sp)
1504add #4,(sp)
1505move R7,R0
1506asl #4,R0
1507ext.l R0
1508move.l R0,R8
1509move.l #_adbox,R9
1510move 8(R8,R9.l),-(sp)
1511move #64,-(sp)
1512move.l _asgob,-(sp)
1513jsr _tsplot4
1514adda.l #16,sp
1515*line 583
1516*line 584
1517*line 585
1518move R5,R8
1519add #6,R8
1520add.l R8,R8
1521move.l #_vce2grp,R9
1522move 0(R8,R9.l),(sp)
1523move.l R14,-(sp)
1524sub.l #8,(sp)
1525jsr _numblk
1526addq.l #4,sp
1527move.l R0,(sp)
1528cmp #2,R5
1529ble L10010
1530move R5,-(sp)
1531add #169,(sp)
1532bra L10012
1533L10010:move R5,-(sp)
1534add #55,(sp)
1535L10012:move.l #L80,-(sp)
1536move.l #_bfs,-(sp)
1537jsr _sprintf
1538adda.l #10,sp
1539*line 586
1540*line 587
1541*line 588
1542move #14,(sp)
1543move.l #_bfs,-(sp)
1544move R7,R0
1545asl #4,R0
1546ext.l R0
1547move.l R0,R8
1548move.l #_adbox,R9
1549move 14(R8,R9.l),-(sp)
1550add #6,(sp)
1551move R5,-(sp)
1552move R7,R0
1553asl #4,R0
1554ext.l R0
1555move.l R0,R8
1556move.l #_adbox,R9
1557move 12(R8,R9.l),R0
1558add R0,(sp)
1559add #4,(sp)
1560move R7,R0
1561asl #4,R0
1562ext.l R0
1563move.l R0,R8
1564move.l #_adbox,R9
1565move 8(R8,R9.l),-(sp)
1566move #64,-(sp)
1567move.l _asgob,-(sp)
1568jsr _tsplot4
1569adda.l #16,sp
1570L76:
1571*line 576
1572add #1,R5
1573L77:
1574*line 576
1575cmp #6,R5
1576blt L78
1577L75:
1578*line 589
1579*line 590
1580bra L62
1581*line 591
1582*line 592
1583*line 593
1584L81:
1585*line 594
1586*line 595
1587*line 596
1588*line 597
1589move #14,(sp)
1590move.l #L82,-(sp)
1591move R7,R0
1592asl #4,R0
1593ext.l R0
1594move.l R0,R8
1595move.l #_adbox,R9
1596move 14(R8,R9.l),-(sp)
1597move R7,R0
1598asl #4,R0
1599ext.l R0
1600move.l R0,R8
1601move.l #_adbox,R9
1602move 12(R8,R9.l),-(sp)
1603add #1,(sp)
1604move R7,R0
1605asl #4,R0
1606ext.l R0
1607move.l R0,R8
1608move.l #_adbox,R9
1609move 8(R8,R9.l),-(sp)
1610move #64,-(sp)
1611move.l _asgob,-(sp)
1612jsr _tsplot4
1613adda.l #16,sp
1614*line 598
1615*line 599
1616*line 600
1617move #14,(sp)
1618move.l #L83,-(sp)
1619move R7,R0
1620asl #4,R0
1621ext.l R0
1622move.l R0,R8
1623move.l #_adbox,R9
1624move 14(R8,R9.l),-(sp)
1625move R7,R0
1626asl #4,R0
1627ext.l R0
1628move.l R0,R8
1629move.l #_adbox,R9
1630move 12(R8,R9.l),-(sp)
1631add #2,(sp)
1632move R7,R0
1633asl #4,R0
1634ext.l R0
1635move.l R0,R8
1636move.l #_adbox,R9
1637move 8(R8,R9.l),-(sp)
1638move #64,-(sp)
1639move.l _asgob,-(sp)
1640jsr _tsplot4
1641adda.l #16,sp
1642*line 601
1643*line 602
1644*line 603
1645move #14,(sp)
1646move.l #L84,-(sp)
1647move R7,R0
1648asl #4,R0
1649ext.l R0
1650move.l R0,R8
1651move.l #_adbox,R9
1652move 14(R8,R9.l),-(sp)
1653move R7,R0
1654asl #4,R0
1655ext.l R0
1656move.l R0,R8
1657move.l #_adbox,R9
1658move 12(R8,R9.l),-(sp)
1659add #3,(sp)
1660move R7,R0
1661asl #4,R0
1662ext.l R0
1663move.l R0,R8
1664move.l #_adbox,R9
1665move 8(R8,R9.l),-(sp)
1666move #64,-(sp)
1667move.l _asgob,-(sp)
1668jsr _tsplot4
1669adda.l #16,sp
1670*line 604
1671*line 605
1672*line 606
1673move R7,R0
1674asl #4,R0
1675ext.l R0
1676move.l R0,R8
1677move.l #_adbox,R9
1678move 8(R8,R9.l),(sp)
1679move #55,-(sp)
1680move #207,-(sp)
1681move #55,-(sp)
1682move #200,-(sp)
1683jsr _lseg
1684addq.l #8,sp
1685*line 607
1686*line 608
1687*line 609
1688move R7,R0
1689asl #4,R0
1690ext.l R0
1691move.l R0,R8
1692move.l #_adbox,R9
1693move 8(R8,R9.l),(sp)
1694move #55,-(sp)
1695move #271,-(sp)
1696move #55,-(sp)
1697move #216,-(sp)
1698jsr _lseg
1699addq.l #8,sp
1700*line 610
1701*line 611
1702*line 612
1703move R7,R0
1704asl #4,R0
1705ext.l R0
1706move.l R0,R8
1707move.l #_adbox,R9
1708move 8(R8,R9.l),(sp)
1709move #55,-(sp)
1710move #295,-(sp)
1711move #55,-(sp)
1712move #280,-(sp)
1713jsr _lseg
1714addq.l #8,sp
1715*line 613
1716*line 614
1717clr R5
1718bra L87
1719L88:
1720*line 615
1721*line 616
1722move #14,(sp)
1723move R5,R8
1724add.l R8,R8
1725add.l R8,R8
1726move.l #_asgsrc,R9
1727move.l 0(R8,R9.l),-(sp)
1728move R7,R0
1729asl #4,R0
1730ext.l R0
1731move.l R0,R8
1732move.l #_adbox,R9
1733move 14(R8,R9.l),-(sp)
1734move R5,-(sp)
1735move R7,R0
1736asl #4,R0
1737ext.l R0
1738move.l R0,R8
1739move.l #_adbox,R9
1740move 12(R8,R9.l),R0
1741add R0,(sp)
1742add #4,(sp)
1743move R7,R0
1744asl #4,R0
1745ext.l R0
1746move.l R0,R8
1747move.l #_adbox,R9
1748move 8(R8,R9.l),-(sp)
1749move #64,-(sp)
1750move.l _asgob,-(sp)
1751jsr _tsplot4
1752adda.l #16,sp
1753L86:
1754*line 614
1755add #1,R5
1756L87:
1757*line 614
1758cmp #6,R5
1759blt L88
1760L85:
1761*line 616
1762*line 617
1763*line 618
1764clr R5
1765bra L91
1766L92:
1767*line 619
1768*line 620
1769move R5,R8
1770add.l R8,R8
1771move.l #_mctlnum,R9
1772move 0(R8,R9.l),(sp)
1773and #255,(sp)
1774move.l R14,-(sp)
1775sub.l #4,(sp)
1776jsr _numblk
1777addq.l #4,sp
1778move.l R0,(sp)
1779move.l #L93,-(sp)
1780move.l #_bfs,-(sp)
1781jsr _sprintf
1782addq.l #8,sp
1783*line 621
1784*line 622
1785*line 623
1786move #14,(sp)
1787move.l #_bfs,-(sp)
1788move R7,R0
1789asl #4,R0
1790ext.l R0
1791move.l R0,R8
1792move.l #_adbox,R9
1793move 14(R8,R9.l),-(sp)
1794add #10,(sp)
1795move R5,-(sp)
1796move R7,R0
1797asl #4,R0
1798ext.l R0
1799move.l R0,R8
1800move.l #_adbox,R9
1801move 12(R8,R9.l),R0
1802add R0,(sp)
1803add #5,(sp)
1804move R7,R0
1805asl #4,R0
1806ext.l R0
1807move.l R0,R8
1808move.l #_adbox,R9
1809move 8(R8,R9.l),-(sp)
1810move #64,-(sp)
1811move.l _asgob,-(sp)
1812jsr _tsplot4
1813adda.l #16,sp
1814*line 624
1815*line 625
1816*line 625
1817move R5,R8
1818add.l R8,R8
1819add.l #_mctlnum,R8
1820cmp #-1,(R8)
1821beq L94
1822move R5,R8
1823add.l R8,R8
1824add.l #_mctlnum,R8
1825btst #0,(R8)
1826beq L94
1827*line 626
1828*line 627
1829move R5,R0
1830add #50,R0
1831move.b R0,_bfs
1832*line 628
1833clr.b 1+_bfs
1834*line 629
1835*line 630
1836*line 631
1837move #14,(sp)
1838move.l #_bfs,-(sp)
1839move R7,R0
1840asl #4,R0
1841ext.l R0
1842move.l R0,R8
1843move.l #_adbox,R9
1844move 14(R8,R9.l),-(sp)
1845move R5,-(sp)
1846move R7,R0
1847asl #4,R0
1848ext.l R0
1849move.l R0,R8
1850move.l #_adbox,R9
1851move 12(R8,R9.l),R0
1852add R0,(sp)
1853add #5,(sp)
1854move #13,-(sp)
1855move #64,-(sp)
1856move.l _asgob,-(sp)
1857jsr _tsplot4
1858adda.l #16,sp
1859*line 632
1860L94:L90:
1861*line 618
1862add #1,R5
1863L91:
1864*line 618
1865cmp #4,R5
1866blt L92
1867L89:
1868*line 633
1869*line 634
1870bra L62
1871*line 635
1872*line 636
1873*line 637
1874L95:
1875*line 638
1876*line 639
1877*line 640
1878*line 641
1879move #14,(sp)
1880move.l #L96,-(sp)
1881move R7,R0
1882asl #4,R0
1883ext.l R0
1884move.l R0,R8
1885move.l #_adbox,R9
1886move 14(R8,R9.l),-(sp)
1887move R7,R0
1888asl #4,R0
1889ext.l R0
1890move.l R0,R8
1891move.l #_adbox,R9
1892move 12(R8,R9.l),-(sp)
1893add #1,(sp)
1894move R7,R0
1895asl #4,R0
1896ext.l R0
1897move.l R0,R8
1898move.l #_adbox,R9
1899move 8(R8,R9.l),-(sp)
1900move #64,-(sp)
1901move.l _asgob,-(sp)
1902jsr _tsplot4
1903adda.l #16,sp
1904*line 642
1905*line 643
1906*line 644
1907move #14,(sp)
1908move.l #L97,-(sp)
1909move R7,R0
1910asl #4,R0
1911ext.l R0
1912move.l R0,R8
1913move.l #_adbox,R9
1914move 14(R8,R9.l),-(sp)
1915move R7,R0
1916asl #4,R0
1917ext.l R0
1918move.l R0,R8
1919move.l #_adbox,R9
1920move 12(R8,R9.l),-(sp)
1921add #2,(sp)
1922move R7,R0
1923asl #4,R0
1924ext.l R0
1925move.l R0,R8
1926move.l #_adbox,R9
1927move 8(R8,R9.l),-(sp)
1928move #64,-(sp)
1929move.l _asgob,-(sp)
1930jsr _tsplot4
1931adda.l #16,sp
1932*line 645
1933*line 646
1934*line 647
1935move #14,(sp)
1936move.l #L98,-(sp)
1937move R7,R0
1938asl #4,R0
1939ext.l R0
1940move.l R0,R8
1941move.l #_adbox,R9
1942move 14(R8,R9.l),-(sp)
1943move R7,R0
1944asl #4,R0
1945ext.l R0
1946move.l R0,R8
1947move.l #_adbox,R9
1948move 12(R8,R9.l),-(sp)
1949add #3,(sp)
1950move R7,R0
1951asl #4,R0
1952ext.l R0
1953move.l R0,R8
1954move.l #_adbox,R9
1955move 8(R8,R9.l),-(sp)
1956move #64,-(sp)
1957move.l _asgob,-(sp)
1958jsr _tsplot4
1959adda.l #16,sp
1960*line 648
1961*line 649
1962*line 650
1963move R7,R0
1964asl #4,R0
1965ext.l R0
1966move.l R0,R8
1967move.l #_adbox,R9
1968move 8(R8,R9.l),(sp)
1969move #55,-(sp)
1970move #319,-(sp)
1971move #55,-(sp)
1972move #312,-(sp)
1973jsr _lseg
1974addq.l #8,sp
1975*line 651
1976*line 652
1977*line 653
1978move R7,R0
1979asl #4,R0
1980ext.l R0
1981move.l R0,R8
1982move.l #_adbox,R9
1983move 8(R8,R9.l),(sp)
1984move #55,-(sp)
1985move #343,-(sp)
1986move #55,-(sp)
1987move #328,-(sp)
1988jsr _lseg
1989addq.l #8,sp
1990*line 654
1991*line 655
1992*line 656
1993move R7,R0
1994asl #4,R0
1995ext.l R0
1996move.l R0,R8
1997move.l #_adbox,R9
1998move 8(R8,R9.l),(sp)
1999move #55,-(sp)
2000move #359,-(sp)
2001move #55,-(sp)
2002move #352,-(sp)
2003jsr _lseg
2004addq.l #8,sp
2005*line 657
2006*line 658
2007*line 659
2008move R7,R0
2009asl #4,R0
2010ext.l R0
2011move.l R0,R8
2012move.l #_adbox,R9
2013move 8(R8,R9.l),(sp)
2014move #55,-(sp)
2015move #375,-(sp)
2016move #55,-(sp)
2017move #368,-(sp)
2018jsr _lseg
2019addq.l #8,sp
2020*line 660
2021*line 661
2022*line 662
2023move R7,R0
2024asl #4,R0
2025ext.l R0
2026move.l R0,R8
2027move.l #_adbox,R9
2028move 8(R8,R9.l),(sp)
2029move #55,-(sp)
2030move #399,-(sp)
2031move #55,-(sp)
2032move #384,-(sp)
2033jsr _lseg
2034addq.l #8,sp
2035*line 663
2036*line 664
2037*line 665
2038*line 666
2039move R7,R0
2040asl #4,R0
2041ext.l R0
2042move.l R0,R8
2043move.l #_adbox,R9
2044move 8(R8,R9.l),(sp)
2045move #55,-(sp)
2046move #423,-(sp)
2047move #55,-(sp)
2048move #416,-(sp)
2049jsr _lseg
2050addq.l #8,sp
2051*line 667
2052*line 668
2053*line 669
2054move R7,R0
2055asl #4,R0
2056ext.l R0
2057move.l R0,R8
2058move.l #_adbox,R9
2059move 8(R8,R9.l),(sp)
2060move #55,-(sp)
2061move #447,-(sp)
2062move #55,-(sp)
2063move #432,-(sp)
2064jsr _lseg
2065addq.l #8,sp
2066*line 670
2067*line 671
2068*line 672
2069move R7,R0
2070asl #4,R0
2071ext.l R0
2072move.l R0,R8
2073move.l #_adbox,R9
2074move 8(R8,R9.l),(sp)
2075move #55,-(sp)
2076move #463,-(sp)
2077move #55,-(sp)
2078move #456,-(sp)
2079jsr _lseg
2080addq.l #8,sp
2081*line 673
2082*line 674
2083*line 675
2084move R7,R0
2085asl #4,R0
2086ext.l R0
2087move.l R0,R8
2088move.l #_adbox,R9
2089move 8(R8,R9.l),(sp)
2090move #55,-(sp)
2091move #479,-(sp)
2092move #55,-(sp)
2093move #472,-(sp)
2094jsr _lseg
2095addq.l #8,sp
2096*line 676
2097*line 677
2098*line 678
2099move R7,R0
2100asl #4,R0
2101ext.l R0
2102move.l R0,R8
2103move.l #_adbox,R9
2104move 8(R8,R9.l),(sp)
2105move #55,-(sp)
2106move #503,-(sp)
2107move #55,-(sp)
2108move #488,-(sp)
2109jsr _lseg
2110addq.l #8,sp
2111*line 679
2112*line 680
2113*line 681
2114*line 682
2115clr R5
2116bra L101
2117L102:
2118*line 683
2119*line 684
2120*line 685
2121*line 686
2122*line 687
2123*line 688
2124*line 689
2125*line 690
2126*line 691
2127*line 692
2128*line 693
2129*line 694
2130move R5,R8
2131add #6,R8
2132add.l R8,R8
2133add.l R8,R8
2134move.l #_grp2prt,R9
2135move 2(R8,R9.l),(sp)
2136move.l R14,-(sp)
2137sub.l #8,(sp)
2138jsr _numblk
2139addq.l #4,sp
2140move.l R0,(sp)
2141move R5,R8
2142add #6,R8
2143add.l R8,R8
2144add.l R8,R8
2145move.l #_grp2prt,R9
2146move 0(R8,R9.l),R8
2147add.l R8,R8
2148add.l R8,R8
2149move.l #_gprep,R9
2150move.l 0(R8,R9.l),-(sp)
2151move R5,R8
2152add #6,R8
2153add.l R8,R8
2154move.l #_grpdyn,R9
2155move 0(R8,R9.l),-(sp)
2156move R5,R8
2157add #6,R8
2158add.l R8,R8
2159move.l #_ins2grp,R9
2160move 0(R8,R9.l),-(sp)
2161and #255,(sp)
2162cmp #2,R5
2163ble L10013
2164move R5,-(sp)
2165add #169,(sp)
2166bra L10015
2167L10013:move R5,-(sp)
2168add #55,(sp)
2169L10015:move R5,R8
2170add.l R8,R8
2171add.l R8,R8
2172move.l #_grp2prt,R9
2173move 2(R8,R9.l),-(sp)
2174move.l R14,-(sp)
2175sub.l #4,(sp)
2176jsr _numblk
2177addq.l #6,sp
2178move.l R0,-(sp)
2179move R5,R8
2180add.l R8,R8
2181add.l R8,R8
2182move.l #_grp2prt,R9
2183move 0(R8,R9.l),R8
2184add.l R8,R8
2185add.l R8,R8
2186move.l #_gprep,R9
2187move.l 0(R8,R9.l),-(sp)
2188move R5,R8
2189add.l R8,R8
2190move.l #_grpdyn,R9
2191move 0(R8,R9.l),-(sp)
2192move R5,R8
2193add.l R8,R8
2194move.l #_ins2grp,R9
2195move 0(R8,R9.l),-(sp)
2196and #255,(sp)
2197move R5,-(sp)
2198add #49,(sp)
2199move.l #L103,-(sp)
2200move.l #_bfs,-(sp)
2201jsr _sprintf
2202adda.l #32,sp
2203*line 695
2204*line 696
2205*line 697
2206move #14,(sp)
2207move.l #_bfs,-(sp)
2208move R7,R0
2209asl #4,R0
2210ext.l R0
2211move.l R0,R8
2212move.l #_adbox,R9
2213move 14(R8,R9.l),-(sp)
2214move R5,-(sp)
2215move R7,R0
2216asl #4,R0
2217ext.l R0
2218move.l R0,R8
2219move.l #_adbox,R9
2220move 12(R8,R9.l),R0
2221add R0,(sp)
2222add #4,(sp)
2223move R7,R0
2224asl #4,R0
2225ext.l R0
2226move.l R0,R8
2227move.l #_adbox,R9
2228move 8(R8,R9.l),-(sp)
2229move #64,-(sp)
2230move.l _asgob,-(sp)
2231jsr _tsplot4
2232adda.l #16,sp
2233*line 698
2234*line 699
2235*line 699
2236move R5,R8
2237add.l R8,R8
2238add.l #_ins2grp,R8
2239btst #0,(R8)
2240beq L104
2241*line 700
2242*line 701
2243clr.b 1+_bfs
2244*line 702
2245*line 703
2246*line 704
2247move #14,(sp)
2248move.l #_bfs,-(sp)
2249move R7,R0
2250asl #4,R0
2251ext.l R0
2252move.l R0,R8
2253move.l #_adbox,R9
2254move 14(R8,R9.l),-(sp)
2255move R5,-(sp)
2256move R7,R0
2257asl #4,R0
2258ext.l R0
2259move.l R0,R8
2260move.l #_adbox,R9
2261move 12(R8,R9.l),R0
2262add R0,(sp)
2263add #4,(sp)
2264move #13,-(sp)
2265move #64,-(sp)
2266move.l _asgob,-(sp)
2267jsr _tsplot4
2268adda.l #16,sp
2269*line 705
2270*line 706
2271L104:
2272*line 707
2273*line 707
2274move R5,R8
2275add #6,R8
2276add.l R8,R8
2277add.l #_ins2grp,R8
2278btst #0,(R8)
2279beq L105
2280*line 708
2281*line 709
2282clr.b 14+_bfs
2283*line 710
2284*line 711
2285*line 712
2286move #14,(sp)
2287move.l #13+_bfs,-(sp)
2288move R7,R0
2289asl #4,R0
2290ext.l R0
2291move.l R0,R8
2292move.l #_adbox,R9
2293move 14(R8,R9.l),-(sp)
2294add #13,(sp)
2295move R5,-(sp)
2296move R7,R0
2297asl #4,R0
2298ext.l R0
2299move.l R0,R8
2300move.l #_adbox,R9
2301move 12(R8,R9.l),R0
2302add R0,(sp)
2303add #4,(sp)
2304move #13,-(sp)
2305move #64,-(sp)
2306move.l _asgob,-(sp)
2307jsr _tsplot4
2308adda.l #16,sp
2309*line 713
2310L105:L100:
2311*line 682
2312add #1,R5
2313L101:
2314*line 682
2315cmp #6,R5
2316blt L102
2317L99:
2318*line 714
2319*line 715
2320bra L62
2321*line 716
2322*line 717
2323*line 718
2324L106:
2325*line 719
2326*line 720
2327*line 721
2328move R7,R0
2329asl #4,R0
2330ext.l R0
2331move.l R0,R8
2332move.l #_adbox,R9
2333move 8(R8,R9.l),(sp)
2334jsr _exp_c
2335move R0,(sp)
2336move #153,-(sp)
2337move #15,-(sp)
2338move #153,-(sp)
2339move #8,-(sp)
2340jsr _lseg
2341addq.l #8,sp
2342*line 722
2343move R7,R0
2344asl #4,R0
2345ext.l R0
2346move.l R0,R8
2347move.l #_adbox,R9
2348move 8(R8,R9.l),(sp)
2349jsr _exp_c
2350move R0,(sp)
2351move #153,-(sp)
2352move #503,-(sp)
2353move #153,-(sp)
2354move #496,-(sp)
2355jsr _lseg
2356addq.l #8,sp
2357*line 723
2358*line 724
2359jsr _asgkb
2360*line 725
2361*line 726
2362clr R5
2363bra L109
2364L110:
2365*line 727
2366move R5,(sp)
2367jsr _drawk2g
2368L108:
2369*line 726
2370add #1,R5
2371L109:
2372*line 726
2373cmp #12,R5
2374blt L110
2375L107:
2376*line 727
2377*line 728
2378bra L62
2379*line 729
2380*line 730
2381L111:
2382*line 731
2383*line 732
2384*line 733
2385*line 734
2386move #14,(sp)
2387move.l #L112,-(sp)
2388move R7,R0
2389asl #4,R0
2390ext.l R0
2391move.l R0,R8
2392move.l #_adbox,R9
2393move 14(R8,R9.l),-(sp)
2394move R7,R0
2395asl #4,R0
2396ext.l R0
2397move.l R0,R8
2398move.l #_adbox,R9
2399move 12(R8,R9.l),-(sp)
2400tst _auxctl
2401beq L10016
2402move #13,-(sp)
2403bra L10018
2404L10016:move R7,R0
2405asl #4,R0
2406ext.l R0
2407move.l R0,R8
2408move.l #_adbox,R9
2409move 8(R8,R9.l),-(sp)
2410L10018:move #64,-(sp)
2411move.l _asgob,-(sp)
2412jsr _tsplot4
2413adda.l #16,sp
2414*line 735
2415bra L62
2416*line 736
2417*line 737
2418L113:
2419*line 738
2420*line 739
2421*line 740
2422*line 741
2423move #14,(sp)
2424move.l #L114,-(sp)
2425move R7,R0
2426asl #4,R0
2427ext.l R0
2428move.l R0,R8
2429move.l #_adbox,R9
2430move 14(R8,R9.l),-(sp)
2431move R7,R0
2432asl #4,R0
2433ext.l R0
2434move.l R0,R8
2435move.l #_adbox,R9
2436move 12(R8,R9.l),-(sp)
2437move R7,R0
2438asl #4,R0
2439ext.l R0
2440move.l R0,R8
2441move.l #_adbox,R9
2442move 8(R8,R9.l),-(sp)
2443move #64,-(sp)
2444move.l _asgob,-(sp)
2445jsr _tsplot4
2446adda.l #16,sp
2447*line 742
2448*line 743
2449move _curtun,(sp)
2450move.l #L115,-(sp)
2451move.l #_bfs,-(sp)
2452jsr _sprintf
2453addq.l #8,sp
2454*line 744
2455*line 745
2456move #14,(sp)
2457move.l #_bfs,-(sp)
2458move R7,R0
2459asl #4,R0
2460ext.l R0
2461move.l R0,R8
2462move.l #_adbox,R9
2463move 14(R8,R9.l),-(sp)
2464add #4,(sp)
2465move R7,R0
2466asl #4,R0
2467ext.l R0
2468move.l R0,R8
2469move.l #_adbox,R9
2470move 12(R8,R9.l),-(sp)
2471tst _tunmod
2472beq L10019
2473move #13,-(sp)
2474bra L10021
2475L10019:move R7,R0
2476asl #4,R0
2477ext.l R0
2478move.l R0,R8
2479move.l #_adbox,R9
2480move 8(R8,R9.l),-(sp)
2481L10021:move #64,-(sp)
2482move.l _asgob,-(sp)
2483jsr _tsplot4
2484adda.l #16,sp
2485*line 746
2486bra L62
2487*line 747
2488*line 748
2489L116:
2490*line 749
2491*line 750
2492*line 751
2493move _ps_intn,(sp)
2494move.l #L117,-(sp)
2495move.l #_bfs,-(sp)
2496jsr _sprintf
2497addq.l #8,sp
2498*line 752
2499*line 753
2500move #14,(sp)
2501move.l #_bfs,-(sp)
2502move R7,R0
2503asl #4,R0
2504ext.l R0
2505move.l R0,R8
2506move.l #_adbox,R9
2507move 14(R8,R9.l),-(sp)
2508move R7,R0
2509asl #4,R0
2510ext.l R0
2511move.l R0,R8
2512move.l #_adbox,R9
2513move 12(R8,R9.l),-(sp)
2514add #1,(sp)
2515move R7,R0
2516asl #4,R0
2517ext.l R0
2518move.l R0,R8
2519move.l #_adbox,R9
2520move 8(R8,R9.l),-(sp)
2521move #64,-(sp)
2522move.l _asgob,-(sp)
2523jsr _tsplot4
2524adda.l #16,sp
2525*line 754
2526*line 755
2527move _ps_rate,(sp)
2528move.l #L118,-(sp)
2529move.l #_bfs,-(sp)
2530jsr _sprintf
2531addq.l #8,sp
2532*line 756
2533*line 757
2534move #14,(sp)
2535move.l #_bfs,-(sp)
2536move R7,R0
2537asl #4,R0
2538ext.l R0
2539move.l R0,R8
2540move.l #_adbox,R9
2541move 14(R8,R9.l),-(sp)
2542move R7,R0
2543asl #4,R0
2544ext.l R0
2545move.l R0,R8
2546move.l #_adbox,R9
2547move 12(R8,R9.l),-(sp)
2548add #2,(sp)
2549move R7,R0
2550asl #4,R0
2551ext.l R0
2552move.l R0,R8
2553move.l #_adbox,R9
2554move 8(R8,R9.l),-(sp)
2555move #64,-(sp)
2556move.l _asgob,-(sp)
2557jsr _tsplot4
2558adda.l #16,sp
2559*line 758
2560*line 759
2561move _ps_dpth,(sp)
2562move.l #L119,-(sp)
2563move.l #_bfs,-(sp)
2564jsr _sprintf
2565addq.l #8,sp
2566*line 760
2567*line 761
2568move #14,(sp)
2569move.l #_bfs,-(sp)
2570move R7,R0
2571asl #4,R0
2572ext.l R0
2573move.l R0,R8
2574move.l #_adbox,R9
2575move 14(R8,R9.l),-(sp)
2576move R7,R0
2577asl #4,R0
2578ext.l R0
2579move.l R0,R8
2580move.l #_adbox,R9
2581move 12(R8,R9.l),-(sp)
2582add #3,(sp)
2583move R7,R0
2584asl #4,R0
2585ext.l R0
2586move.l R0,R8
2587move.l #_adbox,R9
2588move 8(R8,R9.l),-(sp)
2589move #64,-(sp)
2590move.l _asgob,-(sp)
2591jsr _tsplot4
2592adda.l #16,sp
2593*line 762
2594bra L62
2595*line 763
2596bra L63
2597L64:cmp #10,R0
2598bhi L63
2599asl #2,R0
2600move R0,R8
2601add.l #L120,R8
2602move.l (R8),R8
2603jmp (R8)
2604.data
2605L120:.dc.l L65
2606.dc.l L63
2607.dc.l L68
2608.dc.l L69
2609.dc.l L71
2610.dc.l L81
2611.dc.l L95
2612.dc.l L106
2613.dc.l L111
2614.dc.l L113
2615.dc.l L116
2616.text
2617L63:L62:tst.l (sp)+
2618movem.l (sp)+,R5-R7/R13-R13
2619unlk R14
2620rts
2621.globl _initat
2622.text
2623_initat:
2624~~initat:
2625~n=8
2626link R14,#0
2627movem.l R6-R7/R13-R13,-(sp)
2628~ap=R13
2629~i=R7
2630*line 782
2631move 8(R14),R0
2632muls #332,R0
2633move.l R0,R13
2634add.l #_asgtab,R13
2635*line 783
2636clr (R13)
2637*line 784
2638clr 2(R13)
2639*line 785
2640clr 4(R13)
2641*line 786
2642move #70,6(R13)
2643*line 787
2644clr 8(R13)
2645*line 788
2646move #70,10(R13)
2647*line 790
2648clr R7
2649bra L124
2650L125:
2651*line 791
2652*line 792
2653move.l R13,R8
2654move R7,R9
2655add.l R9,R9
2656add.l R9,R8
2657clr 12(R8)
2658*line 793
2659move.l R13,R8
2660move R7,R9
2661add.l R9,R9
2662add.l R9,R8
2663move #9,36(R8)
2664L123:
2665*line 790
2666add #1,R7
2667L124:
2668*line 790
2669cmp #12,R7
2670blt L125
2671L122:
2672*line 796
2673clr R7
2674bra L128
2675L129:
2676*line 797
2677move.l R13,R8
2678move R7,R9
2679add.l R9,R9
2680add.l R9,R8
2681move #1,60(R8)
2682L127:
2683*line 796
2684add #1,R7
2685L128:
2686*line 796
2687cmp #8,R7
2688blt L129
2689L126:
2690*line 799
2691move #8,R7
2692bra L132
2693L133:
2694*line 800
2695move.l R13,R8
2696move R7,R9
2697add.l R9,R9
2698add.l R9,R8
2699move #2,60(R8)
2700L131:
2701*line 799
2702add #1,R7
2703L132:
2704*line 799
2705cmp #12,R7
2706blt L133
2707L130:
2708*line 802
2709move #1,84(R13)
2710*line 803
2711move #2,86(R13)
2712*line 804
2713move #80,88(R13)
2714*line 805
2715move #4,90(R13)
2716*line 807
2717move #1,92(R13)
2718*line 808
2719move #1,94(R13)
2720*line 809
2721move #3,96(R13)
2722*line 810
2723move #1,98(R13)
2724*line 812
2725move #2,R7
2726bra L136
2727L137:
2728*line 813
2729*line 814
2730move.l R13,R8
2731move R7,R9
2732add.l R9,R9
2733add.l R9,R9
2734add.l R9,R8
2735clr 92(R8)
2736*line 815
2737move.l R13,R8
2738move R7,R9
2739add.l R9,R9
2740add.l R9,R9
2741add.l R9,R8
2742move #-1,94(R8)
2743L135:
2744*line 812
2745add #1,R7
2746L136:
2747*line 812
2748cmp #12,R7
2749blt L137
2750L134:
2751*line 818
2752move #88,(sp)
2753move #1,-(sp)
2754move.l R13,-(sp)
2755add.l #140,(sp)
2756jsr _memsetw
2757addq.l #6,sp
2758*line 820
2759move #16,(sp)
2760tst 8(R14)
2761beq L10022
2762move.l #L138,-(sp)
2763bra L10024
2764L10022:move.l #L139,-(sp)
2765L10024:move.l R13,-(sp)
2766add.l #316,(sp)
2767jsr _memcpy
2768addq.l #8,sp
2769L121:tst.l (sp)+
2770movem.l (sp)+,R7-R7/R13-R13
2771unlk R14
2772rts
2773.globl _setaux
2774.text
2775_setaux:
2776~~setaux:
2777~aux=R7
2778link R14,#0
2779movem.l R5-R7/R13-R13,-(sp)
2780~psgdata=R6
2781~psg=R13
2782*line 838
2783move 8(R14),R7
2784*line 838
2785move R7,_auxctl
2786*line 839
2787move.l #_io_tone,R13
2788*line 841
2789move.b #7,(R13)
2790*line 842
2791move.b #191,2(R13)
2792*line 844
2793move.b #15,(R13)
2794*line 845
2795move.b (R13),R6
2796ext.w R6
2797and #-3,R6
2798*line 847
2799move.b #15,(R13)
2800*line 848
2801move R6,R0
2802tst R7
2803beq L10025
2804clr R1
2805bra L10027
2806L10025:move #2,R1
2807L10027:or R1,R0
2808move.b R0,2(R13)
2809L140:tst.l (sp)+
2810movem.l (sp)+,R6-R7/R13-R13
2811unlk R14
2812rts
2813.globl _getasg
2814.text
2815_getasg:
2816~~getasg:
2817~n=8
2818link R14,#0
2819movem.l R4-R7/R13-R13,-(sp)
2820~ap=R13
2821~i=R7
2822~grp=R6
2823~vce=R5
2824*line 866
2825move 8(R14),R0
2826muls #332,R0
2827move.l R0,R13
2828add.l #_asgtab,R13
2829*line 867
2830move (R13),_curmop
2831*line 868
2832move 2(R13),(sp)
2833jsr _gettun
2834*line 869
2835move 4(R13),(sp)
2836jsr _setaux
2837*line 870
2838move 6(R13),_ps_intn
2839*line 871
2840move 8(R13),_ps_rate
2841*line 872
2842move 10(R13),_ps_dpth
2843*line 873
2844move #12,(sp)
2845move.l R13,-(sp)
2846add.l #12,(sp)
2847move.l #_ins2grp,-(sp)
2848jsr _memcpyw
2849addq.l #8,sp
2850*line 874
2851move #12,(sp)
2852move.l R13,-(sp)
2853add.l #36,(sp)
2854move.l #_grpdyn,-(sp)
2855jsr _memcpyw
2856addq.l #8,sp
2857*line 875
2858move #12,(sp)
2859move.l R13,-(sp)
2860add.l #60,(sp)
2861move.l #_vce2grp,-(sp)
2862jsr _memcpyw
2863addq.l #8,sp
2864*line 876
2865move #4,(sp)
2866move.l R13,-(sp)
2867add.l #84,(sp)
2868move.l #_mctlnum,-(sp)
2869jsr _memcpyw
2870addq.l #8,sp
2871*line 877
2872move #24,(sp)
2873move.l R13,-(sp)
2874add.l #92,(sp)
2875move.l #_grp2prt,-(sp)
2876jsr _memcpyw
2877addq.l #8,sp
2878*line 878
2879move #88,(sp)
2880move.l R13,-(sp)
2881add.l #140,(sp)
2882move.l #_key2grp,-(sp)
2883jsr _memcpyw
2884addq.l #8,sp
2885*line 879
2886move #16,(sp)
2887move.l R13,-(sp)
2888add.l #316,(sp)
2889move.l #_caname,-(sp)
2890jsr _memcpy
2891addq.l #8,sp
2892*line 881
2893clr R7
2894bra L144
2895L145:
2896*line 882
2897*line 883
2898move R7,R8
2899add.l R8,R8
2900add.l R8,R8
2901add.l #_grp2prt,R8
2902cmp #4,(R8)
2903bne L146
2904*line 883
2905move R7,R8
2906add.l R8,R8
2907add.l R8,R8
2908add.l #_grp2prt,R8
2909move #3,(R8)
2910*line 884
2911L146:L143:
2912*line 881
2913add #1,R7
2914L144:
2915*line 881
2916cmp #12,R7
2917blt L145
2918L142:
2919*line 885
2920move _ps_intn,R0
2921muls #10,R0
2922asl #5,R0
2923move R0,(sp)
2924clr -(sp)
2925move #1,-(sp)
2926jsr _sendval
2927addq.l #4,sp
2928*line 886
2929move _ps_rate,R0
2930muls #10,R0
2931asl #5,R0
2932move R0,(sp)
2933clr -(sp)
2934move #2,-(sp)
2935jsr _sendval
2936addq.l #4,sp
2937*line 887
2938move _ps_dpth,R0
2939muls #10,R0
2940asl #5,R0
2941move R0,(sp)
2942clr -(sp)
2943move #3,-(sp)
2944jsr _sendval
2945addq.l #4,sp
2946*line 889
2947clr R5
2948bra L149
2949L150:
2950*line 890
2951*line 891
2952move R5,R8
2953add.l R8,R8
2954add.l #_vce2grp,R8
2955move (R8),R6
2956*line 892
2957*line 893
2958*line 893
2959cmp #-1,R6
2960beq L151
2961*line 894
2962*line 895
2963move R6,R8
2964sub #1,R8
2965add.l R8,R8
2966move.l #_ins2grp,R9
2967move 0(R8,R9.l),R0
2968and #255,R0
2969move R5,R9
2970add.l R9,R9
2971add.l #_s_inst,R9
2972move R0,(R9)
2973*line 896
2974move #1,(sp)
2975move R5,R8
2976add.l R8,R8
2977move.l #_s_inst,R9
2978move 0(R8,R9.l),-(sp)
2979move R5,-(sp)
2980jsr _execins
2981addq.l #4,sp
2982*line 897
2983move R6,R8
2984sub #1,R8
2985add.l R8,R8
2986move.l #_grpdyn,R9
2987move 0(R8,R9.l),R8
2988add.l R8,R8
2989move.l #_dyntab,R9
2990move 0(R8,R9.l),(sp)
2991move #8,-(sp)
2992move R5,-(sp)
2993jsr _sendval
2994addq.l #4,sp
2995*line 898
2996L151:L148:
2997*line 889
2998add #1,R5
2999L149:
3000*line 889
3001cmp #12,R5
3002blt L150
3003L147:
3004*line 901
3005move _curvce,(sp)
3006jsr _newvce
3007*line 902
3008clr _asgmod
3009L141:tst.l (sp)+
3010movem.l (sp)+,R5-R7/R13-R13
3011unlk R14
3012rts
3013.globl _putasg
3014.text
3015_putasg:
3016~~putasg:
3017~n=8
3018link R14,#0
3019movem.l R6-R7/R13-R13,-(sp)
3020~ap=R13
3021~i=R7
3022*line 920
3023clr R7
3024bra L155
3025L156:
3026*line 921
3027*line 922
3028move R7,R8
3029add.l R8,R8
3030add.l R8,R8
3031add.l #_grp2prt,R8
3032cmp #4,(R8)
3033bne L157
3034*line 922
3035move R7,R8
3036add.l R8,R8
3037add.l R8,R8
3038add.l #_grp2prt,R8
3039move #3,(R8)
3040*line 923
3041L157:L154:
3042*line 920
3043add #1,R7
3044L155:
3045*line 920
3046cmp #12,R7
3047blt L156
3048L153:
3049*line 924
3050move 8(R14),R0
3051muls #332,R0
3052move.l R0,R13
3053add.l #_asgtab,R13
3054*line 925
3055move _curmop,(R13)
3056*line 926
3057move _curtun,2(R13)
3058*line 927
3059move _auxctl,4(R13)
3060*line 928
3061move _ps_intn,6(R13)
3062*line 929
3063move _ps_rate,8(R13)
3064*line 930
3065move _ps_dpth,10(R13)
3066*line 931
3067move #12,(sp)
3068move.l #_ins2grp,-(sp)
3069move.l R13,-(sp)
3070add.l #12,(sp)
3071jsr _memcpyw
3072addq.l #8,sp
3073*line 932
3074move #12,(sp)
3075move.l #_grpdyn,-(sp)
3076move.l R13,-(sp)
3077add.l #36,(sp)
3078jsr _memcpyw
3079addq.l #8,sp
3080*line 933
3081move #12,(sp)
3082move.l #_vce2grp,-(sp)
3083move.l R13,-(sp)
3084add.l #60,(sp)
3085jsr _memcpyw
3086addq.l #8,sp
3087*line 934
3088move #4,(sp)
3089move.l #_mctlnum,-(sp)
3090move.l R13,-(sp)
3091add.l #84,(sp)
3092jsr _memcpyw
3093addq.l #8,sp
3094*line 935
3095move #24,(sp)
3096move.l #_grp2prt,-(sp)
3097move.l R13,-(sp)
3098add.l #92,(sp)
3099jsr _memcpyw
3100addq.l #8,sp
3101*line 936
3102move #88,(sp)
3103move.l #_key2grp,-(sp)
3104move.l R13,-(sp)
3105add.l #140,(sp)
3106jsr _memcpyw
3107addq.l #8,sp
3108*line 937
3109move #16,(sp)
3110move.l #_caname,-(sp)
3111move.l R13,-(sp)
3112add.l #316,(sp)
3113jsr _memcpy
3114addq.l #8,sp
3115*line 938
3116clr _asgmod
3117L152:tst.l (sp)+
3118movem.l (sp)+,R7-R7/R13-R13
3119unlk R14
3120rts
3121.globl _awins
3122.text
3123_awins:
3124~~awins:
3125link R14,#0
3126movem.l R6-R7,-(sp)
3127~i=R7
3128*line 954
3129clr R7
3130bra L161
3131L162:
3132*line 955
3133move R7,(sp)
3134jsr _adswin
3135L160:
3136*line 954
3137add #1,R7
3138L161:
3139*line 954
3140cmp #11,R7
3141blt L162
3142L159:L158:tst.l (sp)+
3143movem.l (sp)+,R7-R7
3144unlk R14
3145rts
3146.globl _inital
3147.text
3148_inital:
3149~~inital:
3150link R14,#0
3151movem.l R6-R7,-(sp)
3152~n=R7
3153*line 968
3154clr R7
3155bra L166
3156L167:
3157*line 969
3158move R7,(sp)
3159jsr _initat
3160L165:
3161*line 968
3162add #1,R7
3163L166:
3164*line 968
3165cmp #100,R7
3166blt L167
3167L164:
3168*line 971
3169clr (sp)
3170jsr _getasg
3171*line 972
3172move #1,_prgchan
3173L163:tst.l (sp)+
3174movem.l (sp)+,R7-R7
3175unlk R14
3176rts
3177.globl _adbord
3178.text
3179_adbord:
3180~~adbord:
3181link R14,#-4
3182*line 986
3183move.l #_adpoint,_point
3184*line 988
3185move #10,(sp)
3186clr -(sp)
3187move #511,-(sp)
3188clr -(sp)
3189clr -(sp)
3190jsr _lseg
3191addq.l #8,sp
3192*line 989
3193move #10,(sp)
3194move #349,-(sp)
3195move #511,-(sp)
3196clr -(sp)
3197move #511,-(sp)
3198jsr _lseg
3199addq.l #8,sp
3200*line 990
3201move #10,(sp)
3202move #349,-(sp)
3203clr -(sp)
3204move #349,-(sp)
3205move #511,-(sp)
3206jsr _lseg
3207addq.l #8,sp
3208*line 991
3209move #10,(sp)
3210clr -(sp)
3211clr -(sp)
3212move #349,-(sp)
3213clr -(sp)
3214jsr _lseg
3215addq.l #8,sp
3216*line 993
3217move #10,(sp)
3218move #41,-(sp)
3219move #95,-(sp)
3220move #41,-(sp)
3221clr -(sp)
3222jsr _lseg
3223addq.l #8,sp
3224*line 994
3225move #10,(sp)
3226move #55,-(sp)
3227move #95,-(sp)
3228move #55,-(sp)
3229clr -(sp)
3230jsr _lseg
3231addq.l #8,sp
3232*line 995
3233move #10,(sp)
3234move #69,-(sp)
3235move #95,-(sp)
3236move #69,-(sp)
3237clr -(sp)
3238jsr _lseg
3239addq.l #8,sp
3240*line 996
3241move #10,(sp)
3242move #83,-(sp)
3243move #95,-(sp)
3244move #83,-(sp)
3245clr -(sp)
3246jsr _lseg
3247addq.l #8,sp
3248*line 997
3249move #10,(sp)
3250move #139,-(sp)
3251move #511,-(sp)
3252move #139,-(sp)
3253clr -(sp)
3254jsr _lseg
3255addq.l #8,sp
3256*line 999
3257move #10,(sp)
3258move #83,-(sp)
3259move #39,-(sp)
3260move #69,-(sp)
3261move #39,-(sp)
3262jsr _lseg
3263addq.l #8,sp
3264*line 1000
3265move #10,(sp)
3266move #139,-(sp)
3267move #95,-(sp)
3268clr -(sp)
3269move #95,-(sp)
3270jsr _lseg
3271addq.l #8,sp
3272*line 1001
3273move #10,(sp)
3274move #139,-(sp)
3275move #191,-(sp)
3276clr -(sp)
3277move #191,-(sp)
3278jsr _lseg
3279addq.l #8,sp
3280*line 1002
3281move #10,(sp)
3282move #139,-(sp)
3283move #303,-(sp)
3284clr -(sp)
3285move #303,-(sp)
3286jsr _lseg
3287addq.l #8,sp
3288L168:unlk R14
3289rts
3290.globl _asgdsp
3291.text
3292_asgdsp:
3293~~asgdsp:
3294link R14,#-4
3295*line 1016
3296move.l #_v_score,_asgob
3297*line 1017
3298move.l #_v_curs0,_obj0
3299*line 1018
3300move.l #_v_tcur,_obj2
3301*line 1019
3302move.l #144+_v_obtab,_adoct
3303*line 1021
3304clr _adnamsw
3305*line 1022
3306clr _submenu
3307*line 1023
3308move #-1,_admctl
3309*line 1025
3310jsr _dswap
3311*line 1027
3312clr (sp)
3313jsr _vbank
3314*line 1028
3315move #32767,(sp)
3316clr -(sp)
3317move.l _asgob,-(sp)
3318jsr _memsetw
3319addq.l #6,sp
3320*line 1029
3321move #12033,(sp)
3322clr -(sp)
3323move.l _asgob,R0
3324add.l #$fffe,R0
3325move.l R0,-(sp)
3326jsr _memsetw
3327addq.l #6,sp
3328*line 1031
3329move #-1,(sp)
3330move #1536,-(sp)
3331clr -(sp)
3332clr -(sp)
3333move #350,-(sp)
3334move #512,-(sp)
3335move.l _asgob,-(sp)
3336clr -(sp)
3337clr -(sp)
3338move #8,-(sp)
3339jsr _SetObj
3340adda.l #20,sp
3341*line 1032
3342move #-1,(sp)
3343move #1540,-(sp)
3344clr -(sp)
3345move #72,-(sp)
3346move #16,-(sp)
3347move #16,-(sp)
3348move.l _obj0,-(sp)
3349move #1,-(sp)
3350clr -(sp)
3351clr -(sp)
3352jsr _SetObj
3353adda.l #20,sp
3354*line 1033
3355move #-1,(sp)
3356move #1572,-(sp)
3357clr -(sp)
3358clr -(sp)
3359move #16,-(sp)
3360move #16,-(sp)
3361move.l _obj2,-(sp)
3362move #1,-(sp)
3363clr -(sp)
3364move #2,-(sp)
3365jsr _SetObj
3366adda.l #20,sp
3367*line 1035
3368move #1,(sp)
3369jsr _arcurs
3370*line 1036
3371move #1,(sp)
3372jsr _itcini
3373*line 1037
3374move #1,(sp)
3375jsr _ttcini
3376*line 1039
3377jsr _adbord
3378*line 1040
3379jsr _awins
3380*line 1042
3381move #8,(sp)
3382move #8,-(sp)
3383jsr _SetPri
3384addq.l #2,sp
3385*line 1044
3386move #9,(sp)
3387clr -(sp)
3388jsr _settc
3389addq.l #2,sp
3390*line 1046
3391move.l #_asgpal,(sp)
3392jsr _vsndpal
3393L169:unlk R14
3394rts
3395.data
3396L1:.dc.b $20,$0
3397L2:.dc.b $31,$0
3398L3:.dc.b $32,$0
3399L4:.dc.b $4C,$0
3400L5:.dc.b $31,$20,$50,$63,$68,$2F,$48,$6F,$72,$0
3401L6:.dc.b $32,$20,$4D,$6F,$64,$2F,$56,$72,$74,$0
3402L7:.dc.b $33,$20,$42,$72,$74,$68,$2F,$4C,$50,$0
3403L8:.dc.b $34,$20,$47,$50,$43,$2F,$43,$56,$31,$0
3404L9:.dc.b $35,$20,$50,$65,$64,$61,$6C,$20,$31,$0
3405L10:.dc.b $36,$20,$4B,$65,$79,$20,$50,$72,$73,$0
3406L52:.dc.b $25,$63,$0
3407L54:.dc.b $20,$0
3408L59:.dc.b $20,$20,$0
3409L61:.dc.b $25,$30,$32,$2E,$32,$64,$0
3410L66:.dc.b $25,$30,$32,$2E,$32,$64,$0
3411L67:.dc.b $25,$2D,$31,$30,$2E,$31,$30,$73,$0
3412L70:.dc.b $25,$30,$32,$2E,$32,$64,$0
3413L72:.dc.b $6F,$66,$20,$47,$72,$6F,$75,$70,$73,$0
3414L73:.dc.b $74,$6F,$20,$56,$6F,$69,$63,$65,$73,$0
3415L74:.dc.b $56,$20,$47,$72,$20,$20,$56,$20,$47,$72,$0
3416L79:.dc.b $25,$63,$20,$25,$73,$0
3417L80:.dc.b $25,$63,$20,$25,$73,$0
3418L82:.dc.b $53,$6F,$75,$72,$63,$65,$73,$20,$61,$6E,$64,$0
3419L83:.dc.b $43,$6F,$6E,$74,$72,$6F,$6C,$6C,$65,$72,$73,$0
3420L84:.dc.b $23,$20,$53,$6F,$75,$72,$63,$65,$20,$20,$43,$4E,$0
3421L93:.dc.b $25,$73,$0
3422L96:.dc.b $44,$79,$6E,$61,$6D,$69,$63,$73,$2C,$20,$4D,$49,$44,$49,$20,$50,$6F,$72,$74,$73,$20,$61,$6E,$64,$0
3423L97:.dc.b $43,$68,$61,$6E,$6E,$65,$6C,$73,$20,$74,$6F,$20,$47,$72,$6F,$75,$70,$73,$0
3424L98:.dc.b $47,$20,$49,$6E,$20,$44,$20,$49,$20,$43,$68,$20,$20,$47,$20,$49,$6E,$20,$44,$20,$49,$20,$43,$68,$0
3425L103:.dc.b $25,$63,$20,$25,$30,$32,$2E,$32,$64,$20,$25,$64,$20,$25,$73,$20,$25,$73,$20,$20,$25,$63,$20,$25,$30,$32,$2E,$32,$64,$20
3426.dc.b $25,$64,$20,$25,$73,$20,$25,$73,$0
3427L112:.dc.b $41,$75,$78,$0
3428L114:.dc.b $54,$75,$6E,$0
3429L115:.dc.b $25,$64,$0
3430L117:.dc.b $49,$6E,$74,$6E,$73,$74,$79,$20,$25,$30,$32,$2E,$32,$64,$0
3431L118:.dc.b $4D,$6F,$64,$52,$61,$74,$65,$20,$25,$30,$32,$2E,$32,$64,$0
3432L119:.dc.b $4D,$6F,$64,$44,$70,$74,$68,$20,$25,$30,$32,$2E,$32,$64,$0
3433L138:.dc.b $7B,$75,$6E,$75,$73,$65,$64,$7D,$20,$20,$20,$20,$20,$20,$20,$20,$0
3434L139:.dc.b $7B,$44,$65,$66,$61,$75,$6C,$74,$7D,$20,$20,$20,$20,$20,$20,$20,$0
Note: See TracBrowser for help on using the repository browser.