source: buchla-68k/alcyon/gcurpos.s@ ca867c1

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 10.1 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 _v_obtab
38.globl _v_curob
39.globl _v_nobj
40.globl _v_obpri
41.globl _sgcsw
42.globl _stcrow
43.globl _stccol
44.data
45L1:.dc.w $FFFF
46.dc.w $0
47.dc.w $0
48.dc.w $0
49.dc.w $FF
50.dc.w $0
51.dc.w $0
52.dc.w $0
53.dc.w $F0F
54.dc.w $0
55.dc.w $0
56.dc.w $0
57.dc.w $F00F
58.dc.w $0
59.dc.w $0
60.dc.w $0
61.dc.w $0
62.dc.w $F
63.dc.w $0
64.dc.w $0
65.dc.w $0
66.dc.w $F0
67.dc.w $0
68.dc.w $0
69.dc.w $0
70.dc.w $F00
71.dc.w $0
72.dc.w $0
73.dc.w $0
74.dc.w $F000
75.dc.w $0
76.dc.w $0
77.dc.w $0
78.dc.w $0
79.dc.w $F
80.dc.w $0
81.dc.w $0
82.dc.w $0
83.dc.w $FFF0
84.dc.w $F
85.dc.w $0
86.dc.w $0
87.dc.w $FF0
88.dc.w $0
89.dc.w $0
90.dc.w $0
91.dc.w $F0F0
92.dc.w $FFF
93.dc.w $0
94.dc.w $0
95.dc.w $F0F0
96.dc.w $F
97.dc.w $0
98.dc.w $0
99.dc.w $F000
100.dc.w $F0
101.dc.w $0
102.dc.w $0
103.dc.w $F000
104.dc.w $F00
105.dc.w $0
106.dc.w $0
107.dc.w $0
108.dc.w $0
109.text
110.data
111L2:.dc.w $FFF0
112.dc.w $F
113.dc.w $0
114.dc.w $0
115.dc.w $FF0
116.dc.w $0
117.dc.w $0
118.dc.w $0
119.dc.w $F0F0
120.dc.w $0
121.dc.w $0
122.dc.w $0
123.dc.w $F0
124.dc.w $F
125.dc.w $0
126.dc.w $0
127.dc.w $0
128.dc.w $F0
129.dc.w $0
130.dc.w $0
131.dc.w $0
132.dc.w $F00
133.dc.w $0
134.dc.w $0
135.dc.w $0
136.dc.w $F000
137.dc.w $0
138.dc.w $0
139.dc.w $0
140.dc.w $0
141.dc.w $F
142.dc.w $0
143.dc.w $0
144.dc.w $0
145.dc.w $F0
146.dc.w $0
147.dc.w $0
148.dc.w $0
149.dc.w $FF00
150.dc.w $FF
151.dc.w $0
152.dc.w $0
153.dc.w $FF00
154.dc.w $0
155.dc.w $0
156.dc.w $0
157.dc.w $F00
158.dc.w $FFFF
159.dc.w $0
160.dc.w $0
161.dc.w $F00
162.dc.w $FF
163.dc.w $0
164.dc.w $0
165.dc.w $0
166.dc.w $F0F
167.dc.w $0
168.dc.w $0
169.dc.w $0
170.dc.w $F00F
171.dc.w $0
172.dc.w $0
173.dc.w $0
174.dc.w $0
175.text
176.data
177L3:.dc.w $0
178.dc.w $0
179.dc.w $F000
180.dc.w $FFF
181.dc.w $0
182.dc.w $0
183.dc.w $0
184.dc.w $FF0
185.dc.w $0
186.dc.w $0
187.dc.w $0
188.dc.w $F0F
189.dc.w $0
190.dc.w $0
191.dc.w $F000
192.dc.w $F00
193.dc.w $0
194.dc.w $0
195.dc.w $F00
196.dc.w $0
197.dc.w $0
198.dc.w $0
199.dc.w $F0
200.dc.w $0
201.dc.w $0
202.dc.w $0
203.dc.w $F
204.dc.w $0
205.dc.w $0
206.dc.w $F000
207.dc.w $0
208.dc.w $0
209.dc.w $0
210.dc.w $F00
211.dc.w $0
212.dc.w $0
213.dc.w $FF00
214.dc.w $FF
215.dc.w $0
216.dc.w $0
217.dc.w $0
218.dc.w $FF
219.dc.w $0
220.dc.w $0
221.dc.w $FFFF
222.dc.w $F0
223.dc.w $0
224.dc.w $0
225.dc.w $FF00
226.dc.w $F0
227.dc.w $0
228.dc.w $0
229.dc.w $F0F0
230.dc.w $0
231.dc.w $0
232.dc.w $0
233.dc.w $F00F
234.dc.w $0
235.dc.w $0
236.dc.w $0
237.dc.w $0
238.dc.w $0
239.dc.w $0
240.dc.w $0
241.text
242.data
243L4:.dc.w $0
244.dc.w $0
245.dc.w $0
246.dc.w $FFFF
247.dc.w $0
248.dc.w $0
249.dc.w $0
250.dc.w $FF00
251.dc.w $0
252.dc.w $0
253.dc.w $0
254.dc.w $F0F0
255.dc.w $0
256.dc.w $0
257.dc.w $0
258.dc.w $F00F
259.dc.w $0
260.dc.w $0
261.dc.w $F000
262.dc.w $0
263.dc.w $0
264.dc.w $0
265.dc.w $F00
266.dc.w $0
267.dc.w $0
268.dc.w $0
269.dc.w $F0
270.dc.w $0
271.dc.w $0
272.dc.w $0
273.dc.w $F
274.dc.w $0
275.dc.w $0
276.dc.w $F000
277.dc.w $0
278.dc.w $0
279.dc.w $F000
280.dc.w $FFF
281.dc.w $0
282.dc.w $0
283.dc.w $0
284.dc.w $FF0
285.dc.w $0
286.dc.w $0
287.dc.w $FFF0
288.dc.w $F0F
289.dc.w $0
290.dc.w $0
291.dc.w $F000
292.dc.w $F0F
293.dc.w $0
294.dc.w $0
295.dc.w $F00
296.dc.w $F
297.dc.w $0
298.dc.w $0
299.dc.w $F0
300.dc.w $F
301.dc.w $0
302.dc.w $0
303.dc.w $0
304.dc.w $0
305.dc.w $0
306.dc.w $0
307.text
308.data
309L5:.dc.w $0
310.dc.w $0
311.dc.w $0
312.dc.w $0
313.dc.w $0
314.dc.w $0
315.dc.w $F000
316.dc.w $F00
317.dc.w $0
318.dc.w $0
319.dc.w $F000
320.dc.w $F0
321.dc.w $0
322.dc.w $0
323.dc.w $F0F0
324.dc.w $F
325.dc.w $0
326.dc.w $0
327.dc.w $F0F0
328.dc.w $FFF
329.dc.w $0
330.dc.w $0
331.dc.w $FF0
332.dc.w $0
333.dc.w $0
334.dc.w $0
335.dc.w $FFF0
336.dc.w $F
337.dc.w $0
338.dc.w $0
339.dc.w $F
340.dc.w $0
341.dc.w $0
342.dc.w $F000
343.dc.w $0
344.dc.w $0
345.dc.w $0
346.dc.w $F00
347.dc.w $0
348.dc.w $0
349.dc.w $0
350.dc.w $F0
351.dc.w $0
352.dc.w $0
353.dc.w $0
354.dc.w $F
355.dc.w $0
356.dc.w $0
357.dc.w $F00F
358.dc.w $0
359.dc.w $0
360.dc.w $0
361.dc.w $F0F
362.dc.w $0
363.dc.w $0
364.dc.w $0
365.dc.w $FF
366.dc.w $0
367.dc.w $0
368.dc.w $0
369.dc.w $FFFF
370.dc.w $0
371.dc.w $0
372.dc.w $0
373.text
374.data
375L6:.dc.w $0
376.dc.w $0
377.dc.w $0
378.dc.w $0
379.dc.w $0
380.dc.w $0
381.dc.w $0
382.dc.w $F00F
383.dc.w $0
384.dc.w $0
385.dc.w $0
386.dc.w $F0F
387.dc.w $0
388.dc.w $0
389.dc.w $F00
390.dc.w $FF
391.dc.w $0
392.dc.w $0
393.dc.w $F00
394.dc.w $FFFF
395.dc.w $0
396.dc.w $0
397.dc.w $FF00
398.dc.w $0
399.dc.w $0
400.dc.w $0
401.dc.w $FF00
402.dc.w $FF
403.dc.w $0
404.dc.w $0
405.dc.w $F0
406.dc.w $0
407.dc.w $0
408.dc.w $0
409.dc.w $F
410.dc.w $0
411.dc.w $0
412.dc.w $F000
413.dc.w $0
414.dc.w $0
415.dc.w $0
416.dc.w $F00
417.dc.w $0
418.dc.w $0
419.dc.w $0
420.dc.w $F0
421.dc.w $0
422.dc.w $0
423.dc.w $F0
424.dc.w $F
425.dc.w $0
426.dc.w $0
427.dc.w $F0F0
428.dc.w $0
429.dc.w $0
430.dc.w $0
431.dc.w $FF0
432.dc.w $0
433.dc.w $0
434.dc.w $0
435.dc.w $FFF0
436.dc.w $F
437.dc.w $0
438.dc.w $0
439.text
440.data
441L7:.dc.w $0
442.dc.w $0
443.dc.w $0
444.dc.w $0
445.dc.w $F00F
446.dc.w $0
447.dc.w $0
448.dc.w $0
449.dc.w $F0F0
450.dc.w $0
451.dc.w $0
452.dc.w $0
453.dc.w $FF00
454.dc.w $F0
455.dc.w $0
456.dc.w $0
457.dc.w $FFFF
458.dc.w $F0
459.dc.w $0
460.dc.w $0
461.dc.w $0
462.dc.w $FF
463.dc.w $0
464.dc.w $0
465.dc.w $FF00
466.dc.w $FF
467.dc.w $0
468.dc.w $0
469.dc.w $0
470.dc.w $F00
471.dc.w $0
472.dc.w $0
473.dc.w $0
474.dc.w $F000
475.dc.w $0
476.dc.w $0
477.dc.w $0
478.dc.w $0
479.dc.w $F
480.dc.w $0
481.dc.w $0
482.dc.w $0
483.dc.w $F0
484.dc.w $0
485.dc.w $0
486.dc.w $0
487.dc.w $F00
488.dc.w $0
489.dc.w $0
490.dc.w $0
491.dc.w $F000
492.dc.w $F00
493.dc.w $0
494.dc.w $0
495.dc.w $0
496.dc.w $F0F
497.dc.w $0
498.dc.w $0
499.dc.w $0
500.dc.w $FF0
501.dc.w $0
502.dc.w $0
503.dc.w $F000
504.dc.w $FFF
505.text
506.data
507L8:.dc.w $0
508.dc.w $0
509.dc.w $0
510.dc.w $0
511.dc.w $F0
512.dc.w $F
513.dc.w $0
514.dc.w $0
515.dc.w $F00
516.dc.w $F
517.dc.w $0
518.dc.w $0
519.dc.w $F000
520.dc.w $F0F
521.dc.w $0
522.dc.w $0
523.dc.w $FFF0
524.dc.w $F0F
525.dc.w $0
526.dc.w $0
527.dc.w $0
528.dc.w $FF0
529.dc.w $0
530.dc.w $0
531.dc.w $F000
532.dc.w $FFF
533.dc.w $0
534.dc.w $0
535.dc.w $0
536.dc.w $F000
537.dc.w $0
538.dc.w $0
539.dc.w $0
540.dc.w $0
541.dc.w $F
542.dc.w $0
543.dc.w $0
544.dc.w $0
545.dc.w $F0
546.dc.w $0
547.dc.w $0
548.dc.w $0
549.dc.w $F00
550.dc.w $0
551.dc.w $0
552.dc.w $0
553.dc.w $F000
554.dc.w $0
555.dc.w $0
556.dc.w $0
557.dc.w $0
558.dc.w $F00F
559.dc.w $0
560.dc.w $0
561.dc.w $0
562.dc.w $F0F0
563.dc.w $0
564.dc.w $0
565.dc.w $0
566.dc.w $FF00
567.dc.w $0
568.dc.w $0
569.dc.w $0
570.dc.w $FFFF
571.text
572.data
573L9:
574*line 223
575.dc.l _v_curs0
576*line 224
577.dc.l _v_curs1
578*line 226
579.dc.l _v_curs2
580*line 227
581.dc.l _v_curs3
582*line 229
583.dc.l _v_curs4
584*line 230
585.dc.l _v_curs5
586*line 232
587.dc.l _v_curs6
588*line 234
589.dc.l _v_curs7
590.text
591.globl _gcurpos
592.text
593_gcurpos:
594~~gcurpos:
595~xloc=R7
596~yloc=R6
597link R14,#0
598movem.l R2-R7/R13-R13,-(sp)
599~ab=R5
600~xo=R4
601~yo=R3
602~op=R13
603*line 254
604move 8(R14),R7
605*line 254
606move 10(R14),R6
607*line 254
608*line 254
609cmp #256,R7
610bge L11
611*line 255
612*line 256
613clr R4
614*line 257
615*line 258
616*line 259
617cmp #175,R6
618bge L12
619*line 259
620clr R5
621*line 259
622clr R3
623*line 260
624bra L13
625L12:
626*line 261
627move #4,R5
628*line 261
629move #-15,R3
630L13:
631*line 262
632bra L14
633L11:
634*line 263
635*line 264
636*line 265
637move #-14,R4
638*line 266
639*line 267
640*line 268
641cmp #175,R6
642bge L15
643*line 268
644move #2,R5
645*line 268
646clr R3
647*line 269
648bra L16
649L15:
650*line 270
651move #6,R5
652*line 270
653move #-15,R3
654L16:L14:
655*line 273
656*line 274
657clr R0
658move 10+_v_regs,R0
659and #384,R0
660beq L17
661*line 274
662clr (sp)
663jsr _vbank
664*line 275
665L17:
666*line 276
667or #16,120+_v_odtab
668*line 277
669move #15,(sp)
670jsr _objclr
671*line 279
672move.l #_v_obtab,R13
673*line 280
674move R7,R0
675add R4,R0
676move R0,4(R13)
677*line 281
678move R6,R0
679add R3,R0
680move R0,6(R13)
681*line 282
682move R5,R8
683move R7,R1
684and #1,R1
685add R1,R8
686add.l R8,R8
687add.l R8,R8
688add.l #L9,R8
689move.l (R8),8(R13)
690*line 283
691move 4(R13),R0
692asr #1,R0
693and #1023,R0
694or #1024,R0
695move R0,16(R13)
696*line 285
697move #15,(sp)
698clr -(sp)
699jsr _SetPri
700addq.l #2,sp
701*line 287
702move R6,R0
703ext.l R0
704divs #14,R0
705move R0,_stcrow
706*line 288
707move R7,R0
708asr #3,R0
709move R0,_stccol
710*line 289
711move R5,R0
712move R7,R1
713and #1,R1
714add R1,R0
715bra L10
716L10:tst.l (sp)+
717movem.l (sp)+,R3-R7/R13-R13
718unlk R14
719rts
720.globl _andcopy
721.text
722_andcopy:
723~~andcopy:
724~to=R13
725~from=R12
726~with=R7
727~len=18
728link R14,#0
729movem.l R5-R7/R12-R13,-(sp)
730~i=R6
731*line 307
732move.l 8(R14),R13
733*line 307
734move.l 12(R14),R12
735*line 307
736move 16(R14),R7
737*line 307
738move 18(R14),R6
739bra L21
740L22:
741*line 308
742clr R0
743move R7,R0
744and (R12)+,R0
745move R0,(R13)+
746L20:L21:
747*line 307
748move R6,R0
749sub #1,R6
750tst R0
751bne L22
752L19:L18:tst.l (sp)+
753movem.l (sp)+,R6-R7/R12-R13
754unlk R14
755rts
756.globl _arcurs
757.text
758_arcurs:
759~~arcurs:
760~icolor=8
761link R14,#0
762movem.l R6-R7,-(sp)
763~color=R7
764*line 322
765move 8(R14),(sp)
766jsr _exp_c
767move R0,R7
768*line 324
769*line 325
770clr R0
771move 10+_v_regs,R0
772and #384,R0
773cmp #256,R0
774beq L24
775*line 325
776move #1,(sp)
777jsr _vbank
778*line 326
779L24:
780*line 327
781move #64,(sp)
782move R7,-(sp)
783move.l #L1,-(sp)
784move.l #_v_curs0,-(sp)
785jsr _andcopy
786adda.l #10,sp
787*line 328
788move #64,(sp)
789move R7,-(sp)
790move.l #L2,-(sp)
791move.l #_v_curs1,-(sp)
792jsr _andcopy
793adda.l #10,sp
794*line 329
795move #64,(sp)
796move R7,-(sp)
797move.l #L3,-(sp)
798move.l #_v_curs2,-(sp)
799jsr _andcopy
800adda.l #10,sp
801*line 330
802move #64,(sp)
803move R7,-(sp)
804move.l #L4,-(sp)
805move.l #_v_curs3,-(sp)
806jsr _andcopy
807adda.l #10,sp
808*line 331
809move #64,(sp)
810move R7,-(sp)
811move.l #L5,-(sp)
812move.l #_v_curs4,-(sp)
813jsr _andcopy
814adda.l #10,sp
815*line 332
816move #64,(sp)
817move R7,-(sp)
818move.l #L6,-(sp)
819move.l #_v_curs5,-(sp)
820jsr _andcopy
821adda.l #10,sp
822*line 333
823move #64,(sp)
824move R7,-(sp)
825move.l #L7,-(sp)
826move.l #_v_curs6,-(sp)
827jsr _andcopy
828adda.l #10,sp
829*line 334
830move #64,(sp)
831move R7,-(sp)
832move.l #L8,-(sp)
833move.l #_v_curs7,-(sp)
834jsr _andcopy
835adda.l #10,sp
836L23:tst.l (sp)+
837movem.l (sp)+,R7-R7
838unlk R14
839rts
840.globl _sgcon
841.text
842_sgcon:
843~~sgcon:
844link R14,#-4
845*line 348
846*line 349
847tst _sgcsw
848bne L25
849*line 350
850*line 351
851*line 352
852clr R0
853move 10+_v_regs,R0
854and #384,R0
855beq L26
856*line 352
857clr (sp)
858jsr _vbank
859*line 353
860L26:
861*line 354
862and #-17,120+_v_odtab
863*line 355
864move #1,_sgcsw
865L25:unlk R14
866rts
867.globl _sgcoff
868.text
869_sgcoff:
870~~sgcoff:
871link R14,#-4
872*line 366
873*line 367
874tst _sgcsw
875beq L27
876*line 368
877*line 369
878*line 370
879clr R0
880move 10+_v_regs,R0
881and #384,R0
882beq L28
883*line 370
884clr (sp)
885jsr _vbank
886*line 371
887L28:
888*line 372
889or #16,120+_v_odtab
890*line 373
891clr _sgcsw
892L27:unlk R14
893rts
894.data
Note: See TracBrowser for help on using the repository browser.