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

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 11.0 KB
Line 
1.globl _io_time
2.globl _io_lcd
3.globl _io_ser
4.globl _io_midi
5.globl _io_disk
6.globl _io_tone
7.globl _io_leds
8.globl _io_kbrd
9.globl _lcd_a0
10.globl _lcd_a1
11.globl _io_vreg
12.globl _io_vraw
13.globl _io_vram
14.globl _io_fpu
15.globl _v_regs
16.globl _v_odtab
17.globl _v_actab
18.globl _v_ct0
19.globl _v_gt1
20.globl _v_score
21.globl _v_cgtab
22.globl _v_curs0
23.globl _v_curs1
24.globl _v_curs2
25.globl _v_curs3
26.globl _v_curs4
27.globl _v_curs5
28.globl _v_curs6
29.globl _v_curs7
30.globl _v_tcur
31.globl _v_kbobj
32.globl _v_lnobj
33.globl _v_win0
34.globl _v_cur
35.globl _fc_sw
36.globl _fc_val
37.globl _ebflag
38.globl _ebuf
39.globl _curfet
40.globl _cfetp
41.globl _infetp
42.globl _obj3
43.globl _cxval
44.globl _cyval
45.globl _stcrow
46.globl _stccol
47.globl _sctctab
48.globl _sctccon
49.data
50_sctccon:
51.dc.w $3
52.dc.w $3
53.dc.w $4
54.dc.w $4
55.dc.w $4
56.dc.w $4
57.dc.w $4
58.dc.w $4
59.dc.w $4
60.dc.w $3
61.dc.w $3
62.dc.w $3
63.dc.w $3
64.dc.w $3
65.dc.w $3
66.dc.w $3
67.dc.w $3
68.dc.w $3
69.dc.w $3
70.dc.w $3
71.dc.w $3
72.dc.w $3
73.dc.w $4
74.dc.w $4
75.dc.w $4
76.dc.w $4
77.dc.w $4
78.dc.w $4
79.dc.w $4
80.dc.w $3
81.dc.w $3
82.dc.w $3
83.dc.w $3
84.dc.w $3
85.dc.w $3
86.dc.w $3
87.dc.w $3
88.dc.w $3
89.dc.w $3
90.dc.w $3
91.dc.w $3
92.dc.w $3
93.dc.w $3
94.dc.w $3
95.dc.w $3
96.dc.w $3
97.dc.w $3
98.dc.w $3
99.dc.w $3
100.dc.w $3
101.dc.w $3
102.dc.w $3
103.dc.w $3
104.dc.w $3
105.dc.w $3
106.dc.w $4
107.dc.w $4
108.dc.w $4
109.dc.w $4
110.dc.w $4
111.dc.w $4
112.dc.w $4
113.dc.w $4
114.dc.w $4
115.dc.w $3
116.dc.w $3
117.dc.w $3
118.dc.w $3
119.dc.w $3
120.dc.w $3
121.dc.w $3
122.dc.w $3
123.dc.w $3
124.dc.w $3
125.dc.w $3
126.dc.w $3
127.dc.w $3
128.dc.w $3
129.dc.w $4
130.dc.w $4
131.dc.w $4
132.dc.w $4
133.dc.w $4
134.dc.w $4
135.dc.w $4
136.dc.w $3
137.dc.w $3
138.dc.w $3
139.dc.w $3
140.dc.w $3
141.dc.w $3
142.dc.w $3
143.dc.w $3
144.dc.w $3
145.dc.w $3
146.dc.w $4
147.dc.w $4
148.dc.w $4
149.dc.w $4
150.dc.w $4
151.dc.w $4
152.dc.w $4
153.dc.w $4
154.dc.w $4
155.dc.w $3
156.dc.w $3
157.dc.w $3
158.dc.w $3
159.dc.w $3
160.dc.w $3
161.dc.w $3
162.dc.w $3
163.dc.w $3
164.dc.w $3
165.dc.w $4
166.dc.w $4
167.dc.w $4
168.dc.w $4
169.dc.w $4
170.dc.w $4
171.dc.w $4
172.dc.w $3
173.dc.w $3
174.dc.w $3
175.dc.w $3
176.dc.w $3
177.dc.w $3
178.dc.w $3
179.dc.w $2
180.dc.w $2
181.dc.w $2
182.dc.w $2
183.dc.w $2
184.dc.w $2
185.dc.w $2
186.dc.w $2
187.dc.w $2
188.dc.w $2
189.dc.w $2
190.dc.w $2
191.dc.w $2
192.dc.w $2
193.dc.w $2
194.dc.w $2
195.dc.w $2
196.dc.w $2
197.dc.w $2
198.dc.w $2
199.dc.w $2
200.dc.w $2
201.dc.w $2
202.dc.w $2
203.dc.w $2
204.dc.w $2
205.dc.w $2
206.dc.w $2
207.dc.w $2
208.dc.w $2
209.dc.w $2
210.dc.w $2
211.dc.w $2
212.dc.w $2
213.dc.w $2
214.dc.w $2
215.dc.w $2
216.dc.w $2
217.dc.w $2
218.dc.w $2
219.dc.w $2
220.dc.w $2
221.dc.w $2
222.dc.w $2
223.dc.w $2
224.dc.w $2
225.dc.w $2
226.dc.w $2
227.dc.w $2
228.dc.w $2
229.dc.w $2
230.dc.w $2
231.dc.w $2
232.dc.w $2
233.dc.w $2
234.dc.w $2
235.dc.w $2
236.dc.w $2
237.dc.w $2
238.dc.w $2
239.dc.w $2
240.dc.w $2
241.dc.w $2
242.dc.w $2
243.dc.w $2
244.dc.w $2
245.dc.w $2
246.dc.w $2
247.dc.w $2
248.dc.w $2
249.dc.w $2
250.dc.w $2
251.dc.w $2
252.dc.w $2
253.dc.w $2
254.dc.w $2
255.dc.w $2
256.dc.w $2
257.dc.w $2
258.dc.w $2
259.dc.w $2
260.dc.w $2
261.dc.w $2
262.dc.w $2
263.dc.w $2
264.dc.w $2
265.dc.w $2
266.dc.w $2
267.dc.w $2
268.dc.w $2
269.dc.w $2
270.dc.w $2
271.dc.w $2
272.dc.w $2
273.dc.w $2
274.dc.w $2
275.dc.w $2
276.dc.w $2
277.dc.w $2
278.dc.w $2
279.dc.w $2
280.dc.w $2
281.dc.w $2
282.dc.w $2
283.dc.w $2
284.dc.w $2
285.dc.w $2
286.dc.w $2
287.dc.w $2
288.dc.w $2
289.dc.w $2
290.dc.w $2
291.dc.w $2
292.dc.w $2
293.dc.w $2
294.dc.w $2
295.dc.w $2
296.dc.w $2
297.dc.w $2
298.dc.w $2
299.dc.w $2
300.dc.w $2
301.dc.w $2
302.dc.w $2
303.dc.w $2
304.dc.w $2
305.dc.w $2
306.dc.w $2
307.dc.w $2
308.dc.w $2
309.dc.w $2
310.dc.w $2
311.dc.w $2
312.dc.w $2
313.dc.w $2
314.dc.w $2
315.dc.w $2
316.dc.w $2
317.dc.w $2
318.dc.w $2
319.dc.w $2
320.dc.w $2
321.dc.w $2
322.dc.w $2
323.dc.w $2
324.dc.w $2
325.dc.w $2
326.dc.w $2
327.dc.w $2
328.dc.w $2
329.dc.w $2
330.dc.w $2
331.dc.w $2
332.dc.w $2
333.dc.w $2
334.dc.w $2
335.dc.w $2
336.dc.w $2
337.dc.w $2
338.dc.w $2
339.dc.w $2
340.dc.w $2
341.dc.w $2
342.dc.w $2
343.dc.w $2
344.dc.w $2
345.dc.w $2
346.dc.w $2
347.dc.w $2
348.dc.w $2
349.dc.w $2
350.dc.w $2
351.dc.w $2
352.dc.w $2
353.dc.w $2
354.dc.w $2
355.dc.w $2
356.dc.w $2
357.dc.w $2
358.dc.w $2
359.dc.w $2
360.dc.w $2
361.dc.w $2
362.dc.w $2
363.dc.w $2
364.dc.w $2
365.dc.w $2
366.dc.w $2
367.dc.w $2
368.dc.w $2
369.dc.w $2
370.dc.w $2
371.dc.w $2
372.dc.w $2
373.dc.w $2
374.dc.w $2
375.dc.w $2
376.dc.w $2
377.dc.w $2
378.dc.w $2
379.dc.w $2
380.dc.w $2
381.dc.w $2
382.dc.w $2
383.dc.w $2
384.dc.w $2
385.dc.w $2
386.dc.w $2
387.dc.w $2
388.dc.w $2
389.dc.w $2
390.dc.w $2
391.dc.w $2
392.dc.w $2
393.dc.w $2
394.dc.w $2
395.dc.w $2
396.dc.w $2
397.dc.w $2
398.dc.w $2
399.dc.w $2
400.dc.w $2
401.dc.w $2
402.dc.w $2
403.dc.w $2
404.dc.w $2
405.dc.w $2
406.dc.w $2
407.dc.w $2
408.dc.w $2
409.dc.w $2
410.dc.w $2
411.dc.w $2
412.dc.w $2
413.dc.w $2
414.dc.w $2
415.dc.w $2
416.dc.w $2
417.dc.w $2
418.dc.w $2
419.dc.w $2
420.dc.w $2
421.dc.w $2
422.dc.w $2
423.dc.w $2
424.dc.w $2
425.dc.w $2
426.dc.w $2
427.dc.w $2
428.dc.w $2
429.dc.w $2
430.dc.w $2
431.dc.w $2
432.dc.w $2
433.dc.w $2
434.dc.w $2
435.dc.w $2
436.dc.w $2
437.dc.w $2
438.dc.w $2
439.dc.w $2
440.dc.w $2
441.dc.w $2
442.dc.w $2
443.dc.w $2
444.dc.w $2
445.dc.w $2
446.dc.w $2
447.dc.w $2
448.dc.w $2
449.dc.w $2
450.dc.w $2
451.dc.w $2
452.dc.w $2
453.dc.w $2
454.dc.w $2
455.dc.w $2
456.dc.w $2
457.dc.w $2
458.dc.w $2
459.dc.w $2
460.dc.w $2
461.dc.w $2
462.dc.w $2
463.dc.w $2
464.dc.w $2
465.dc.w $2
466.dc.w $2
467.dc.w $2
468.dc.w $2
469.dc.w $2
470.dc.w $2
471.dc.w $2
472.dc.w $2
473.dc.w $2
474.dc.w $2
475.dc.w $2
476.dc.w $2
477.dc.w $2
478.dc.w $2
479.dc.w $2
480.dc.w $2
481.dc.w $2
482.dc.w $2
483.dc.w $2
484.dc.w $2
485.dc.w $2
486.dc.w $2
487.dc.w $2
488.dc.w $2
489.dc.w $2
490.dc.w $2
491.dc.w $2
492.dc.w $2
493.dc.w $2
494.dc.w $2
495.dc.w $2
496.dc.w $2
497.dc.w $2
498.dc.w $2
499.dc.w $2
500.dc.w $2
501.dc.w $2
502.dc.w $2
503.dc.w $2
504.dc.w $2
505.dc.w $2
506.dc.w $2
507.dc.w $2
508.dc.w $2
509.dc.w $2
510.dc.w $2
511.dc.w $2
512.dc.w $2
513.dc.w $2
514.dc.w $2
515.dc.w $2
516.dc.w $2
517.dc.w $2
518.dc.w $2
519.dc.w $2
520.dc.w $2
521.dc.w $2
522.dc.w $2
523.dc.w $2
524.dc.w $2
525.dc.w $2
526.dc.w $2
527.dc.w $2
528.dc.w $2
529.dc.w $2
530.dc.w $2
531.dc.w $2
532.dc.w $2
533.dc.w $2
534.dc.w $2
535.dc.w $2
536.dc.w $2
537.dc.w $2
538.dc.w $2
539.dc.w $2
540.dc.w $2
541.dc.w $2
542.dc.w $2
543.dc.w $2
544.dc.w $2
545.dc.w $2
546.dc.w $2
547.dc.w $2
548.dc.w $2
549.dc.w $2
550.dc.w $2
551.dc.w $2
552.dc.w $2
553.dc.w $2
554.dc.w $2
555.dc.w $2
556.dc.w $2
557.dc.w $2
558.dc.w $2
559.dc.w $2
560.dc.w $2
561.dc.w $2
562.dc.w $2
563.dc.w $3
564.dc.w $3
565.dc.w $3
566.dc.w $3
567.dc.w $3
568.dc.w $3
569.dc.w $3
570.dc.w $3
571.dc.w $3
572.dc.w $3
573.dc.w $3
574.dc.w $3
575.dc.w $3
576.dc.w $3
577.dc.w $3
578.dc.w $3
579.dc.w $3
580.dc.w $3
581.dc.w $3
582.dc.w $3
583.dc.w $3
584.dc.w $3
585.dc.w $3
586.dc.w $3
587.dc.w $3
588.dc.w $3
589.dc.w $3
590.dc.w $4
591.dc.w $4
592.dc.w $4
593.dc.w $4
594.dc.w $4
595.dc.w $4
596.dc.w $4
597.dc.w $4
598.dc.w $4
599.dc.w $4
600.dc.w $4
601.dc.w $4
602.dc.w $4
603.dc.w $4
604.dc.w $4
605.dc.w $4
606.dc.w $4
607.dc.w $4
608.dc.w $4
609.dc.w $4
610.dc.w $4
611.dc.w $4
612.dc.w $4
613.dc.w $4
614.dc.w $4
615.dc.w $4
616.dc.w $4
617.dc.w $4
618.dc.w $4
619.dc.w $4
620.dc.w $3
621.dc.w $3
622.dc.w $3
623.dc.w $3
624.dc.w $3
625.dc.w $3
626.dc.w $3
627.dc.w $4
628.dc.w $4
629.dc.w $4
630.dc.w $4
631.dc.w $4
632.dc.w $4
633.dc.w $4
634.dc.w $4
635.dc.w $4
636.dc.w $4
637.dc.w $4
638.dc.w $4
639.dc.w $4
640.dc.w $4
641.dc.w $4
642.dc.w $4
643.dc.w $4
644.dc.w $4
645.dc.w $4
646.dc.w $4
647.dc.w $4
648.dc.w $4
649.dc.w $4
650.dc.w $4
651.dc.w $4
652.dc.w $4
653.dc.w $4
654.dc.w $4
655.dc.w $4
656.dc.w $4
657.dc.w $4
658.dc.w $4
659.dc.w $4
660.dc.w $4
661.dc.w $4
662.dc.w $4
663.dc.w $4
664.dc.w $4
665.dc.w $4
666.dc.w $4
667.dc.w $4
668.dc.w $4
669.dc.w $4
670.dc.w $4
671.dc.w $4
672.dc.w $4
673.dc.w $4
674.dc.w $4
675.dc.w $4
676.dc.w $4
677.dc.w $4
678.dc.w $4
679.dc.w $4
680.dc.w $4
681.dc.w $4
682.dc.w $4
683.dc.w $4
684.dc.w $4
685.dc.w $4
686.dc.w $4
687.dc.w $4
688.dc.w $4
689.dc.w $4
690.dc.w $4
691.globl _stcclr
692.text
693_stcclr:
694~~stcclr:
695link R14,#0
696movem.l R4-R7/R13-R13,-(sp)
697~obj=R13
698~i=R7
699~j=R6
700~k=R5
701*line 174
702*line 175
703clr R0
704move 10+_v_regs,R0
705and #384,R0
706cmp #256,R0
707beq L2
708*line 175
709move #1,(sp)
710jsr _vbank
711*line 176
712L2:
713*line 177
714clr _stcrow
715*line 178
716clr _stccol
717*line 180
718move.l _obj3,R13
719*line 182
720clr R7
721bra L5
722L6:
723*line 183
724*line 184
725clr R6
726bra L9
727L10:
728*line 185
729*line 186
730move R7,R0
731asl #7,R0
732ext.l R0
733move R6,R1
734asl #1,R1
735ext.l R1
736add.l R1,R0
737move.l R0,R8
738move.l #_sctctab,R9
739move 0(R8,R9.l),(sp)
740jsr _exp_c
741move R0,R5
742*line 187
743*line 188
744move R5,(R13)+
745*line 189
746move R5,(R13)+
747L8:
748*line 184
749add #1,R6
750L9:
751*line 184
752cmp #64,R6
753blt L10
754L7:
755*line 190
756*line 191
757*line 192
758clr R6
759bra L13
760L14:
761*line 193
762*line 194
763cmp #5,R7
764bne L10000
765move #9,R0
766bra L10002
767L10000:move R7,R0
768L10002:asl #7,R0
769ext.l R0
770move R6,R1
771asl #1,R1
772ext.l R1
773add.l R1,R0
774move.l R0,R8
775move.l #_sctctab,R9
776move 0(R8,R9.l),(sp)
777jsr _exp_c
778move R0,R5
779*line 195
780*line 196
781move R5,(R13)+
782*line 197
783move R5,(R13)+
784L12:
785*line 192
786add #1,R6
787L13:
788*line 192
789cmp #64,R6
790blt L14
791L11:
792*line 198
793L4:
794*line 182
795add #1,R7
796L5:
797*line 182
798cmp #9,R7
799blt L6
800L3:L1:tst.l (sp)+
801movem.l (sp)+,R5-R7/R13-R13
802unlk R14
803rts
804.globl _stcoff
805.text
806_stcoff:
807~~stcoff:
808link R14,#0
809movem.l R5-R7/R13-R13,-(sp)
810~ccv=R7
811~tcp=R13
812~tcrow=R6
813*line 216
814tst _stcrow
815beq L10003
816move _stcrow,R0
817add #-16,R0
818bra L10005
819L10003:clr R0
820L10005:move R0,R6
821*line 218
822*line 219
823clr R0
824move 10+_v_regs,R0
825and #384,R0
826cmp #256,R0
827beq L16
828*line 219
829move #1,(sp)
830jsr _vbank
831*line 220
832L16:
833*line 221
834move R6,R0
835asl #8,R0
836asl #1,R0
837ext.l R0
838move.l R0,R13
839move _stccol,R0
840asl #1,R0
841asl #1,R0
842ext.l R0
843add.l R0,R13
844add.l _obj3,R13
845*line 225
846move R6,R0
847asl #7,R0
848ext.l R0
849move _stccol,R1
850asl #1,R1
851ext.l R1
852add.l R1,R0
853move.l R0,R8
854move.l #_sctctab,R9
855move 0(R8,R9.l),(sp)
856jsr _exp_c
857move R0,R7
858*line 227
859move R7,(R13)+
860*line 228
861move R7,(R13)
862L15:tst.l (sp)+
863movem.l (sp)+,R6-R7/R13-R13
864unlk R14
865rts
866.globl _stcpos
867.text
868_stcpos:
869~~stcpos:
870~row=8
871~col=10
872link R14,#0
873movem.l R3-R7/R12-R13,-(sp)
874~ccp=R13
875~tcp=R12
876~curson=R7
877~ccv=R6
878~ncrow=R5
879~tcrow=R4
880*line 247
881tst _stcrow
882beq L10006
883move _stcrow,R0
884add #-16,R0
885bra L10008
886L10006:clr R0
887L10008:move R0,R4
888*line 248
889tst 8(R14)
890beq L10009
891move 8(R14),R0
892add #-16,R0
893bra L10011
894L10009:clr R0
895L10011:move R0,R5
896*line 250
897*line 251
898clr R0
899move 10+_v_regs,R0
900and #384,R0
901cmp #256,R0
902beq L18
903*line 251
904move #1,(sp)
905jsr _vbank
906*line 252
907L18:
908*line 253
909move #15,(sp)
910jsr _exp_c
911move R0,R7
912*line 257
913move R4,R0
914asl #7,R0
915ext.l R0
916move _stccol,R1
917asl #1,R1
918ext.l R1
919add.l R1,R0
920move.l R0,R8
921move.l #_sctctab,R9
922move 0(R8,R9.l),(sp)
923jsr _exp_c
924move R0,R6
925*line 259
926move R4,R0
927asl #8,R0
928asl #1,R0
929ext.l R0
930move.l R0,R12
931move _stccol,R0
932asl #1,R0
933asl #1,R0
934ext.l R0
935add.l R0,R12
936add.l _obj3,R12
937*line 260
938move R5,R0
939asl #8,R0
940asl #1,R0
941ext.l R0
942move.l R0,R13
943move 10(R14),R0
944asl #1,R0
945asl #1,R0
946ext.l R0
947add.l R0,R13
948add.l _obj3,R13
949*line 262
950move R6,(R12)+
951*line 263
952move R6,(R12)
953*line 265
954move R7,(R13)+
955*line 266
956move R7,(R13)
957*line 268
958move 8(R14),_stcrow
959*line 269
960move 10(R14),_stccol
961L17:tst.l (sp)+
962movem.l (sp)+,R4-R7/R12-R13
963unlk R14
964rts
965.globl _advscur
966.text
967_advscur:
968~~advscur:
969link R14,#0
970movem.l R6-R7,-(sp)
971~newcol=R7
972*line 285
973*line 286
974move.l _curfet,(sp)
975move _stccol,-(sp)
976move _stcrow,-(sp)
977jsr _infield
978addq.l #4,sp
979tst R0
980beq L20
981*line 286
982move.l _infetp,_cfetp
983*line 287
984bra L21
985L20:bra L19
986L21:
987*line 290
988move _stccol,R7
989add #1,R7
990*line 292
991*line 293
992move.l _cfetp,R8
993cmp 4(R8),R7
994bgt L22
995*line 293
996move R7,(sp)
997move _stcrow,-(sp)
998jsr _stcpos
999addq.l #2,sp
1000L22:L19:tst.l (sp)+
1001movem.l (sp)+,R7-R7
1002unlk R14
1003rts
1004.globl _stcset
1005.text
1006_stcset:
1007~~stcset:
1008link R14,#-4
1009*line 304
1010move #640,(sp)
1011move.l #_sctccon,-(sp)
1012move.l #_sctctab,-(sp)
1013jsr _memcpyw
1014addq.l #8,sp
1015L23:unlk R14
1016rts
1017.data
Note: See TracBrowser for help on using the repository browser.