source: buchla-68k/alcyon/scfield.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: 36.2 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 _ac_code
43.globl _scname
44.globl _se_chg
45.globl _curscor
46.globl _cursect
47.globl _se1_cnt
48.globl _se2_cnt
49.globl _se3_cnt
50.globl _spool
51.globl _pspool
52.globl _spcount
53.globl _frags
54.globl _t_bak
55.globl _t_cur
56.globl _t_ctr
57.globl _t_fwd
58.globl _size1
59.globl _size2
60.globl _size3
61.globl _scores
62.globl _scp
63.globl _seclist
64.globl _hplist
65.globl _p_bak
66.globl _p_cur
67.globl _p_ctr
68.globl _p_fwd
69.globl _ancmsw
70.globl _angroup
71.globl _astat
72.globl _clkrun
73.globl _cmfirst
74.globl _cmtype
75.globl _curhold
76.globl _curscor
77.globl _cxrate
78.globl _cxval
79.globl _cyrate
80.globl _cyval
81.globl _ebflag
82.globl _hcwval
83.globl _insmode
84.globl _oldpk
85.globl _oldsl
86.globl _pkctrl
87.globl _recsw
88.globl _scmctl
89.globl _sdmctl
90.globl _sliders
91.globl _stccol
92.globl _stcrow
93.globl _thcwval
94.globl _tvcwval
95.globl _vcwval
96.globl _vtccol
97.globl _vtcrow
98.globl _vtxval
99.globl _vtyval
100.globl _ctime
101.globl _t_ins
102.globl _ebuf
103.globl _crate1
104.globl _ehdlist
105.globl _grpmode
106.globl _grpstat
107.globl _grptmap
108.globl _sdmlim
109.globl _varmode
110.globl _swpt
111.globl _oldsw
112.globl _cfetp
113.globl _curfet
114.globl _infetp
115.globl _csbp
116.globl _sdboxes
117.globl _peg
118.globl _sc_fet1
119.data
120_sc_fet1:
121.dc.w $0
122.dc.w $2
123.dc.w $4
124.dc.w $0
125*line 124
126.dc.l _et_strn
127*line 124
128.dc.l _ef_strn
129*line 124
130.dc.l _rd_strn
131*line 124
132.dc.l _nd_strn
133.dc.w $0
134.dc.w $B
135.dc.w $F
136.dc.w $0
137*line 125
138.dc.l _et_snbt
139*line 125
140.dc.l _ef_snbt
141*line 125
142.dc.l _rd_snbt
143*line 125
144.dc.l _nd_snbt
145.dc.w $11
146.dc.w $B
147.dc.w $C
148.dc.w $0
149*line 127
150.dc.l _et_ioas
151*line 127
152.dc.l _ef_ioas
153*line 127
154.dc.l _rd_ioas
155*line 127
156.dc.l _nd_ioas
157.dc.w $11
158.dc.w $13
159.dc.w $13
160.dc.w $0
161*line 128
162.dc.l _et_tune
163*line 128
164.dc.l _ef_tune
165*line 128
166.dc.l _rd_tune
167*line 128
168.dc.l _nd_tune
169.dc.w $11
170.dc.w $1B
171.dc.w $1D
172.dc.w $0
173*line 129
174.dc.l _et_tmpo
175*line 129
176.dc.l _ef_tmpo
177*line 129
178.dc.l _rd_tmpo
179*line 129
180.dc.l _nd_tmpo
181.dc.w $11
182.dc.w $23
183.dc.w $26
184.dc.w $0
185*line 130
186.dc.l _et_intp
187*line 130
188.dc.l _ef_intp
189*line 130
190.dc.l _rd_intp
191*line 130
192.dc.l _nd_intp
193.dc.w $12
194.dc.w $7
195.dc.w $8
196.dc.w $0
197*line 132
198.dc.l _et_inst
199*line 132
200.dc.l _ef_inst
201*line 132
202.dc.l _rd_inst
203*line 132
204.dc.l _nd_inst
205.dc.w $12
206.dc.w $C
207.dc.w $D
208.dc.w $1
209*line 133
210.dc.l _et_inst
211*line 133
212.dc.l _ef_inst
213*line 133
214.dc.l _rd_inst
215*line 133
216.dc.l _nd_inst
217.dc.w $12
218.dc.w $11
219.dc.w $12
220.dc.w $2
221*line 134
222.dc.l _et_inst
223*line 134
224.dc.l _ef_inst
225*line 134
226.dc.l _rd_inst
227*line 134
228.dc.l _nd_inst
229.dc.w $12
230.dc.w $16
231.dc.w $17
232.dc.w $3
233*line 135
234.dc.l _et_inst
235*line 135
236.dc.l _ef_inst
237*line 135
238.dc.l _rd_inst
239*line 135
240.dc.l _nd_inst
241.dc.w $12
242.dc.w $1B
243.dc.w $1C
244.dc.w $4
245*line 136
246.dc.l _et_inst
247*line 136
248.dc.l _ef_inst
249*line 136
250.dc.l _rd_inst
251*line 136
252.dc.l _nd_inst
253.dc.w $12
254.dc.w $20
255.dc.w $21
256.dc.w $5
257*line 137
258.dc.l _et_inst
259*line 137
260.dc.l _ef_inst
261*line 137
262.dc.l _rd_inst
263*line 137
264.dc.l _nd_inst
265.dc.w $12
266.dc.w $25
267.dc.w $26
268.dc.w $6
269*line 138
270.dc.l _et_inst
271*line 138
272.dc.l _ef_inst
273*line 138
274.dc.l _rd_inst
275*line 138
276.dc.l _nd_inst
277.dc.w $12
278.dc.w $2A
279.dc.w $2B
280.dc.w $7
281*line 139
282.dc.l _et_inst
283*line 139
284.dc.l _ef_inst
285*line 139
286.dc.l _rd_inst
287*line 139
288.dc.l _nd_inst
289.dc.w $12
290.dc.w $2F
291.dc.w $30
292.dc.w $8
293*line 140
294.dc.l _et_inst
295*line 140
296.dc.l _ef_inst
297*line 140
298.dc.l _rd_inst
299*line 140
300.dc.l _nd_inst
301.dc.w $12
302.dc.w $34
303.dc.w $35
304.dc.w $9
305*line 141
306.dc.l _et_inst
307*line 141
308.dc.l _ef_inst
309*line 141
310.dc.l _rd_inst
311*line 141
312.dc.l _nd_inst
313.dc.w $12
314.dc.w $39
315.dc.w $3A
316.dc.w $A
317*line 142
318.dc.l _et_inst
319*line 142
320.dc.l _ef_inst
321*line 142
322.dc.l _rd_inst
323*line 142
324.dc.l _nd_inst
325.dc.w $12
326.dc.w $3E
327.dc.w $3F
328.dc.w $B
329*line 143
330.dc.l _et_inst
331*line 143
332.dc.l _ef_inst
333*line 143
334.dc.l _rd_inst
335*line 143
336.dc.l _nd_inst
337.dc.w $13
338.dc.w $5
339.dc.w $8
340.dc.w $0
341*line 145
342.dc.l _et_trns
343*line 145
344.dc.l _ef_trns
345*line 145
346.dc.l _rd_trns
347*line 145
348.dc.l _nd_trns
349.dc.w $13
350.dc.w $A
351.dc.w $D
352.dc.w $1
353*line 146
354.dc.l _et_trns
355*line 146
356.dc.l _ef_trns
357*line 146
358.dc.l _rd_trns
359*line 146
360.dc.l _nd_trns
361.dc.w $13
362.dc.w $F
363.dc.w $12
364.dc.w $2
365*line 147
366.dc.l _et_trns
367*line 147
368.dc.l _ef_trns
369*line 147
370.dc.l _rd_trns
371*line 147
372.dc.l _nd_trns
373.dc.w $13
374.dc.w $14
375.dc.w $17
376.dc.w $3
377*line 148
378.dc.l _et_trns
379*line 148
380.dc.l _ef_trns
381*line 148
382.dc.l _rd_trns
383*line 148
384.dc.l _nd_trns
385.dc.w $13
386.dc.w $19
387.dc.w $1C
388.dc.w $4
389*line 149
390.dc.l _et_trns
391*line 149
392.dc.l _ef_trns
393*line 149
394.dc.l _rd_trns
395*line 149
396.dc.l _nd_trns
397.dc.w $13
398.dc.w $1E
399.dc.w $21
400.dc.w $5
401*line 150
402.dc.l _et_trns
403*line 150
404.dc.l _ef_trns
405*line 150
406.dc.l _rd_trns
407*line 150
408.dc.l _nd_trns
409.dc.w $13
410.dc.w $23
411.dc.w $26
412.dc.w $6
413*line 151
414.dc.l _et_trns
415*line 151
416.dc.l _ef_trns
417*line 151
418.dc.l _rd_trns
419*line 151
420.dc.l _nd_trns
421.dc.w $13
422.dc.w $28
423.dc.w $2B
424.dc.w $7
425*line 152
426.dc.l _et_trns
427*line 152
428.dc.l _ef_trns
429*line 152
430.dc.l _rd_trns
431*line 152
432.dc.l _nd_trns
433.dc.w $13
434.dc.w $2D
435.dc.w $30
436.dc.w $8
437*line 153
438.dc.l _et_trns
439*line 153
440.dc.l _ef_trns
441*line 153
442.dc.l _rd_trns
443*line 153
444.dc.l _nd_trns
445.dc.w $13
446.dc.w $32
447.dc.w $35
448.dc.w $9
449*line 154
450.dc.l _et_trns
451*line 154
452.dc.l _ef_trns
453*line 154
454.dc.l _rd_trns
455*line 154
456.dc.l _nd_trns
457.dc.w $13
458.dc.w $37
459.dc.w $3A
460.dc.w $A
461*line 155
462.dc.l _et_trns
463*line 155
464.dc.l _ef_trns
465*line 155
466.dc.l _rd_trns
467*line 155
468.dc.l _nd_trns
469.dc.w $13
470.dc.w $3C
471.dc.w $3F
472.dc.w $B
473*line 156
474.dc.l _et_trns
475*line 156
476.dc.l _ef_trns
477*line 156
478.dc.l _rd_trns
479*line 156
480.dc.l _nd_trns
481.dc.w $14
482.dc.w $6
483.dc.w $6
484.dc.w $0
485*line 161
486.dc.l _et_dyn
487*line 161
488.dc.l _ef_dyn
489*line 161
490.dc.l _rd_dyn
491*line 161
492.dc.l _nd_dyn
493.dc.w $14
494.dc.w $8
495.dc.w $8
496.dc.w $0
497*line 162
498.dc.l _et_loc
499*line 162
500.dc.l _ef_loc
501*line 162
502.dc.l _rd_loc
503*line 162
504.dc.l _nd_loc
505.dc.w $14
506.dc.w $B
507.dc.w $B
508.dc.w $1
509*line 164
510.dc.l _et_dyn
511*line 164
512.dc.l _ef_dyn
513*line 164
514.dc.l _rd_dyn
515*line 164
516.dc.l _nd_dyn
517.dc.w $14
518.dc.w $D
519.dc.w $D
520.dc.w $1
521*line 165
522.dc.l _et_loc
523*line 165
524.dc.l _ef_loc
525*line 165
526.dc.l _rd_loc
527*line 165
528.dc.l _nd_loc
529.dc.w $14
530.dc.w $10
531.dc.w $10
532.dc.w $2
533*line 167
534.dc.l _et_dyn
535*line 167
536.dc.l _ef_dyn
537*line 167
538.dc.l _rd_dyn
539*line 167
540.dc.l _nd_dyn
541.dc.w $14
542.dc.w $12
543.dc.w $12
544.dc.w $2
545*line 168
546.dc.l _et_loc
547*line 168
548.dc.l _ef_loc
549*line 168
550.dc.l _rd_loc
551*line 168
552.dc.l _nd_loc
553.dc.w $14
554.dc.w $15
555.dc.w $15
556.dc.w $3
557*line 170
558.dc.l _et_dyn
559*line 170
560.dc.l _ef_dyn
561*line 170
562.dc.l _rd_dyn
563*line 170
564.dc.l _nd_dyn
565.dc.w $14
566.dc.w $17
567.dc.w $17
568.dc.w $3
569*line 171
570.dc.l _et_loc
571*line 171
572.dc.l _ef_loc
573*line 171
574.dc.l _rd_loc
575*line 171
576.dc.l _nd_loc
577.dc.w $14
578.dc.w $1A
579.dc.w $1A
580.dc.w $4
581*line 173
582.dc.l _et_dyn
583*line 173
584.dc.l _ef_dyn
585*line 173
586.dc.l _rd_dyn
587*line 173
588.dc.l _nd_dyn
589.dc.w $14
590.dc.w $1C
591.dc.w $1C
592.dc.w $4
593*line 174
594.dc.l _et_loc
595*line 174
596.dc.l _ef_loc
597*line 174
598.dc.l _rd_loc
599*line 174
600.dc.l _nd_loc
601.dc.w $14
602.dc.w $1F
603.dc.w $1F
604.dc.w $5
605*line 176
606.dc.l _et_dyn
607*line 176
608.dc.l _ef_dyn
609*line 176
610.dc.l _rd_dyn
611*line 176
612.dc.l _nd_dyn
613.dc.w $14
614.dc.w $21
615.dc.w $21
616.dc.w $5
617*line 177
618.dc.l _et_loc
619*line 177
620.dc.l _ef_loc
621*line 177
622.dc.l _rd_loc
623*line 177
624.dc.l _nd_loc
625.dc.w $14
626.dc.w $24
627.dc.w $24
628.dc.w $6
629*line 179
630.dc.l _et_dyn
631*line 179
632.dc.l _ef_dyn
633*line 179
634.dc.l _rd_dyn
635*line 179
636.dc.l _nd_dyn
637.dc.w $14
638.dc.w $26
639.dc.w $26
640.dc.w $6
641*line 180
642.dc.l _et_loc
643*line 180
644.dc.l _ef_loc
645*line 180
646.dc.l _rd_loc
647*line 180
648.dc.l _nd_loc
649.dc.w $14
650.dc.w $29
651.dc.w $29
652.dc.w $7
653*line 182
654.dc.l _et_dyn
655*line 182
656.dc.l _ef_dyn
657*line 182
658.dc.l _rd_dyn
659*line 182
660.dc.l _nd_dyn
661.dc.w $14
662.dc.w $2B
663.dc.w $2B
664.dc.w $7
665*line 183
666.dc.l _et_loc
667*line 183
668.dc.l _ef_loc
669*line 183
670.dc.l _rd_loc
671*line 183
672.dc.l _nd_loc
673.dc.w $14
674.dc.w $2E
675.dc.w $2E
676.dc.w $8
677*line 185
678.dc.l _et_dyn
679*line 185
680.dc.l _ef_dyn
681*line 185
682.dc.l _rd_dyn
683*line 185
684.dc.l _nd_dyn
685.dc.w $14
686.dc.w $30
687.dc.w $30
688.dc.w $8
689*line 186
690.dc.l _et_loc
691*line 186
692.dc.l _ef_loc
693*line 186
694.dc.l _rd_loc
695*line 186
696.dc.l _nd_loc
697.dc.w $14
698.dc.w $33
699.dc.w $33
700.dc.w $9
701*line 188
702.dc.l _et_dyn
703*line 188
704.dc.l _ef_dyn
705*line 188
706.dc.l _rd_dyn
707*line 188
708.dc.l _nd_dyn
709.dc.w $14
710.dc.w $35
711.dc.w $35
712.dc.w $9
713*line 189
714.dc.l _et_loc
715*line 189
716.dc.l _ef_loc
717*line 189
718.dc.l _rd_loc
719*line 189
720.dc.l _nd_loc
721.dc.w $14
722.dc.w $38
723.dc.w $38
724.dc.w $A
725*line 191
726.dc.l _et_dyn
727*line 191
728.dc.l _ef_dyn
729*line 191
730.dc.l _rd_dyn
731*line 191
732.dc.l _nd_dyn
733.dc.w $14
734.dc.w $3A
735.dc.w $3A
736.dc.w $A
737*line 192
738.dc.l _et_loc
739*line 192
740.dc.l _ef_loc
741*line 192
742.dc.l _rd_loc
743*line 192
744.dc.l _nd_loc
745.dc.w $14
746.dc.w $3D
747.dc.w $3D
748.dc.w $B
749*line 194
750.dc.l _et_dyn
751*line 194
752.dc.l _ef_dyn
753*line 194
754.dc.l _rd_dyn
755*line 194
756.dc.l _nd_dyn
757.dc.w $14
758.dc.w $3F
759.dc.w $3F
760.dc.w $B
761*line 195
762.dc.l _et_loc
763*line 195
764.dc.l _ef_loc
765*line 195
766.dc.l _rd_loc
767*line 195
768.dc.l _nd_loc
769.dc.w $15
770.dc.w $6
771.dc.w $8
772.dc.w $0
773*line 200
774.dc.l _et_vel
775*line 200
776.dc.l _ef_vel
777*line 200
778.dc.l _rd_vel
779*line 200
780.dc.l _nd_vel
781.dc.w $15
782.dc.w $B
783.dc.w $D
784.dc.w $1
785*line 201
786.dc.l _et_vel
787*line 201
788.dc.l _ef_vel
789*line 201
790.dc.l _rd_vel
791*line 201
792.dc.l _nd_vel
793.dc.w $15
794.dc.w $10
795.dc.w $12
796.dc.w $2
797*line 202
798.dc.l _et_vel
799*line 202
800.dc.l _ef_vel
801*line 202
802.dc.l _rd_vel
803*line 202
804.dc.l _nd_vel
805.dc.w $15
806.dc.w $15
807.dc.w $17
808.dc.w $3
809*line 203
810.dc.l _et_vel
811*line 203
812.dc.l _ef_vel
813*line 203
814.dc.l _rd_vel
815*line 203
816.dc.l _nd_vel
817.dc.w $15
818.dc.w $1A
819.dc.w $1C
820.dc.w $4
821*line 204
822.dc.l _et_vel
823*line 204
824.dc.l _ef_vel
825*line 204
826.dc.l _rd_vel
827*line 204
828.dc.l _nd_vel
829.dc.w $15
830.dc.w $1F
831.dc.w $21
832.dc.w $5
833*line 205
834.dc.l _et_vel
835*line 205
836.dc.l _ef_vel
837*line 205
838.dc.l _rd_vel
839*line 205
840.dc.l _nd_vel
841.dc.w $15
842.dc.w $24
843.dc.w $26
844.dc.w $6
845*line 206
846.dc.l _et_vel
847*line 206
848.dc.l _ef_vel
849*line 206
850.dc.l _rd_vel
851*line 206
852.dc.l _nd_vel
853.dc.w $15
854.dc.w $29
855.dc.w $2B
856.dc.w $7
857*line 207
858.dc.l _et_vel
859*line 207
860.dc.l _ef_vel
861*line 207
862.dc.l _rd_vel
863*line 207
864.dc.l _nd_vel
865.dc.w $15
866.dc.w $2E
867.dc.w $30
868.dc.w $8
869*line 208
870.dc.l _et_vel
871*line 208
872.dc.l _ef_vel
873*line 208
874.dc.l _rd_vel
875*line 208
876.dc.l _nd_vel
877.dc.w $15
878.dc.w $33
879.dc.w $35
880.dc.w $9
881*line 209
882.dc.l _et_vel
883*line 209
884.dc.l _ef_vel
885*line 209
886.dc.l _rd_vel
887*line 209
888.dc.l _nd_vel
889.dc.w $15
890.dc.w $38
891.dc.w $3A
892.dc.w $A
893*line 210
894.dc.l _et_vel
895*line 210
896.dc.l _ef_vel
897*line 210
898.dc.l _rd_vel
899*line 210
900.dc.l _nd_vel
901.dc.w $15
902.dc.w $3D
903.dc.w $3F
904.dc.w $B
905*line 211
906.dc.l _et_vel
907*line 211
908.dc.l _ef_vel
909*line 211
910.dc.l _rd_vel
911*line 211
912.dc.l _nd_vel
913.dc.w $17
914.dc.w $6
915.dc.w $6
916.dc.w $0
917*line 214
918.dc.l _et_res1
919*line 214
920.dc.l _ef_res1
921*line 214
922.dc.l _rd_res1
923*line 214
924.dc.l _nd_res1
925.dc.w $17
926.dc.w $8
927.dc.w $C
928.dc.w $0
929*line 215
930.dc.l _et_aval
931*line 215
932.dc.l _ef_aval
933*line 215
934.dc.l _rd_aval
935*line 215
936.dc.l _nd_aval
937.dc.w $17
938.dc.w $F
939.dc.w $F
940.dc.w $1
941*line 217
942.dc.l _et_res1
943*line 217
944.dc.l _ef_res1
945*line 217
946.dc.l _rd_res1
947*line 217
948.dc.l _nd_res1
949.dc.w $17
950.dc.w $11
951.dc.w $15
952.dc.w $1
953*line 218
954.dc.l _et_aval
955*line 218
956.dc.l _ef_aval
957*line 218
958.dc.l _rd_aval
959*line 218
960.dc.l _nd_aval
961.dc.w $17
962.dc.w $18
963.dc.w $18
964.dc.w $2
965*line 220
966.dc.l _et_res1
967*line 220
968.dc.l _ef_res1
969*line 220
970.dc.l _rd_res1
971*line 220
972.dc.l _nd_res1
973.dc.w $17
974.dc.w $1A
975.dc.w $1E
976.dc.w $2
977*line 221
978.dc.l _et_aval
979*line 221
980.dc.l _ef_aval
981*line 221
982.dc.l _rd_aval
983*line 221
984.dc.l _nd_aval
985.dc.w $17
986.dc.w $21
987.dc.w $21
988.dc.w $3
989*line 223
990.dc.l _et_res1
991*line 223
992.dc.l _ef_res1
993*line 223
994.dc.l _rd_res1
995*line 223
996.dc.l _nd_res1
997.dc.w $17
998.dc.w $23
999.dc.w $27
1000.dc.w $3
1001*line 224
1002.dc.l _et_aval
1003*line 224
1004.dc.l _ef_aval
1005*line 224
1006.dc.l _rd_aval
1007*line 224
1008.dc.l _nd_aval
1009.dc.w $17
1010.dc.w $2A
1011.dc.w $2A
1012.dc.w $4
1013*line 226
1014.dc.l _et_res1
1015*line 226
1016.dc.l _ef_res1
1017*line 226
1018.dc.l _rd_res1
1019*line 226
1020.dc.l _nd_res1
1021.dc.w $17
1022.dc.w $2C
1023.dc.w $30
1024.dc.w $4
1025*line 227
1026.dc.l _et_aval
1027*line 227
1028.dc.l _ef_aval
1029*line 227
1030.dc.l _rd_aval
1031*line 227
1032.dc.l _nd_aval
1033.dc.w $17
1034.dc.w $33
1035.dc.w $33
1036.dc.w $5
1037*line 229
1038.dc.l _et_res1
1039*line 229
1040.dc.l _ef_res1
1041*line 229
1042.dc.l _rd_res1
1043*line 229
1044.dc.l _nd_res1
1045.dc.w $17
1046.dc.w $35
1047.dc.w $39
1048.dc.w $5
1049*line 230
1050.dc.l _et_aval
1051*line 230
1052.dc.l _ef_aval
1053*line 230
1054.dc.l _rd_aval
1055*line 230
1056.dc.l _nd_aval
1057.dc.w $17
1058.dc.w $3D
1059.dc.w $3E
1060.dc.w $0
1061*line 232
1062.dc.l _et_agrp
1063*line 232
1064.dc.l _ef_agrp
1065*line 232
1066.dc.l _rd_agrp
1067*line 232
1068.dc.l _nd_agrp
1069.dc.w $18
1070.dc.w $7
1071.dc.w $8
1072.dc.w $0
1073*line 234
1074.dc.l _et_scor
1075*line 234
1076.dc.l _ef_scor
1077*line 234
1078.dc.l _rd_scor
1079*line 234
1080.dc.l _nd_scor
1081.dc.w $18
1082.dc.w $A
1083.dc.w $19
1084.dc.w $0
1085*line 235
1086.dc.l _et_null
1087*line 235
1088.dc.l _ef_null
1089*line 235
1090.dc.l _rd_null
1091*line 235
1092.dc.l _nd_null
1093.dc.w $0
1094.dc.w $0
1095.dc.w $0
1096.dc.w $0
1097.dc.l $0
1098.dc.l $0
1099.dc.l $0
1100.dc.l $0
1101.globl _sc_flds
1102.data
1103_sc_flds:
1104*line 246
1105.dc.l _stdctp3
1106*line 247
1107.dc.l _nokey
1108*line 248
1109.dc.l _nokey
1110*line 249
1111.dc.l _cxkstd
1112*line 250
1113.dc.l _cykstd
1114*line 251
1115.dc.l _sdcxu
1116*line 252
1117.dc.l _sdcyu
1118*line 253
1119.dc.l _nokey
1120*line 254
1121.dc.l _nokey
1122*line 255
1123.dc.l _sdxkey
1124*line 256
1125.dc.l _select
1126*line 257
1127.dc.l _sdmkey
1128*line 258
1129.dc.l _stddkey
1130*line 259
1131.dc.l _scntfld
1132*line 260
1133.dc.l _sc_fet1
1134*line 261
1135.dc.l _sdboxes
1136*line 262
1137.dc.l _crate1
1138*line 263
1139.dc.l _crate1
1140.dc.w $0
1141.dc.w $100
1142.dc.w $AF
1143.globl _et_null
1144.text
1145_et_null:
1146~~et_null:
1147link R14,#-4
1148*line 281
1149clr R0
1150bra L1
1151L1:unlk R14
1152rts
1153.globl _ef_null
1154.text
1155_ef_null:
1156~~ef_null:
1157link R14,#-4
1158*line 287
1159clr R0
1160bra L2
1161L2:unlk R14
1162rts
1163.globl _rd_null
1164.text
1165_rd_null:
1166~~rd_null:
1167link R14,#-4
1168*line 293
1169clr R0
1170bra L3
1171L3:unlk R14
1172rts
1173.globl _nd_null
1174.text
1175_nd_null:
1176~~nd_null:
1177link R14,#-4
1178*line 299
1179clr R0
1180bra L4
1181L4:unlk R14
1182rts
1183.globl _istart
1184.text
1185_istart:
1186~~istart:
1187link R14,#0
1188movem.l R7-R7/R11-R13,-(sp)
1189~ep=R13
1190~pp=R12
1191~tp=R11
1192*line 315
1193*line 316
1194tst _insmode
1195bne L5
1196*line 317
1197*line 318
1198move.l _t_cur,(sp)
1199move #1,-(sp)
1200move.l _p_cur,-(sp)
1201jsr _ep_adj
1202addq.l #6,sp
1203move.l R0,R13
1204*line 320
1205*line 321
1206move.b 5(R13),R0
1207ext.w R0
1208and #127,R0
1209cmp #1,R0
1210bne L6
1211*line 321
1212move.l 12(R13),R13
1213*line 322
1214L6:
1215*line 323
1216*line 324
1217move.b 5(R13),R0
1218ext.w R0
1219and #127,R0
1220cmp #21,R0
1221beq L5
1222*line 325
1223*line 326
1224move _curscor,R8
1225add.l R8,R8
1226add.l R8,R8
1227move.l #_scores,R9
1228move.l 0(R8,R9.l),R8
1229move.l 8(R8),R11
1230*line 327
1231move.l 8(R13),R12
1232*line 329
1233clr.l 8(R13)
1234*line 330
1235move.l R11,12(R12)
1236*line 331
1237move.l 8(R11),R8
1238move.l #$0,12(R8)
1239*line 333
1240move.l R12,8(R11)
1241*line 335
1242move.l _t_cur,_t_ins
1243*line 336
1244move.l R13,_peg
1245*line 338
1246move.l _t_cur,(sp)
1247clr -(sp)
1248move.l R12,-(sp)
1249jsr _ep_adj
1250addq.l #6,sp
1251move.l R0,_p_cur
1252*line 339
1253move.l _p_cur,_p_ctr
1254*line 340
1255move.l _t_bak,(sp)
1256clr -(sp)
1257move.l _p_cur,-(sp)
1258jsr _ep_adj
1259addq.l #6,sp
1260move.l R0,_p_bak
1261*line 341
1262move.l _t_fwd,(sp)
1263clr -(sp)
1264move.l _p_cur,-(sp)
1265jsr _ep_adj
1266addq.l #6,sp
1267move.l R0,_p_fwd
1268*line 343
1269move #1,_insmode
1270L5:tst.l (sp)+
1271movem.l (sp)+,R11-R13
1272unlk R14
1273rts
1274.globl _icancel
1275.text
1276_icancel:
1277~~icancel:
1278link R14,#-8
1279movem.l R7-R7/R11-R13,-(sp)
1280~ep=R13
1281~tp=R12
1282~rp=R11
1283~pp=-4
1284~endtime=-8
1285*line 361
1286*line 362
1287tst _insmode
1288beq L7
1289*line 363
1290*line 364
1291move _curscor,R8
1292add.l R8,R8
1293add.l R8,R8
1294move.l #_scores,R9
1295move.l 0(R8,R9.l),R8
1296move.l 8(R8),R12
1297*line 365
1298move.l 8(R12),-4(R14)
1299*line 367
1300move.l -4(R14),R8
1301move.l (R8),-8(R14)
1302*line 369
1303*line 370
1304move.l _t_cur,R0
1305cmp.l -8(R14),R0
1306ble L8
1307*line 370
1308move.l _t_cur,-8(R14)
1309*line 371
1310L8:
1311*line 372
1312move.l _peg,R11
1313*line 374
1314bra L11
1315L10:
1316*line 375
1317*line 376
1318move.l R11,R13
1319*line 377
1320move.l 12(R13),R11
1321*line 378
1322*line 379
1323move.l (R13),R0
1324sub.l _t_ins,R0
1325add.l -8(R14),R0
1326move.l R0,(R13)
1327L11:
1328*line 380
1329move.l R11,R0
1330bne L10
1331L9:
1332*line 382
1333move.l R12,12(R13)
1334*line 383
1335move.l R13,8(R12)
1336*line 385
1337move.l -4(R14),R8
1338move.l _peg,12(R8)
1339*line 386
1340move.l _peg,R8
1341move.l -4(R14),8(R8)
1342*line 388
1343move.l _t_cur,(sp)
1344clr -(sp)
1345move.l -4(R14),-(sp)
1346jsr _ep_adj
1347addq.l #6,sp
1348move.l R0,_p_cur
1349*line 389
1350move.l _p_cur,_p_ctr
1351*line 390
1352move.l _t_bak,(sp)
1353clr -(sp)
1354move.l _p_cur,-(sp)
1355jsr _ep_adj
1356addq.l #6,sp
1357move.l R0,_p_bak
1358*line 391
1359move.l _t_fwd,(sp)
1360clr -(sp)
1361move.l _p_cur,-(sp)
1362jsr _ep_adj
1363addq.l #6,sp
1364move.l R0,_p_fwd
1365*line 393
1366clr _insmode
1367L7:tst.l (sp)+
1368movem.l (sp)+,R11-R13
1369unlk R14
1370rts
1371.globl _sdcxu
1372.text
1373_sdcxu:
1374~~sdcxu:
1375link R14,#-4
1376*line 407
1377*line 407
1378tst _sdmctl
1379bne L13
1380*line 408
1381*line 409
1382jsr _vtcxupd
1383*line 410
1384bra L14
1385L13:
1386*line 411
1387*line 411
1388tst _sdmctl
1389ble L15
1390*line 412
1391*line 413
1392move _cxrate,R0
1393add R0,_vtxval
1394move _vtxval,R0
1395asr #3,R0
1396move R0,_vtccol
1397*line 414
1398*line 415
1399*line 416
1400move _sdmctl,R0
1401asl #3,R0
1402ext.l R0
1403move.l R0,R8
1404move.l #_sdmlim,R9
1405move 6(R8,R9.l),R0
1406cmp _vtccol,R0
1407bge L16
1408*line 416
1409move _sdmctl,R0
1410asl #3,R0
1411ext.l R0
1412move.l R0,R8
1413move.l #_sdmlim,R9
1414move 6(R8,R9.l),R0
1415move R0,_vtccol
1416asl #3,R0
1417move R0,_vtxval
1418bra L17
1419L16:
1420*line 417
1421*line 418
1422move _sdmctl,R0
1423asl #3,R0
1424ext.l R0
1425move.l R0,R8
1426move.l #_sdmlim,R9
1427move 2(R8,R9.l),R0
1428cmp _vtccol,R0
1429ble L18
1430*line 418
1431move _sdmctl,R0
1432asl #3,R0
1433ext.l R0
1434move.l R0,R8
1435move.l #_sdmlim,R9
1436move 2(R8,R9.l),R0
1437move R0,_vtccol
1438asl #3,R0
1439move R0,_vtxval
1440*line 419
1441L18:L17:bra L19
1442L15:
1443*line 420
1444*line 421
1445*line 422
1446move _cxrate,R0
1447add R0,_cxval
1448*line 423
1449*line 424
1450*line 425
1451cmp #511,_cxval
1452ble L20
1453*line 425
1454move #511,_cxval
1455bra L21
1456L20:
1457*line 426
1458*line 427
1459tst _cxval
1460bge L22
1461*line 427
1462clr _cxval
1463L22:L21:L19:L14:bra L12
1464L12:unlk R14
1465rts
1466.globl _sdcyu
1467.text
1468_sdcyu:
1469~~sdcyu:
1470link R14,#-4
1471*line 444
1472*line 444
1473tst _sdmctl
1474bne L24
1475*line 445
1476*line 446
1477jsr _vtcyupd
1478*line 447
1479bra L25
1480L24:
1481*line 448
1482*line 448
1483tst _sdmctl
1484ble L26
1485*line 449
1486*line 450
1487move _cyrate,R0
1488add R0,_vtyval
1489move _vtyval,R0
1490ext.l R0
1491divs #14,R0
1492move R0,_vtcrow
1493*line 451
1494*line 452
1495*line 453
1496move _sdmctl,R0
1497asl #3,R0
1498ext.l R0
1499move.l R0,R8
1500move.l #_sdmlim,R9
1501move 0(R8,R9.l),R0
1502cmp _vtcrow,R0
1503ble L27
1504*line 453
1505move _sdmctl,R0
1506asl #3,R0
1507ext.l R0
1508move.l R0,R8
1509move.l #_sdmlim,R9
1510move 0(R8,R9.l),R0
1511move R0,_vtcrow
1512muls #14,R0
1513move R0,_vtyval
1514bra L28
1515L27:
1516*line 454
1517*line 455
1518move _sdmctl,R0
1519asl #3,R0
1520ext.l R0
1521move.l R0,R8
1522move.l #_sdmlim,R9
1523move 4(R8,R9.l),R0
1524cmp _vtcrow,R0
1525bge L29
1526*line 455
1527move _sdmctl,R0
1528asl #3,R0
1529ext.l R0
1530move.l R0,R8
1531move.l #_sdmlim,R9
1532move 4(R8,R9.l),R0
1533move R0,_vtcrow
1534muls #14,R0
1535move R0,_vtyval
1536*line 456
1537L29:L28:bra L30
1538L26:
1539*line 457
1540*line 458
1541*line 459
1542move _cyrate,R0
1543add R0,_cyval
1544*line 460
1545*line 461
1546*line 462
1547cmp #349,_cyval
1548ble L31
1549*line 462
1550move #349,_cyval
1551bra L32
1552L31:
1553*line 463
1554*line 464
1555tst _cyval
1556bge L33
1557*line 464
1558clr _cyval
1559*line 465
1560L33:L32:L30:L25:bra L23
1561L23:unlk R14
1562rts
1563.globl _scntfld
1564.text
1565_scntfld:
1566~~scntfld:
1567~k=8
1568link R14,#0
1569movem.l R4-R7,-(sp)
1570~grp=R7
1571~fnc=R6
1572~var=R5
1573*line 486
1574*line 487
1575tst _astat
1576bne L35
1577*line 487
1578move #-1,R0
1579bra L34
1580*line 488
1581L35:
1582*line 489
1583*line 489
1584cmp #18,_stcrow
1585bne L36
1586*line 490
1587*line 491
1588*line 492
1589cmp #5,_stccol
1590bge L37
1591*line 492
1592move #-1,R0
1593bra L34
1594*line 493
1595L37:
1596*line 494
1597move _stccol,R7
1598sub #5,R7
1599ext.l R7
1600divs #5,R7
1601*line 495
1602move _stccol,R6
1603sub #5,R6
1604ext.l R6
1605divs #5,R6
1606swap R6
1607*line 496
1608*line 497
1609*line 497
1610tst R6
1611bne L38
1612*line 498
1613*line 499
1614*line 499
1615cmp #8,8(R14)
1616bne L39
1617*line 500
1618*line 501
1619move R7,R8
1620add.l R8,R8
1621add.l #_grpstat,R8
1622clr (R8)
1623*line 502
1624move R7,(sp)
1625jsr _dsgstat
1626*line 503
1627clr R0
1628bra L34
1629*line 504
1630bra L40
1631L39:
1632*line 505
1633*line 505
1634cmp #9,8(R14)
1635bne L41
1636*line 506
1637*line 507
1638move R7,R8
1639add.l R8,R8
1640add.l #_grpstat,R8
1641move #1,(R8)
1642*line 508
1643move R7,(sp)
1644jsr _dsgstat
1645*line 509
1646clr R0
1647bra L34
1648*line 510
1649*line 511
1650bra L42
1651L41:
1652*line 512
1653move #-1,R0
1654bra L34
1655L42:L40:
1656*line 513
1657*line 514
1658bra L43
1659L38:
1660*line 515
1661*line 515
1662cmp #1,R6
1663bne L44
1664*line 516
1665*line 517
1666*line 517
1667cmp #8,8(R14)
1668bne L45
1669*line 518
1670*line 519
1671move R7,R8
1672add.l R8,R8
1673add.l #_grpmode,R8
1674clr (R8)
1675*line 520
1676move R7,(sp)
1677jsr _dsgmode
1678*line 521
1679clr R0
1680bra L34
1681*line 522
1682bra L46
1683L45:
1684*line 523
1685*line 523
1686cmp #9,8(R14)
1687bne L47
1688*line 524
1689*line 525
1690*line 526
1691move R7,R8
1692add.l R8,R8
1693add.l #_grpmode,R8
1694add #1,(R8)
1695move (R8),R0
1696cmp #1,R0
1697ble L48
1698*line 526
1699move R7,R8
1700add.l R8,R8
1701add.l #_grpmode,R8
1702move #2,(R8)
1703*line 527
1704L48:
1705*line 528
1706move R7,(sp)
1707jsr _dsgmode
1708*line 529
1709clr R0
1710bra L34
1711*line 530
1712*line 531
1713bra L49
1714L47:
1715*line 532
1716move #-1,R0
1717bra L34
1718L49:L46:
1719*line 533
1720*line 534
1721bra L50
1722L44:
1723*line 535
1724move #-1,R0
1725bra L34
1726L50:L43:
1727*line 536
1728*line 537
1729bra L51
1730L36:
1731*line 538
1732*line 538
1733cmp #22,_stcrow
1734bne L52
1735*line 539
1736*line 540
1737*line 541
1738cmp #5,_stccol
1739bge L53
1740*line 541
1741move #-1,R0
1742bra L34
1743*line 542
1744L53:
1745*line 543
1746move _stccol,R5
1747sub #5,R5
1748ext.l R5
1749divs #9,R5
1750*line 544
1751move _stccol,R6
1752sub #5,R6
1753ext.l R6
1754divs #9,R6
1755swap R6
1756*line 545
1757tst _angroup
1758bge L10000
1759move _angroup,R0
1760neg R0
1761bra L10002
1762L10000:move _angroup,R0
1763L10002:move R0,R7
1764sub #1,R7
1765*line 546
1766*line 547
1767*line 547
1768tst R6
1769bne L54
1770*line 548
1771*line 549
1772*line 549
1773cmp #8,8(R14)
1774bne L55
1775*line 550
1776*line 551
1777move R5,R0
1778asl #5,R0
1779ext.l R0
1780move R7,R1
1781asl #1,R1
1782ext.l R1
1783add.l R1,R0
1784add.l #_varmode,R0
1785move.l R0,R8
1786clr (R8)
1787*line 552
1788move R5,(sp)
1789jsr _dsvmode
1790*line 553
1791clr R0
1792bra L34
1793*line 554
1794bra L56
1795L55:
1796*line 555
1797*line 555
1798cmp #9,8(R14)
1799bne L57
1800*line 556
1801*line 557
1802*line 558
1803move R5,R0
1804asl #5,R0
1805ext.l R0
1806move R7,R1
1807asl #1,R1
1808ext.l R1
1809add.l R1,R0
1810add.l #_varmode,R0
1811move.l R0,R8
1812add #1,(R8)
1813move (R8),R0
1814cmp #1,R0
1815ble L58
1816*line 558
1817move R5,R0
1818asl #5,R0
1819ext.l R0
1820move R7,R1
1821asl #1,R1
1822ext.l R1
1823add.l R1,R0
1824add.l #_varmode,R0
1825move.l R0,R8
1826move #2,(R8)
1827*line 559
1828L58:
1829*line 560
1830move R5,(sp)
1831jsr _dsvmode
1832*line 561
1833clr R0
1834bra L34
1835*line 562
1836L57:L56:
1837*line 563
1838L54:
1839*line 564
1840*line 565
1841L52:L51:
1842*line 566
1843move #-1,R0
1844bra L34
1845L34:tst.l (sp)+
1846movem.l (sp)+,R5-R7
1847unlk R14
1848rts
1849.globl _cp2time
1850.text
1851_cp2time:
1852~~cp2time:
1853~cx=8
1854link R14,#0
1855movem.l R6-R7,-(sp)
1856~ct=R7
1857*line 586
1858move 8(R14),R7
1859ext.l R7
1860add.l _t_cur,R7
1861add.l #$ffffff00,R7
1862*line 588
1863*line 589
1864tst.l R7
1865bge L60
1866*line 589
1867clr R0
1868bra L59
1869*line 590
1870L60:
1871*line 591
1872move.l R7,_ctime
1873*line 592
1874move #1,R0
1875bra L59
1876L59:tst.l (sp)+
1877movem.l (sp)+,R7-R7
1878unlk R14
1879rts
1880.globl _delevts
1881.text
1882_delevts:
1883~~delevts:
1884~etp=R7
1885~thetime=R6
1886link R14,#0
1887movem.l R2-R7/R12-R13,-(sp)
1888~ep=R13
1889~np=R12
1890~et=R5
1891~rc=R4
1892~dsw=R3
1893*line 614
1894move 8(R14),R7
1895*line 614
1896move.l 10(R14),R6
1897*line 614
1898clr R4
1899*line 616
1900move.l R6,(sp)
1901move #1,-(sp)
1902move.l _p_cur,-(sp)
1903jsr _ep_adj
1904addq.l #6,sp
1905move.l R0,R13
1906*line 620
1907bra L64
1908L63:
1909*line 621
1910*line 622
1911move.l 12(R13),R12
1912*line 623
1913move.b 5(R13),R5
1914ext.w R5
1915and #127,R5
1916*line 624
1917move.l R13,(sp)
1918jsr _oktode
1919move R0,R3
1920*line 625
1921*line 626
1922*line 627
1923tst R3
1924beq L65
1925cmp #-1,R7
1926beq L10003
1927cmp R7,R5
1928bne L65
1929L10003:*line 628
1930*line 629
1931move #1,R4
1932*line 630
1933*line 631
1934*line 632
1935move R5,R8
1936add.l R8,R8
1937add.l #_ehdlist,R8
1938cmp #-1,(R8)
1939beq L66
1940*line 632
1941move R5,R8
1942add.l R8,R8
1943move.l #_ehdlist,R9
1944move 0(R8,R9.l),(sp)
1945move.l R13,-(sp)
1946jsr _eh_rmv
1947addq.l #4,sp
1948*line 633
1949*line 634
1950*line 635
1951L66:
1952*line 636
1953*line 637
1954cmp.l _p_bak,R13
1955bne L67
1956*line 637
1957move.l R12,_p_bak
1958*line 638
1959L67:
1960*line 639
1961*line 640
1962cmp.l _p_cur,R13
1963bne L68
1964*line 640
1965move.l R12,_p_cur
1966*line 641
1967L68:
1968*line 642
1969*line 643
1970cmp.l _p_ctr,R13
1971bne L69
1972*line 643
1973move.l R12,_p_ctr
1974*line 644
1975L69:
1976*line 645
1977*line 646
1978cmp.l _p_fwd,R13
1979bne L70
1980*line 646
1981move.l R12,_p_fwd
1982*line 647
1983L70:
1984*line 648
1985move.l R13,(sp)
1986jsr _e_rmv
1987move.l R0,(sp)
1988jsr _e_del
1989*line 649
1990*line 650
1991L65:
1992*line 651
1993move.l R12,R13
1994L64:
1995*line 652
1996cmp.l (R13),R6
1997beq L63
1998L62:
1999*line 654
2000*line 655
2001tst R4
2002beq L71
2003*line 655
2004move.l _t_cur,(sp)
2005jsr _sc_refr
2006*line 656
2007L71:
2008*line 657
2009move R4,R0
2010bra L61
2011L61:tst.l (sp)+
2012movem.l (sp)+,R3-R7/R12-R13
2013unlk R14
2014rts
2015.globl _deladat
2016.text
2017_deladat:
2018~~deladat:
2019link R14,#0
2020movem.l R2-R7/R12-R13,-(sp)
2021~ep=R13
2022~rp=R12
2023~grp=R7
2024~rc=R6
2025~var=R5
2026~vc=R4
2027~vn=R3
2028*line 675
2029clr R6
2030*line 677
2031*line 678
2032cmp #6,_stccol
2033bge L73
2034*line 678
2035move R6,R0
2036bra L72
2037*line 679
2038L73:
2039*line 680
2040move _stccol,R3
2041sub #6,R3
2042ext.l R3
2043divs #9,R3
2044*line 681
2045move _stccol,R4
2046sub #6,R4
2047ext.l R4
2048divs #9,R4
2049swap R4
2050*line 683
2051move.l _t_cur,(sp)
2052move #1,-(sp)
2053move.l _p_cur,-(sp)
2054jsr _ep_adj
2055addq.l #6,sp
2056move.l R0,R13
2057*line 685
2058*line 685
2059tst R4
2060bne L74
2061*line 686
2062*line 687
2063bra L77
2064L76:
2065*line 688
2066*line 689
2067move.l 12(R13),R12
2068*line 690
2069*line 691
2070*line 691
2071move.b 5(R13),R0
2072ext.w R0
2073and #127,R0
2074cmp #15,R0
2075bne L78
2076*line 692
2077*line 693
2078move.b 6(R13),R7
2079ext.w R7
2080and #15,R7
2081*line 694
2082move.b 6(R13),R5
2083ext.w R5
2084asr #4,R5
2085and #15,R5
2086*line 695
2087*line 696
2088*line 697
2089*line 698
2090cmp R3,R5
2091bne L79
2092move R7,R8
2093add.l R8,R8
2094move.l #_grpstat,R9
2095tst 0(R8,R9.l)
2096beq L79
2097tst _ancmsw
2098beq L10004
2099move R5,R0
2100asl #5,R0
2101ext.l R0
2102move R7,R1
2103asl #1,R1
2104ext.l R1
2105add.l R1,R0
2106move.l R0,R8
2107move.l #_varmode,R9
2108move 0(R8,R9.l),R0
2109bra L10006
2110L10004:move R7,R8
2111add.l R8,R8
2112move.l #_grpmode,R9
2113move 0(R8,R9.l),R0
2114L10006:cmp #2,R0
2115bne L79
2116*line 699
2117*line 700
2118*line 701
2119*line 702
2120*line 703
2121cmp.l _p_bak,R13
2122bne L80
2123*line 703
2124move.l R12,_p_bak
2125*line 704
2126L80:
2127*line 705
2128*line 706
2129cmp.l _p_cur,R13
2130bne L81
2131*line 706
2132move.l R12,_p_cur
2133*line 707
2134L81:
2135*line 708
2136*line 709
2137cmp.l _p_ctr,R13
2138bne L82
2139*line 709
2140move.l R12,_p_ctr
2141*line 710
2142L82:
2143*line 711
2144*line 712
2145cmp.l _p_fwd,R13
2146bne L83
2147*line 712
2148move.l R12,_p_fwd
2149*line 713
2150*line 714
2151*line 715
2152L83:
2153*line 716
2154move #4,(sp)
2155move.l R13,-(sp)
2156jsr _eh_rmv
2157addq.l #4,sp
2158*line 717
2159move.l R13,(sp)
2160jsr _e_rmv
2161move.l R0,(sp)
2162jsr _e_del
2163*line 718
2164move #1,R6
2165*line 719
2166L79:
2167*line 720
2168*line 721
2169L78:
2170*line 722
2171move.l R12,R13
2172L77:
2173*line 723
2174move.l (R13),R0
2175cmp.l _t_cur,R0
2176beq L76
2177L75:
2178*line 724
2179*line 725
2180bra L84
2181L74:
2182*line 726
2183*line 726
2184cmp #2,R4
2185blt L85
2186cmp #6,R4
2187bgt L85
2188*line 727
2189*line 728
2190bra L88
2191L87:
2192*line 729
2193*line 730
2194move.l 12(R13),R12
2195*line 731
2196*line 732
2197*line 732
2198move.b 5(R13),R0
2199ext.w R0
2200and #127,R0
2201cmp #14,R0
2202bne L89
2203*line 733
2204*line 734
2205move.b 6(R13),R7
2206ext.w R7
2207and #15,R7
2208*line 735
2209move.b 6(R13),R5
2210ext.w R5
2211asr #4,R5
2212and #15,R5
2213*line 736
2214*line 737
2215*line 738
2216*line 739
2217cmp R3,R5
2218bne L90
2219move R7,R8
2220add.l R8,R8
2221move.l #_grpstat,R9
2222tst 0(R8,R9.l)
2223beq L90
2224tst _ancmsw
2225beq L10007
2226move R5,R0
2227asl #5,R0
2228ext.l R0
2229move R7,R1
2230asl #1,R1
2231ext.l R1
2232add.l R1,R0
2233move.l R0,R8
2234move.l #_varmode,R9
2235move 0(R8,R9.l),R0
2236bra L10009
2237L10007:move R7,R8
2238add.l R8,R8
2239move.l #_grpmode,R9
2240move 0(R8,R9.l),R0
2241L10009:cmp #2,R0
2242bne L90
2243*line 740
2244*line 741
2245*line 742
2246*line 743
2247*line 744
2248cmp.l _p_bak,R13
2249bne L91
2250*line 744
2251move.l R12,_p_bak
2252*line 745
2253L91:
2254*line 746
2255*line 747
2256cmp.l _p_cur,R13
2257bne L92
2258*line 747
2259move.l R12,_p_cur
2260*line 748
2261L92:
2262*line 749
2263*line 750
2264cmp.l _p_ctr,R13
2265bne L93
2266*line 750
2267move.l R12,_p_ctr
2268*line 751
2269L93:
2270*line 752
2271*line 753
2272cmp.l _p_fwd,R13
2273bne L94
2274*line 753
2275move.l R12,_p_fwd
2276*line 754
2277L94:
2278*line 755
2279move.l R13,(sp)
2280jsr _e_rmv
2281move.l R0,(sp)
2282jsr _e_del
2283*line 756
2284move #1,R6
2285*line 757
2286L90:
2287*line 758
2288*line 759
2289L89:
2290*line 760
2291move.l R12,R13
2292L88:
2293*line 761
2294move.l (R13),R0
2295cmp.l _t_cur,R0
2296beq L87
2297L86:
2298*line 762
2299*line 763
2300L85:L84:
2301*line 764
2302*line 764
2303tst R6
2304beq L95
2305*line 765
2306*line 766
2307move.l _fc_val,(sp)
2308jsr _sc_refr
2309*line 767
2310jsr _ds_anrs
2311*line 768
2312jsr _ds_anvl
2313*line 769
2314*line 770
2315L95:
2316*line 771
2317move R6,R0
2318bra L72
2319L72:tst.l (sp)+
2320movem.l (sp)+,R3-R7/R12-R13
2321unlk R14
2322rts
2323.globl _sdxkey
2324.text
2325_sdxkey:
2326~~sdxkey:
2327link R14,#0
2328movem.l R4-R7/R12-R13,-(sp)
2329~col=R7
2330~grp=R6
2331~sect=R5
2332~ep=R13
2333~rp=R12
2334*line 788
2335*line 789
2336tst _astat
2337beq L96
2338*line 790
2339*line 791
2340*line 792
2341tst _clkrun
2342bne L96
2343*line 793
2344*line 794
2345*line 795
2346cmp #-1,_scmctl
2347bne L96
2348*line 796
2349*line 797
2350*line 798
2351*line 798
2352cmp #4,_sdmctl
2353bne L97
2354*line 799
2355*line 800
2356*line 801
2357cmp #19,_vtcrow
2358beq L10010
2359cmp #20,_vtcrow
2360bne L98
2361L10010:cmp #24,_vtccol
2362blt L98
2363*line 802
2364*line 803
2365*line 804
2366tst _recsw
2367beq L96
2368*line 805
2369*line 806
2370*line 807
2371*line 808
2372move _vtccol,R5
2373add #-24,R5
2374asr #2,R5
2375cmp #20,_vtcrow
2376bne L10011
2377move #10,R0
2378bra L10013
2379L10011:clr R0
2380L10013:add R0,R5
2381*line 809
2382move _vtccol,R7
2383add #-24,R7
2384and #3,R7
2385*line 810
2386*line 811
2387move R7,R0
2388bra L100
2389*line 812
2390L101:
2391*line 813
2392*line 814
2393*line 815
2394*line 816
2395*line 816
2396move _curscor,R0
2397muls #80,R0
2398move R5,R1
2399asl #2,R1
2400ext.l R1
2401add.l R1,R0
2402add.l #_seclist,R0
2403move.l R0,R8
2404move.l (R8),R13
2405move.l R13,R0
2406beq L102
2407*line 817
2408*line 818
2409*line 819
2410*line 820
2411move.l 12(R13),R12
2412*line 821
2413*line 822
2414*line 823
2415cmp.l _p_bak,R13
2416bne L103
2417*line 823
2418move.l R12,_p_bak
2419*line 824
2420L103:
2421*line 825
2422*line 826
2423cmp.l _p_cur,R13
2424bne L104
2425*line 826
2426move.l R12,_p_cur
2427*line 827
2428L104:
2429*line 828
2430*line 829
2431cmp.l _p_ctr,R13
2432bne L105
2433*line 829
2434move.l R12,_p_ctr
2435*line 830
2436L105:
2437*line 831
2438*line 832
2439cmp.l _p_fwd,R13
2440bne L106
2441*line 832
2442move.l R12,_p_fwd
2443*line 833
2444L106:
2445*line 834
2446move #10,(sp)
2447move.l R13,-(sp)
2448jsr _eh_rmv
2449addq.l #4,sp
2450*line 835
2451move.l R13,(sp)
2452jsr _e_rmv
2453move.l R0,(sp)
2454jsr _e_del
2455*line 836
2456move _curscor,R0
2457muls #80,R0
2458move R5,R1
2459asl #2,R1
2460ext.l R1
2461add.l R1,R0
2462add.l #_seclist,R0
2463move.l R0,R8
2464move.l #$0,(R8)
2465*line 837
2466move #-1,(sp)
2467jsr _sdmenu
2468*line 838
2469move.l _fc_val,(sp)
2470jsr _sc_refr
2471*line 839
2472*line 840
2473L102:bra L99
2474*line 841
2475*line 842
2476*line 843
2477L107:
2478*line 844
2479L108:
2480*line 845
2481bra L99
2482*line 846
2483*line 847
2484L109:
2485*line 848
2486*line 849
2487*line 850
2488*line 851
2489move #-1,(sp)
2490move R5,-(sp)
2491move.l #$ffffffff,-(sp)
2492move #3,-(sp)
2493jsr _ehfind
2494addq.l #8,sp
2495move.l R0,R13
2496move.l R13,R0
2497beq L110
2498*line 852
2499*line 853
2500*line 854
2501*line 855
2502move.l 12(R13),R12
2503*line 856
2504*line 857
2505*line 858
2506cmp.l _p_bak,R13
2507bne L111
2508*line 858
2509move.l R12,_p_bak
2510*line 859
2511L111:
2512*line 860
2513*line 861
2514cmp.l _p_cur,R13
2515bne L112
2516*line 861
2517move.l R12,_p_cur
2518*line 862
2519L112:
2520*line 863
2521*line 864
2522cmp.l _p_ctr,R13
2523bne L113
2524*line 864
2525move.l R12,_p_ctr
2526*line 865
2527L113:
2528*line 866
2529*line 867
2530cmp.l _p_fwd,R13
2531bne L114
2532*line 867
2533move.l R12,_p_fwd
2534*line 868
2535L114:
2536*line 869
2537move #11,(sp)
2538move.l R13,-(sp)
2539jsr _eh_rmv
2540addq.l #4,sp
2541*line 870
2542move.l R13,(sp)
2543jsr _e_rmv
2544move.l R0,(sp)
2545jsr _e_del
2546*line 871
2547move #-1,(sp)
2548jsr _sdmenu
2549*line 872
2550move.l _fc_val,(sp)
2551jsr _sc_refr
2552*line 873
2553*line 874
2554L110:bra L99
2555*line 875
2556bra L99
2557L100:tst R0
2558beq L101
2559cmp #1,R0
2560beq L107
2561cmp #2,R0
2562beq L108
2563cmp #3,R0
2564beq L109
2565bra L99
2566L99:
2567*line 876
2568*line 877
2569bra L96
2570*line 878
2571*line 879
2572*line 880
2573*line 881
2574bra L115
2575L98:
2576*line 882
2577*line 883
2578cmp #23,_vtcrow
2579bne L116
2580cmp #28,_vtccol
2581blt L116
2582cmp #62,_vtccol
2583bgt L116
2584*line 884
2585*line 885
2586*line 886
2587*line 887
2588move _vtccol,R7
2589add #-28,R7
2590*line 888
2591*line 889
2592*line 890
2593move R7,R0
2594ext.l R0
2595divs #3,R0
2596swap R0
2597cmp #2,R0
2598beq L96
2599*line 891
2600*line 892
2601move R7,R6
2602ext.l R6
2603divs #3,R6
2604*line 893
2605move R6,R8
2606add.l R8,R8
2607add.l #_grptmap,R8
2608move #-1,(R8)
2609*line 894
2610move R6,(sp)
2611jsr _dsgtme
2612bra L96
2613*line 895
2614*line 896
2615L116:L115:
2616*line 897
2617*line 898
2618L97:
2619*line 899
2620*line 900
2621tst _recsw
2622beq L96
2623*line 901
2624*line 902
2625*line 902
2626cmp #14,_cyval
2627blt L117
2628cmp #223,_cyval
2629bgt L117
2630*line 903
2631*line 904
2632jsr _delnote
2633*line 905
2634bra L118
2635L117:
2636*line 906
2637*line 906
2638cmp #224,_cyval
2639blt L119
2640cmp #237,_cyval
2641bgt L119
2642*line 907
2643*line 908
2644*line 909
2645move _cxval,(sp)
2646jsr _cp2time
2647tst R0
2648beq L120
2649*line 909
2650move.l _ctime,(sp)
2651move #-1,-(sp)
2652jsr _delevts
2653addq.l #2,sp
2654*line 910
2655*line 911
2656*line 912
2657*line 913
2658L120:bra L121
2659L119:
2660*line 914
2661*line 914
2662cmp #17,_stcrow
2663bne L122
2664*line 915
2665*line 916
2666*line 917
2667cmp #11,_stccol
2668blt L123
2669cmp #12,_stccol
2670bgt L123
2671*line 917
2672move.l _t_cur,(sp)
2673move #16,-(sp)
2674jsr _delevts
2675addq.l #2,sp
2676bra L124
2677L123:
2678*line 918
2679*line 919
2680cmp #19,_stccol
2681bne L125
2682*line 919
2683move.l _t_cur,(sp)
2684move #10,-(sp)
2685jsr _delevts
2686addq.l #2,sp
2687bra L126
2688L125:
2689*line 920
2690*line 921
2691cmp #27,_stccol
2692blt L127
2693cmp #29,_stccol
2694bgt L127
2695*line 921
2696move.l _t_cur,(sp)
2697move #9,-(sp)
2698jsr _delevts
2699addq.l #2,sp
2700bra L128
2701L127:
2702*line 922
2703*line 923
2704cmp #36,_stccol
2705blt L129
2706cmp #38,_stccol
2707bgt L129
2708*line 923
2709move.l _t_cur,(sp)
2710move #8,-(sp)
2711jsr _delevts
2712addq.l #2,sp
2713bra L130
2714L129:
2715*line 924
2716*line 925
2717cmp #40,_stccol
2718blt L131
2719cmp #43,_stccol
2720bgt L131
2721*line 925
2722move.l _t_cur,(sp)
2723move #7,-(sp)
2724jsr _delevts
2725addq.l #2,sp
2726bra L132
2727L131:
2728*line 926
2729*line 927
2730cmp #45,_stccol
2731blt L133
2732cmp #48,_stccol
2733bgt L133
2734*line 927
2735move.l _t_cur,(sp)
2736move #24,-(sp)
2737jsr _delevts
2738addq.l #2,sp
2739bra L134
2740L133:
2741*line 928
2742*line 929
2743cmp #50,_stccol
2744blt L135
2745cmp #55,_stccol
2746bgt L135
2747*line 929
2748move.l _t_cur,(sp)
2749move #19,-(sp)
2750jsr _delevts
2751addq.l #2,sp
2752*line 930
2753L135:L134:L132:L130:L128:L126:L124:bra L136
2754L122:
2755*line 931
2756*line 932
2757cmp #18,_stcrow
2758bne L137
2759move _stccol,R0
2760sub #5,R0
2761ext.l R0
2762divs #5,R0
2763swap R0
2764tst R0
2765bne L137
2766*line 933
2767*line 934
2768move.l _t_cur,(sp)
2769move #11,-(sp)
2770jsr _delevts
2771addq.l #2,sp
2772*line 935
2773bra L138
2774L137:
2775*line 936
2776*line 937
2777*line 938
2778cmp #18,_stcrow
2779bne L139
2780move _stccol,R0
2781sub #5,R0
2782ext.l R0
2783divs #5,R0
2784swap R0
2785cmp #2,R0
2786beq L10014
2787move _stccol,R0
2788sub #5,R0
2789ext.l R0
2790divs #5,R0
2791swap R0
2792cmp #3,R0
2793bne L139
2794L10014:*line 939
2795*line 940
2796move.l _t_cur,(sp)
2797move #4,-(sp)
2798jsr _delevts
2799addq.l #2,sp
2800*line 941
2801bra L140
2802L139:
2803*line 942
2804*line 942
2805cmp #19,_stcrow
2806bne L141
2807*line 943
2808*line 944
2809move.l _t_cur,(sp)
2810move #17,-(sp)
2811jsr _delevts
2812addq.l #2,sp
2813*line 945
2814bra L142
2815L141:
2816*line 946
2817*line 947
2818cmp #20,_stcrow
2819bne L143
2820cmp #6,_stccol
2821blt L143
2822move _stccol,R0
2823sub #6,R0
2824ext.l R0
2825divs #5,R0
2826swap R0
2827tst R0
2828bne L143
2829*line 948
2830*line 949
2831move.l _t_cur,(sp)
2832move #13,-(sp)
2833jsr _delevts
2834addq.l #2,sp
2835*line 950
2836bra L144
2837L143:
2838*line 951
2839*line 952
2840cmp #20,_stcrow
2841bne L145
2842cmp #6,_stccol
2843blt L145
2844move _stccol,R0
2845sub #6,R0
2846ext.l R0
2847divs #5,R0
2848swap R0
2849cmp #2,R0
2850bne L145
2851*line 953
2852*line 954
2853move.l _t_cur,(sp)
2854move #12,-(sp)
2855jsr _delevts
2856addq.l #2,sp
2857*line 955
2858bra L146
2859L145:
2860*line 956
2861*line 956
2862cmp #23,_stcrow
2863bne L147
2864*line 957
2865*line 958
2866jsr _deladat
2867*line 959
2868*line 960
2869bra L148
2870L147:
2871*line 961
2872*line 961
2873cmp #24,_stcrow
2874bne L149
2875*line 962
2876*line 963
2877*line 963
2878cmp #4,_stccol
2879bgt L150
2880*line 964
2881*line 965
2882*line 966
2883*line 967
2884*line 968
2885tst _insmode
2886beq L151
2887*line 968
2888jsr _icancel
2889*line 969
2890L151:
2891*line 970
2892move _curscor,(sp)
2893jsr _sc_clr
2894*line 971
2895move _curscor,(sp)
2896jsr _selscor
2897*line 972
2898bra L152
2899L150:
2900*line 973
2901*line 973
2902cmp #10,_stccol
2903blt L153
2904cmp #25,_stccol
2905bgt L153
2906*line 974
2907*line 975
2908*line 976
2909*line 977
2910move #16,(sp)
2911move #32,-(sp)
2912move _curscor,R0
2913asl #4,R0
2914ext.l R0
2915add.l #_scname,R0
2916move.l R0,-(sp)
2917jsr _memset
2918addq.l #6,sp
2919*line 978
2920move #13,(sp)
2921jsr _dswin
2922*line 979
2923L153:L152:
2924*line 980
2925L149:L148:L146:L144:L142:L140:L138:L136:L121:L118:L96:tst.l (sp)+
2926movem.l (sp)+,R5-R7/R12-R13
2927unlk R14
2928rts
2929.globl _sdmkey
2930.text
2931_sdmkey:
2932~~sdmkey:
2933link R14,#-4
2934*line 994
2935*line 994
2936tst _astat
2937beq L155
2938*line 995
2939*line 996
2940*line 997
2941tst _insmode
2942beq L156
2943*line 997
2944jsr _icancel
2945L156:
2946*line 998
2947*line 999
2948L155:
2949*line 1000
2950jsr _stdmkey
2951L154:unlk R14
2952rts
2953.globl _scfield
2954.text
2955_scfield:
2956~~scfield:
2957link R14,#-4
2958*line 1014
2959move.l #_sc_flds,(sp)
2960jsr _curset
2961L157:unlk R14
2962rts
2963.data
Note: See TracBrowser for help on using the repository browser.