source: buchla-68k/alcyon/adfield.s@ 9519422

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 20.7 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 _adnamsw
43.globl _asgmod
44.globl _astat
45.globl _cmtype
46.globl _cmfirst
47.globl _curasg
48.globl _curhold
49.globl _curmop
50.globl _curslim
51.globl _cxval
52.globl _cyval
53.globl _cxrate
54.globl _cyrate
55.globl _hcwval
56.globl _hitbox
57.globl _hitcx
58.globl _hitcy
59.globl _stccol
60.globl _stcrow
61.globl _thcwval
62.globl _tvcwval
63.globl _vcwval
64.globl _vtccol
65.globl _vtcrow
66.globl _vtwcol
67.globl _vtwrow
68.globl _vtxval
69.globl _vtyval
70.globl _crate1
71.globl _asgob
72.globl _asgtab
73.globl _adboxes
74.globl _csbp
75.globl _grp2prt
76.globl _key2grp
77.globl _mctlnum
78.globl _vce2grp
79.globl _ad_fet1
80.data
81_ad_fet1:
82.dc.w $0
83.dc.w $9
84.dc.w $A
85.dc.w $0
86*line 93
87.dc.l _et_atab
88*line 93
89.dc.l _ef_atab
90*line 93
91.dc.l _rd_atab
92*line 93
93.dc.l _nd_atab
94.dc.w $1
95.dc.w $1
96.dc.w $A
97.dc.w $0
98*line 95
99.dc.l _et_null
100*line 95
101.dc.l _ef_null
102*line 95
103.dc.l _rd_null
104*line 95
105.dc.l _nd_null
106.dc.w $4
107.dc.w $A
108.dc.w $A
109.dc.w $2
110*line 97
111.dc.l _et_aopt
112*line 97
113.dc.l _ef_aopt
114*line 97
115.dc.l _rd_aopt
116*line 97
117.dc.l _nd_aopt
118.dc.w $3
119.dc.w $9
120.dc.w $A
121.dc.w $3
122*line 99
123.dc.l _et_aprg
124*line 99
125.dc.l _ef_aprg
126*line 99
127.dc.l _rd_aprg
128*line 99
129.dc.l _nd_aprg
130.dc.w $4
131.dc.w $F
132.dc.w $10
133.dc.w $4
134*line 101
135.dc.l _et_avgr
136*line 101
137.dc.l _ef_avgr
138*line 101
139.dc.l _rd_avgr
140*line 101
141.dc.l _nd_avgr
142.dc.w $5
143.dc.w $F
144.dc.w $10
145.dc.w $104
146*line 102
147.dc.l _et_avgr
148*line 102
149.dc.l _ef_avgr
150*line 102
151.dc.l _rd_avgr
152*line 102
153.dc.l _nd_avgr
154.dc.w $6
155.dc.w $F
156.dc.w $10
157.dc.w $204
158*line 103
159.dc.l _et_avgr
160*line 103
161.dc.l _ef_avgr
162*line 103
163.dc.l _rd_avgr
164*line 103
165.dc.l _nd_avgr
166.dc.w $7
167.dc.w $F
168.dc.w $10
169.dc.w $304
170*line 104
171.dc.l _et_avgr
172*line 104
173.dc.l _ef_avgr
174*line 104
175.dc.l _rd_avgr
176*line 104
177.dc.l _nd_avgr
178.dc.w $8
179.dc.w $F
180.dc.w $10
181.dc.w $404
182*line 105
183.dc.l _et_avgr
184*line 105
185.dc.l _ef_avgr
186*line 105
187.dc.l _rd_avgr
188*line 105
189.dc.l _nd_avgr
190.dc.w $9
191.dc.w $F
192.dc.w $10
193.dc.w $504
194*line 106
195.dc.l _et_avgr
196*line 106
197.dc.l _ef_avgr
198*line 106
199.dc.l _rd_avgr
200*line 106
201.dc.l _nd_avgr
202.dc.w $4
203.dc.w $15
204.dc.w $16
205.dc.w $604
206*line 107
207.dc.l _et_avgr
208*line 107
209.dc.l _ef_avgr
210*line 107
211.dc.l _rd_avgr
212*line 107
213.dc.l _nd_avgr
214.dc.w $5
215.dc.w $15
216.dc.w $16
217.dc.w $704
218*line 108
219.dc.l _et_avgr
220*line 108
221.dc.l _ef_avgr
222*line 108
223.dc.l _rd_avgr
224*line 108
225.dc.l _nd_avgr
226.dc.w $6
227.dc.w $15
228.dc.w $16
229.dc.w $804
230*line 109
231.dc.l _et_avgr
232*line 109
233.dc.l _ef_avgr
234*line 109
235.dc.l _rd_avgr
236*line 109
237.dc.l _nd_avgr
238.dc.w $7
239.dc.w $15
240.dc.w $16
241.dc.w $904
242*line 110
243.dc.l _et_avgr
244*line 110
245.dc.l _ef_avgr
246*line 110
247.dc.l _rd_avgr
248*line 110
249.dc.l _nd_avgr
250.dc.w $8
251.dc.w $15
252.dc.w $16
253.dc.w $A04
254*line 111
255.dc.l _et_avgr
256*line 111
257.dc.l _ef_avgr
258*line 111
259.dc.l _rd_avgr
260*line 111
261.dc.l _nd_avgr
262.dc.w $9
263.dc.w $15
264.dc.w $16
265.dc.w $B04
266*line 112
267.dc.l _et_avgr
268*line 112
269.dc.l _ef_avgr
270*line 112
271.dc.l _rd_avgr
272*line 112
273.dc.l _nd_avgr
274.dc.w $5
275.dc.w $23
276.dc.w $24
277.dc.w $5
278*line 114
279.dc.l _et_accn
280*line 114
281.dc.l _ef_accn
282*line 114
283.dc.l _rd_accn
284*line 114
285.dc.l _nd_accn
286.dc.w $6
287.dc.w $23
288.dc.w $24
289.dc.w $105
290*line 115
291.dc.l _et_accn
292*line 115
293.dc.l _ef_accn
294*line 115
295.dc.l _rd_accn
296*line 115
297.dc.l _nd_accn
298.dc.w $7
299.dc.w $23
300.dc.w $24
301.dc.w $205
302*line 116
303.dc.l _et_accn
304*line 116
305.dc.l _ef_accn
306*line 116
307.dc.l _rd_accn
308*line 116
309.dc.l _nd_accn
310.dc.w $8
311.dc.w $23
312.dc.w $24
313.dc.w $305
314*line 117
315.dc.l _et_accn
316*line 117
317.dc.l _ef_accn
318*line 117
319.dc.l _rd_accn
320*line 117
321.dc.l _nd_accn
322.dc.w $4
323.dc.w $2E
324.dc.w $2E
325.dc.w $6
326*line 119
327.dc.l _et_agpt
328*line 119
329.dc.l _ef_agpt
330*line 119
331.dc.l _rd_agpt
332*line 119
333.dc.l _nd_agpt
334.dc.w $5
335.dc.w $2E
336.dc.w $2E
337.dc.w $106
338*line 120
339.dc.l _et_agpt
340*line 120
341.dc.l _ef_agpt
342*line 120
343.dc.l _rd_agpt
344*line 120
345.dc.l _nd_agpt
346.dc.w $6
347.dc.w $2E
348.dc.w $2E
349.dc.w $206
350*line 121
351.dc.l _et_agpt
352*line 121
353.dc.l _ef_agpt
354*line 121
355.dc.l _rd_agpt
356*line 121
357.dc.l _nd_agpt
358.dc.w $7
359.dc.w $2E
360.dc.w $2E
361.dc.w $306
362*line 122
363.dc.l _et_agpt
364*line 122
365.dc.l _ef_agpt
366*line 122
367.dc.l _rd_agpt
368*line 122
369.dc.l _nd_agpt
370.dc.w $8
371.dc.w $2E
372.dc.w $2E
373.dc.w $406
374*line 123
375.dc.l _et_agpt
376*line 123
377.dc.l _ef_agpt
378*line 123
379.dc.l _rd_agpt
380*line 123
381.dc.l _nd_agpt
382.dc.w $9
383.dc.w $2E
384.dc.w $2E
385.dc.w $506
386*line 124
387.dc.l _et_agpt
388*line 124
389.dc.l _ef_agpt
390*line 124
391.dc.l _rd_agpt
392*line 124
393.dc.l _nd_agpt
394.dc.w $4
395.dc.w $3B
396.dc.w $3B
397.dc.w $606
398*line 125
399.dc.l _et_agpt
400*line 125
401.dc.l _ef_agpt
402*line 125
403.dc.l _rd_agpt
404*line 125
405.dc.l _nd_agpt
406.dc.w $5
407.dc.w $3B
408.dc.w $3B
409.dc.w $706
410*line 126
411.dc.l _et_agpt
412*line 126
413.dc.l _ef_agpt
414*line 126
415.dc.l _rd_agpt
416*line 126
417.dc.l _nd_agpt
418.dc.w $6
419.dc.w $3B
420.dc.w $3B
421.dc.w $806
422*line 127
423.dc.l _et_agpt
424*line 127
425.dc.l _ef_agpt
426*line 127
427.dc.l _rd_agpt
428*line 127
429.dc.l _nd_agpt
430.dc.w $7
431.dc.w $3B
432.dc.w $3B
433.dc.w $906
434*line 128
435.dc.l _et_agpt
436*line 128
437.dc.l _ef_agpt
438*line 128
439.dc.l _rd_agpt
440*line 128
441.dc.l _nd_agpt
442.dc.w $8
443.dc.w $3B
444.dc.w $3B
445.dc.w $A06
446*line 129
447.dc.l _et_agpt
448*line 129
449.dc.l _ef_agpt
450*line 129
451.dc.l _rd_agpt
452*line 129
453.dc.l _nd_agpt
454.dc.w $9
455.dc.w $3B
456.dc.w $3B
457.dc.w $B06
458*line 130
459.dc.l _et_agpt
460*line 130
461.dc.l _ef_agpt
462*line 130
463.dc.l _rd_agpt
464*line 130
465.dc.l _nd_agpt
466.dc.w $4
467.dc.w $30
468.dc.w $31
469.dc.w $6
470*line 132
471.dc.l _et_agch
472*line 132
473.dc.l _ef_agch
474*line 132
475.dc.l _rd_agch
476*line 132
477.dc.l _nd_agch
478.dc.w $5
479.dc.w $30
480.dc.w $31
481.dc.w $106
482*line 133
483.dc.l _et_agch
484*line 133
485.dc.l _ef_agch
486*line 133
487.dc.l _rd_agch
488*line 133
489.dc.l _nd_agch
490.dc.w $6
491.dc.w $30
492.dc.w $31
493.dc.w $206
494*line 134
495.dc.l _et_agch
496*line 134
497.dc.l _ef_agch
498*line 134
499.dc.l _rd_agch
500*line 134
501.dc.l _nd_agch
502.dc.w $7
503.dc.w $30
504.dc.w $31
505.dc.w $306
506*line 135
507.dc.l _et_agch
508*line 135
509.dc.l _ef_agch
510*line 135
511.dc.l _rd_agch
512*line 135
513.dc.l _nd_agch
514.dc.w $8
515.dc.w $30
516.dc.w $31
517.dc.w $406
518*line 136
519.dc.l _et_agch
520*line 136
521.dc.l _ef_agch
522*line 136
523.dc.l _rd_agch
524*line 136
525.dc.l _nd_agch
526.dc.w $9
527.dc.w $30
528.dc.w $31
529.dc.w $506
530*line 137
531.dc.l _et_agch
532*line 137
533.dc.l _ef_agch
534*line 137
535.dc.l _rd_agch
536*line 137
537.dc.l _nd_agch
538.dc.w $4
539.dc.w $3D
540.dc.w $3E
541.dc.w $606
542*line 138
543.dc.l _et_agch
544*line 138
545.dc.l _ef_agch
546*line 138
547.dc.l _rd_agch
548*line 138
549.dc.l _nd_agch
550.dc.w $5
551.dc.w $3D
552.dc.w $3E
553.dc.w $706
554*line 139
555.dc.l _et_agch
556*line 139
557.dc.l _ef_agch
558*line 139
559.dc.l _rd_agch
560*line 139
561.dc.l _nd_agch
562.dc.w $6
563.dc.w $3D
564.dc.w $3E
565.dc.w $806
566*line 140
567.dc.l _et_agch
568*line 140
569.dc.l _ef_agch
570*line 140
571.dc.l _rd_agch
572*line 140
573.dc.l _nd_agch
574.dc.w $7
575.dc.w $3D
576.dc.w $3E
577.dc.w $906
578*line 141
579.dc.l _et_agch
580*line 141
581.dc.l _ef_agch
582*line 141
583.dc.l _rd_agch
584*line 141
585.dc.l _nd_agch
586.dc.w $8
587.dc.w $3D
588.dc.w $3E
589.dc.w $A06
590*line 142
591.dc.l _et_agch
592*line 142
593.dc.l _ef_agch
594*line 142
595.dc.l _rd_agch
596*line 142
597.dc.l _nd_agch
598.dc.w $9
599.dc.w $3D
600.dc.w $3E
601.dc.w $B06
602*line 143
603.dc.l _et_agch
604*line 143
605.dc.l _ef_agch
606*line 143
607.dc.l _rd_agch
608*line 143
609.dc.l _nd_agch
610.dc.w $4
611.dc.w $29
612.dc.w $2A
613.dc.w $6
614*line 145
615.dc.l _et_ains
616*line 145
617.dc.l _ef_ains
618*line 145
619.dc.l _rd_ains
620*line 145
621.dc.l _nd_ains
622.dc.w $5
623.dc.w $29
624.dc.w $2A
625.dc.w $106
626*line 146
627.dc.l _et_ains
628*line 146
629.dc.l _ef_ains
630*line 146
631.dc.l _rd_ains
632*line 146
633.dc.l _nd_ains
634.dc.w $6
635.dc.w $29
636.dc.w $2A
637.dc.w $206
638*line 147
639.dc.l _et_ains
640*line 147
641.dc.l _ef_ains
642*line 147
643.dc.l _rd_ains
644*line 147
645.dc.l _nd_ains
646.dc.w $7
647.dc.w $29
648.dc.w $2A
649.dc.w $306
650*line 148
651.dc.l _et_ains
652*line 148
653.dc.l _ef_ains
654*line 148
655.dc.l _rd_ains
656*line 148
657.dc.l _nd_ains
658.dc.w $8
659.dc.w $29
660.dc.w $2A
661.dc.w $406
662*line 149
663.dc.l _et_ains
664*line 149
665.dc.l _ef_ains
666*line 149
667.dc.l _rd_ains
668*line 149
669.dc.l _nd_ains
670.dc.w $9
671.dc.w $29
672.dc.w $2A
673.dc.w $506
674*line 150
675.dc.l _et_ains
676*line 150
677.dc.l _ef_ains
678*line 150
679.dc.l _rd_ains
680*line 150
681.dc.l _nd_ains
682.dc.w $4
683.dc.w $36
684.dc.w $37
685.dc.w $606
686*line 151
687.dc.l _et_ains
688*line 151
689.dc.l _ef_ains
690*line 151
691.dc.l _rd_ains
692*line 151
693.dc.l _nd_ains
694.dc.w $5
695.dc.w $36
696.dc.w $37
697.dc.w $706
698*line 152
699.dc.l _et_ains
700*line 152
701.dc.l _ef_ains
702*line 152
703.dc.l _rd_ains
704*line 152
705.dc.l _nd_ains
706.dc.w $6
707.dc.w $36
708.dc.w $37
709.dc.w $806
710*line 153
711.dc.l _et_ains
712*line 153
713.dc.l _ef_ains
714*line 153
715.dc.l _rd_ains
716*line 153
717.dc.l _nd_ains
718.dc.w $7
719.dc.w $36
720.dc.w $37
721.dc.w $906
722*line 154
723.dc.l _et_ains
724*line 154
725.dc.l _ef_ains
726*line 154
727.dc.l _rd_ains
728*line 154
729.dc.l _nd_ains
730.dc.w $8
731.dc.w $36
732.dc.w $37
733.dc.w $A06
734*line 155
735.dc.l _et_ains
736*line 155
737.dc.l _ef_ains
738*line 155
739.dc.l _rd_ains
740*line 155
741.dc.l _nd_ains
742.dc.w $9
743.dc.w $36
744.dc.w $37
745.dc.w $B06
746*line 156
747.dc.l _et_ains
748*line 156
749.dc.l _ef_ains
750*line 156
751.dc.l _rd_ains
752*line 156
753.dc.l _nd_ains
754.dc.w $4
755.dc.w $2C
756.dc.w $2C
757.dc.w $6
758*line 158
759.dc.l _et_adyn
760*line 158
761.dc.l _ef_adyn
762*line 158
763.dc.l _rd_adyn
764*line 158
765.dc.l _nd_adyn
766.dc.w $5
767.dc.w $2C
768.dc.w $2C
769.dc.w $106
770*line 159
771.dc.l _et_adyn
772*line 159
773.dc.l _ef_adyn
774*line 159
775.dc.l _rd_adyn
776*line 159
777.dc.l _nd_adyn
778.dc.w $6
779.dc.w $2C
780.dc.w $2C
781.dc.w $206
782*line 160
783.dc.l _et_adyn
784*line 160
785.dc.l _ef_adyn
786*line 160
787.dc.l _rd_adyn
788*line 160
789.dc.l _nd_adyn
790.dc.w $7
791.dc.w $2C
792.dc.w $2C
793.dc.w $306
794*line 161
795.dc.l _et_adyn
796*line 161
797.dc.l _ef_adyn
798*line 161
799.dc.l _rd_adyn
800*line 161
801.dc.l _nd_adyn
802.dc.w $8
803.dc.w $2C
804.dc.w $2C
805.dc.w $406
806*line 162
807.dc.l _et_adyn
808*line 162
809.dc.l _ef_adyn
810*line 162
811.dc.l _rd_adyn
812*line 162
813.dc.l _nd_adyn
814.dc.w $9
815.dc.w $2C
816.dc.w $2C
817.dc.w $506
818*line 163
819.dc.l _et_adyn
820*line 163
821.dc.l _ef_adyn
822*line 163
823.dc.l _rd_adyn
824*line 163
825.dc.l _nd_adyn
826.dc.w $4
827.dc.w $39
828.dc.w $39
829.dc.w $606
830*line 164
831.dc.l _et_adyn
832*line 164
833.dc.l _ef_adyn
834*line 164
835.dc.l _rd_adyn
836*line 164
837.dc.l _nd_adyn
838.dc.w $5
839.dc.w $39
840.dc.w $39
841.dc.w $706
842*line 165
843.dc.l _et_adyn
844*line 165
845.dc.l _ef_adyn
846*line 165
847.dc.l _rd_adyn
848*line 165
849.dc.l _nd_adyn
850.dc.w $6
851.dc.w $39
852.dc.w $39
853.dc.w $806
854*line 166
855.dc.l _et_adyn
856*line 166
857.dc.l _ef_adyn
858*line 166
859.dc.l _rd_adyn
860*line 166
861.dc.l _nd_adyn
862.dc.w $7
863.dc.w $39
864.dc.w $39
865.dc.w $906
866*line 167
867.dc.l _et_adyn
868*line 167
869.dc.l _ef_adyn
870*line 167
871.dc.l _rd_adyn
872*line 167
873.dc.l _nd_adyn
874.dc.w $8
875.dc.w $39
876.dc.w $39
877.dc.w $A06
878*line 168
879.dc.l _et_adyn
880*line 168
881.dc.l _ef_adyn
882*line 168
883.dc.l _rd_adyn
884*line 168
885.dc.l _nd_adyn
886.dc.w $9
887.dc.w $39
888.dc.w $39
889.dc.w $B06
890*line 169
891.dc.l _et_adyn
892*line 169
893.dc.l _ef_adyn
894*line 169
895.dc.l _rd_adyn
896*line 169
897.dc.l _nd_adyn
898.dc.w $5
899.dc.w $A
900.dc.w $A
901.dc.w $9
902*line 171
903.dc.l _et_atun
904*line 171
905.dc.l _ef_atun
906*line 171
907.dc.l _rd_atun
908*line 171
909.dc.l _nd_atun
910.dc.w $7
911.dc.w $9
912.dc.w $A
913.dc.w $A
914*line 173
915.dc.l _et_aint
916*line 173
917.dc.l _ef_aint
918*line 173
919.dc.l _rd_aint
920*line 173
921.dc.l _nd_aint
922.dc.w $8
923.dc.w $9
924.dc.w $A
925.dc.w $A
926*line 174
927.dc.l _et_arat
928*line 174
929.dc.l _ef_arat
930*line 174
931.dc.l _rd_arat
932*line 174
933.dc.l _nd_arat
934.dc.w $9
935.dc.w $9
936.dc.w $A
937.dc.w $A
938*line 175
939.dc.l _et_adep
940*line 175
941.dc.l _ef_adep
942*line 175
943.dc.l _rd_adep
944*line 175
945.dc.l _nd_adep
946.dc.w $0
947.dc.w $0
948.dc.w $0
949.dc.w $0
950.dc.l $0
951.dc.l $0
952.dc.l $0
953.dc.l $0
954.globl _adbox
955.data
956_adbox:
957.dc.w $1
958.dc.w $1
959.dc.w $5E
960.dc.w $1B
961.dc.w $B
962.dc.w $2
963.dc.w $0
964.dc.w $1
965.dc.w $1
966.dc.w $1C
967.dc.w $5E
968.dc.w $28
969.dc.w $B
970.dc.w $2
971.dc.w $2
972.dc.w $1
973.dc.w $1
974.dc.w $38
975.dc.w $5E
976.dc.w $44
977.dc.w $B
978.dc.w $2
979.dc.w $4
980.dc.w $1
981.dc.w $1
982.dc.w $2A
983.dc.w $5E
984.dc.w $36
985.dc.w $B
986.dc.w $4
987.dc.w $3
988.dc.w $1
989.dc.w $60
990.dc.w $1
991.dc.w $BE
992.dc.w $8A
993.dc.w $B
994.dc.w $3
995.dc.w $0
996.dc.w $D
997.dc.w $C0
998.dc.w $1
999.dc.w $12E
1000.dc.w $8A
1001.dc.w $B
1002.dc.w $2
1003.dc.w $0
1004.dc.w $19
1005.dc.w $130
1006.dc.w $1
1007.dc.w $1FE
1008.dc.w $8A
1009.dc.w $B
1010.dc.w $3
1011.dc.w $0
1012.dc.w $27
1013.dc.w $1
1014.dc.w $8C
1015.dc.w $1FE
1016.dc.w $15C
1017.dc.w $B
1018.dc.w $5
1019.dc.w $A
1020.dc.w $1
1021.dc.w $1
1022.dc.w $46
1023.dc.w $26
1024.dc.w $52
1025.dc.w $B
1026.dc.w $3
1027.dc.w $5
1028.dc.w $1
1029.dc.w $28
1030.dc.w $46
1031.dc.w $5E
1032.dc.w $52
1033.dc.w $B
1034.dc.w $4
1035.dc.w $5
1036.dc.w $6
1037.dc.w $1
1038.dc.w $54
1039.dc.w $5E
1040.dc.w $8A
1041.dc.w $B
1042.dc.w $2
1043.dc.w $6
1044.dc.w $1
1045.globl _adbxlb
1046.data
1047_adbxlb:
1048*line 200
1049.dc.l L1
1050*line 201
1051.dc.l L2
1052*line 202
1053.dc.l L3
1054*line 203
1055.dc.l L4
1056*line 204
1057.dc.l L5
1058*line 205
1059.dc.l L6
1060*line 206
1061.dc.l L7
1062*line 207
1063.dc.l L8
1064*line 208
1065.dc.l L9
1066*line 209
1067.dc.l L10
1068*line 211
1069.dc.l L11
1070.globl _ad_flds
1071.data
1072_ad_flds:
1073*line 218
1074.dc.l _stdctp4
1075*line 219
1076.dc.l _nokey
1077*line 220
1078.dc.l _nokey
1079*line 221
1080.dc.l _cxkstd
1081*line 222
1082.dc.l _cykstd
1083*line 223
1084.dc.l _adcxupd
1085*line 224
1086.dc.l _adcyupd
1087*line 225
1088.dc.l _nokey
1089*line 226
1090.dc.l _nokey
1091*line 227
1092.dc.l _ad_xkey
1093*line 228
1094.dc.l _select
1095*line 229
1096.dc.l _stdmkey
1097*line 230
1098.dc.l _stddkey
1099*line 231
1100.dc.l _nokey
1101*line 232
1102.dc.l _ad_fet1
1103*line 233
1104.dc.l _adboxes
1105*line 234
1106.dc.l _crate1
1107*line 235
1108.dc.l _crate1
1109.dc.w $0
1110.dc.w $0
1111.dc.w $7E
1112.globl _adcyupd
1113.text
1114_adcyupd:
1115~~adcyupd:
1116link R14,#-4
1117*line 252
1118*line 252
1119tst _adnamsw
1120beq L13
1121*line 253
1122*line 254
1123move _cyrate,R0
1124add R0,_vtyval
1125move _vtyval,R0
1126ext.l R0
1127divs #14,R0
1128move R0,_vtcrow
1129*line 255
1130*line 256
1131*line 257
1132move _vtwrow,R0
1133add #2,R0
1134cmp _vtcrow,R0
1135bge L14
1136*line 257
1137move _vtwrow,R0
1138add #2,R0
1139move R0,_vtcrow
1140muls #14,R0
1141move R0,_vtyval
1142bra L15
1143L14:
1144*line 258
1145*line 259
1146move _vtcrow,R0
1147cmp _vtwrow,R0
1148bge L16
1149*line 259
1150move _vtwrow,R0
1151move R0,_vtcrow
1152muls #14,R0
1153move R0,_vtyval
1154*line 260
1155L16:L15:bra L17
1156L13:
1157*line 261
1158*line 262
1159*line 263
1160move _cyrate,R0
1161add R0,_cyval
1162*line 264
1163*line 265
1164*line 266
1165cmp #348,_cyval
1166ble L18
1167*line 266
1168move #348,_cyval
1169bra L19
1170L18:
1171*line 267
1172*line 268
1173cmp #1,_cyval
1174bge L20
1175*line 268
1176move #1,_cyval
1177L20:L19:L17:L12:unlk R14
1178rts
1179.globl _adcxupd
1180.text
1181_adcxupd:
1182~~adcxupd:
1183link R14,#-4
1184*line 280
1185*line 280
1186tst _adnamsw
1187beq L22
1188*line 281
1189*line 282
1190move _cxrate,R0
1191add R0,_vtxval
1192move _vtxval,R0
1193asr #3,R0
1194move R0,_vtccol
1195*line 283
1196*line 284
1197*line 285
1198move _vtwcol,R0
1199add #29,R0
1200cmp _vtccol,R0
1201bge L23
1202*line 285
1203move _vtwcol,R0
1204add #29,R0
1205move R0,_vtccol
1206asl #3,R0
1207move R0,_vtxval
1208bra L24
1209L23:
1210*line 286
1211*line 287
1212move _vtccol,R0
1213cmp _vtwcol,R0
1214bge L25
1215*line 287
1216move _vtwcol,R0
1217move R0,_vtccol
1218asl #3,R0
1219move R0,_vtxval
1220*line 288
1221L25:L24:bra L26
1222L22:
1223*line 289
1224*line 290
1225*line 291
1226move _cxrate,R0
1227add R0,_cxval
1228*line 292
1229*line 293
1230*line 294
1231cmp #510,_cxval
1232ble L27
1233*line 294
1234move #510,_cxval
1235bra L28
1236L27:
1237*line 295
1238*line 296
1239cmp #1,_cxval
1240bge L29
1241*line 296
1242move #1,_cxval
1243L29:L28:L26:L21:unlk R14
1244rts
1245.globl _ad_xkey
1246.text
1247_ad_xkey:
1248~~ad_xkey:
1249~nn=8
1250link R14,#0
1251movem.l R3-R7,-(sp)
1252~row=R7
1253~col=R6
1254~grp=R5
1255~i=R4
1256*line 315
1257*line 315
1258tst _astat
1259beq L31
1260*line 316
1261*line 317
1262*line 317
1263jsr _whatbox
1264tst R0
1265beq L32
1266*line 318
1267*line 319
1268move _hitcy,R7
1269ext.l R7
1270divs #14,R7
1271*line 320
1272move _hitcx,R6
1273asr #3,R6
1274*line 321
1275*line 322
1276move _hitbox,R0
1277bra L34
1278*line 323
1279L35:
1280*line 324
1281*line 325
1282*line 326
1283*line 326
1284cmp #1,R7
1285bne L36
1286*line 327
1287*line 328
1288move #16,(sp)
1289move #32,-(sp)
1290move _curasg,R0
1291muls #332,R0
1292add.l #_asgtab,R0
1293move.l R0,-(sp)
1294add.l #316,(sp)
1295jsr _memset
1296addq.l #6,sp
1297*line 329
1298move #1,_asgmod
1299*line 330
1300clr (sp)
1301jsr _adswin
1302*line 331
1303clr R0
1304bra L30
1305*line 332
1306*line 333
1307bra L37
1308L36:
1309*line 334
1310move #-1,R0
1311bra L30
1312L37:L38:
1313*line 335
1314*line 336
1315*line 337
1316*line 337
1317cmp #1,R6
1318blt L39
1319cmp #10,R6
1320bgt L39
1321*line 338
1322*line 339
1323clr _curmop
1324*line 340
1325move _hitbox,(sp)
1326jsr _adswin
1327*line 341
1328jsr _modasg
1329*line 342
1330clr R0
1331bra L30
1332*line 343
1333*line 344
1334L39:bra L33
1335*line 345
1336*line 346
1337*line 347
1338L40:
1339*line 348
1340*line 349
1341*line 350
1342*line 351
1343cmp #4,R7
1344blt L33
1345*line 352
1346*line 353
1347*line 353
1348cmp #13,R6
1349blt L41
1350cmp #16,R6
1351bgt L41
1352*line 354
1353*line 355
1354move R7,R5
1355sub #4,R5
1356*line 356
1357move R5,R8
1358add.l R8,R8
1359add.l #_vce2grp,R8
1360move #-1,(R8)
1361*line 357
1362move _hitbox,(sp)
1363jsr _adswin
1364*line 358
1365jsr _modasg
1366*line 359
1367clr R0
1368bra L30
1369*line 360
1370bra L42
1371L41:
1372*line 361
1373*line 361
1374cmp #19,R6
1375blt L43
1376cmp #22,R6
1377bgt L43
1378*line 362
1379*line 363
1380move R7,R5
1381add #2,R5
1382*line 364
1383move R5,R8
1384add.l R8,R8
1385add.l #_vce2grp,R8
1386move #-1,(R8)
1387*line 365
1388move _hitbox,(sp)
1389jsr _adswin
1390*line 366
1391jsr _modasg
1392*line 367
1393clr R0
1394bra L30
1395*line 368
1396*line 369
1397L43:L42:bra L33
1398*line 370
1399*line 371
1400L44:
1401*line 372
1402*line 373
1403*line 374
1404*line 375
1405cmp #5,R7
1406blt L33
1407cmp #8,R7
1408bgt L33
1409*line 376
1410*line 377
1411*line 377
1412cmp #35,R6
1413beq L10000
1414cmp #36,R6
1415bne L45
1416L10000:*line 378
1417*line 379
1418move R7,R8
1419sub #5,R8
1420add.l R8,R8
1421add.l #_mctlnum,R8
1422move #-1,(R8)
1423*line 380
1424move _hitbox,(sp)
1425jsr _adswin
1426*line 381
1427jsr _modasg
1428*line 382
1429clr R0
1430bra L30
1431*line 383
1432*line 384
1433L45:bra L33
1434*line 385
1435*line 386
1436*line 387
1437L46:
1438*line 388
1439*line 389
1440*line 390
1441*line 391
1442cmp #4,R7
1443blt L33
1444*line 392
1445*line 393
1446*line 393
1447cmp #46,R6
1448bne L47
1449*line 394
1450*line 395
1451*line 396
1452*line 397
1453move R7,R5
1454sub #4,R5
1455*line 398
1456move R5,R8
1457add.l R8,R8
1458add.l R8,R8
1459add.l #_grp2prt,R8
1460clr (R8)
1461*line 399
1462*line 400
1463clr R4
1464bra L50
1465L51:
1466*line 401
1467move #1,R0
1468move R5,R1
1469asl R1,R0
1470not R0
1471move R4,R9
1472add.l R9,R9
1473add.l #_key2grp,R9
1474and R0,(R9)
1475L49:
1476*line 400
1477add #1,R4
1478L50:
1479*line 400
1480cmp #88,R4
1481blt L51
1482L48:
1483*line 401
1484*line 402
1485*line 403
1486move _hitbox,(sp)
1487jsr _adswin
1488*line 404
1489move R5,(sp)
1490jsr _drawk2g
1491*line 405
1492jsr _modasg
1493*line 406
1494clr R0
1495bra L30
1496*line 407
1497bra L52
1498L47:
1499*line 408
1500*line 408
1501cmp #48,R6
1502beq L10001
1503cmp #49,R6
1504bne L53
1505L10001:*line 409
1506*line 410
1507*line 411
1508*line 412
1509move R7,R5
1510sub #4,R5
1511*line 413
1512move R5,R8
1513add.l R8,R8
1514add.l R8,R8
1515add.l #_grp2prt,R8
1516move #-1,2(R8)
1517*line 414
1518move _hitbox,(sp)
1519jsr _adswin
1520*line 415
1521jsr _modasg
1522*line 416
1523clr R0
1524bra L30
1525*line 417
1526*line 418
1527bra L54
1528L53:
1529*line 419
1530*line 419
1531cmp #59,R6
1532bne L55
1533*line 420
1534*line 421
1535*line 422
1536*line 423
1537move R7,R5
1538add #2,R5
1539*line 424
1540move R5,R8
1541add.l R8,R8
1542add.l R8,R8
1543add.l #_grp2prt,R8
1544clr (R8)
1545*line 425
1546*line 426
1547clr R4
1548bra L58
1549L59:
1550*line 427
1551move #1,R0
1552move R5,R1
1553asl R1,R0
1554not R0
1555move R4,R9
1556add.l R9,R9
1557add.l #_key2grp,R9
1558and R0,(R9)
1559L57:
1560*line 426
1561add #1,R4
1562L58:
1563*line 426
1564cmp #88,R4
1565blt L59
1566L56:
1567*line 427
1568*line 428
1569*line 429
1570move _hitbox,(sp)
1571jsr _adswin
1572*line 430
1573move R5,(sp)
1574jsr _drawk2g
1575*line 431
1576jsr _modasg
1577*line 432
1578clr R0
1579bra L30
1580*line 433
1581bra L60
1582L55:
1583*line 434
1584*line 434
1585cmp #61,R6
1586beq L10002
1587cmp #62,R6
1588bne L61
1589L10002:*line 435
1590*line 436
1591*line 437
1592*line 438
1593move R7,R5
1594add #2,R5
1595*line 439
1596move R5,R8
1597add.l R8,R8
1598add.l R8,R8
1599add.l #_grp2prt,R8
1600move #-1,2(R8)
1601*line 440
1602move _hitbox,(sp)
1603jsr _adswin
1604*line 441
1605jsr _modasg
1606*line 442
1607clr R0
1608bra L30
1609*line 443
1610*line 444
1611L61:L60:L54:L52:bra L33
1612*line 445
1613bra L33
1614L34:cmp #6,R0
1615bhi L33
1616asl #2,R0
1617move R0,R8
1618add.l #L62,R8
1619move.l (R8),R8
1620jmp (R8)
1621.data
1622L62:.dc.l L35
1623.dc.l L33
1624.dc.l L38
1625.dc.l L33
1626.dc.l L40
1627.dc.l L44
1628.dc.l L46
1629.text
1630L33:
1631*line 446
1632*line 447
1633L32:
1634*line 448
1635*line 449
1636L31:
1637*line 450
1638move #-1,R0
1639bra L30
1640L30:tst.l (sp)+
1641movem.l (sp)+,R4-R7
1642unlk R14
1643rts
1644.globl _adfield
1645.text
1646_adfield:
1647~~adfield:
1648link R14,#-4
1649*line 464
1650move #140,_curslim
1651*line 466
1652move.l #_ad_flds,(sp)
1653jsr _curset
1654L63:unlk R14
1655rts
1656.data
1657L1:.dc.b $41,$73,$67,$6E,$6D,$6E,$74,$0
1658L2:.dc.b $53,$74,$6F,$72,$2F,$46,$65,$74,$63,$68,$0
1659L3:.dc.b $4D,$49,$44,$49,$20,$6F,$75,$74,$0
1660L4:.dc.b $50,$72,$67,$43,$68,$6E,$67,$0
1661L5:.dc.b $41,$73,$73,$69,$67,$6E,$6D,$65,$6E,$74,$0
1662L6:.dc.b $41,$73,$73,$69,$67,$6E,$6D,$6E,$74,$20,$6F,$66,$0
1663L7:.dc.b $41,$73,$73,$69,$67,$6E,$6D,$6E,$74,$20,$6F,$66,$20,$49,$6E,$73,$74,$72,$75,$6D,$65,$6E,$74,$73,$2C,$0
1664L8:.dc.b $47,$20,$41,$73,$73,$69,$67,$6E,$6D,$65,$6E,$74,$20,$6F,$66,$20,$4B,$65,$79,$73,$20,$74,$6F,$20,$47,$72,$6F,$75,$70,$73
1665.dc.b $20,$66,$6F,$72,$20,$4D,$49,$44,$49,$20,$50,$6F,$72,$74,$20,$31,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20
1666.dc.b $20,$47,$0
1667L9:.dc.b $0
1668L10:.dc.b $54,$75,$6E,$0
1669L11:.dc.b $50,$68,$61,$73,$65,$53,$68,$69,$66,$74,$0
Note: See TracBrowser for help on using the repository browser.