source: buchla-68k/alcyon/ttcpos.s

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

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 2.6 KB
Line 
1.globl _v_obtab
2.globl _v_curob
3.globl _v_nobj
4.globl _v_obpri
5.globl _io_time
6.globl _io_lcd
7.globl _io_ser
8.globl _io_midi
9.globl _io_disk
10.globl _io_tone
11.globl _io_leds
12.globl _io_kbrd
13.globl _lcd_a0
14.globl _lcd_a1
15.globl _io_vreg
16.globl _io_vraw
17.globl _io_vram
18.globl _io_fpu
19.globl _v_regs
20.globl _v_odtab
21.globl _v_actab
22.globl _v_ct0
23.globl _v_gt1
24.globl _v_score
25.globl _v_cgtab
26.globl _v_curs0
27.globl _v_curs1
28.globl _v_curs2
29.globl _v_curs3
30.globl _v_curs4
31.globl _v_curs5
32.globl _v_curs6
33.globl _v_curs7
34.globl _v_tcur
35.globl _v_kbobj
36.globl _v_lnobj
37.globl _v_win0
38.globl _v_cur
39.globl _fc_sw
40.globl _fc_val
41.globl _ebflag
42.globl _ebuf
43.globl _curfet
44.globl _cfetp
45.globl _infetp
46.globl _filecat
47.globl _vtcrow
48.globl _vtccol
49.data
50L1:.dc.w $0
51.dc.w $0
52.dc.w $0
53.dc.w $0
54.dc.w $0
55.dc.w $0
56.dc.w $0
57.dc.w $0
58.dc.w $0
59.dc.w $0
60.dc.w $0
61.dc.w $0
62.dc.w $0
63.dc.w $0
64.dc.w $0
65.dc.w $0
66.dc.w $0
67.dc.w $0
68.dc.w $0
69.dc.w $0
70.dc.w $0
71.dc.w $0
72.dc.w $0
73.dc.w $0
74.dc.w $0
75.dc.w $0
76.dc.w $0
77.dc.w $0
78.dc.w $0
79.dc.w $0
80.dc.w $0
81.dc.w $0
82.dc.w $0
83.dc.w $0
84.dc.w $0
85.dc.w $0
86.dc.w $0
87.dc.w $0
88.dc.w $0
89.dc.w $0
90.dc.w $0
91.dc.w $0
92.dc.w $0
93.dc.w $0
94.dc.w $0
95.dc.w $0
96.dc.w $0
97.dc.w $0
98.dc.w $FFFF
99.dc.w $FFFF
100.dc.w $0
101.dc.w $0
102.dc.w $0
103.dc.w $0
104.dc.w $0
105.dc.w $0
106.dc.w $0
107.dc.w $0
108.dc.w $0
109.dc.w $0
110.dc.w $0
111.dc.w $0
112.dc.w $0
113.dc.w $0
114.text
115.globl _ttcini
116.text
117_ttcini:
118~~ttcini:
119~color=8
120link R14,#-4
121*line 63
122*line 64
123clr R0
124move 10+_v_regs,R0
125and #384,R0
126cmp #256,R0
127beq L3
128*line 64
129move #1,(sp)
130jsr _vbank
131*line 65
132L3:
133*line 66
134move #64,(sp)
135move 8(R14),-(sp)
136jsr _exp_c
137addq.l #2,sp
138move R0,-(sp)
139move.l #L1,-(sp)
140move.l #_v_tcur,-(sp)
141jsr _andcopy
142adda.l #10,sp
143L2:unlk R14
144rts
145.globl _ttcpos
146.text
147_ttcpos:
148~~ttcpos:
149~row=R7
150~col=R6
151link R14,#0
152movem.l R3-R7/R13-R13,-(sp)
153~yrow=R5
154~xcol=R4
155~op=R13
156*line 81
157move 8(R14),R7
158*line 81
159move 10(R14),R6
160*line 81
161*line 82
162clr R0
163move 10+_v_regs,R0
164and #384,R0
165beq L5
166*line 82
167clr (sp)
168jsr _vbank
169*line 83
170L5:
171*line 84
172move R7,R5
173muls #14,R5
174*line 85
175move R6,R4
176asl #3,R4
177*line 87
178move.l #36+_v_obtab,R13
179*line 89
180or #16,112+_v_odtab
181*line 90
182move #14,(sp)
183jsr _objclr
184*line 92
185move R4,4(R13)
186*line 93
187move R5,6(R13)
188*line 94
189move R4,R0
190asr #1,R0
191and #1023,R0
192or #1024,R0
193move R0,16(R13)
194*line 96
195move #14,(sp)
196move #2,-(sp)
197jsr _SetPri
198addq.l #2,sp
199*line 98
200move R7,_vtcrow
201*line 99
202move R6,_vtccol
203L4:tst.l (sp)+
204movem.l (sp)+,R4-R7/R13-R13
205unlk R14
206rts
207.data
Note: See TracBrowser for help on using the repository browser.