Context Navigation

ttcpos.s@ 526a993

Last change on this file since 526a993 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
50	L1:.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
120	link R14,#-4
121	*line 63
122	*line 64
123	clr R0
124	move 10+_v_regs,R0
125	and #384,R0
126	cmp #256,R0
127	beq L3
128	*line 64
129	move #1,(sp)
130	jsr _vbank
131	*line 65
132	L3:
133	*line 66
134	move #64,(sp)
135	move 8(R14),-(sp)
136	jsr _exp_c
137	addq.l #2,sp
138	move R0,-(sp)
139	move.l #L1,-(sp)
140	move.l #_v_tcur,-(sp)
141	jsr _andcopy
142	adda.l #10,sp
143	L2:unlk R14
144	rts
145	.globl _ttcpos
146	.text
147	_ttcpos:
148	~~ttcpos:
149	~row=R7
150	~col=R6
151	link R14,#0
152	movem.l R3-R7/R13-R13,-(sp)
153	~yrow=R5
154	~xcol=R4
155	~op=R13
156	*line 81
157	move 8(R14),R7
158	*line 81
159	move 10(R14),R6
160	*line 81
161	*line 82
162	clr R0
163	move 10+_v_regs,R0
164	and #384,R0
165	beq L5
166	*line 82
167	clr (sp)
168	jsr _vbank
169	*line 83
170	L5:
171	*line 84
172	move R7,R5
173	muls #14,R5
174	*line 85
175	move R6,R4
176	asl #3,R4
177	*line 87
178	move.l #36+_v_obtab,R13
179	*line 89
180	or #16,112+_v_odtab
181	*line 90
182	move #14,(sp)
183	jsr _objclr
184	*line 92
185	move R4,4(R13)
186	*line 93
187	move R5,6(R13)
188	*line 94
189	move R4,R0
190	asr #1,R0
191	and #1023,R0
192	or #1024,R0
193	move R0,16(R13)
194	*line 96
195	move #14,(sp)
196	move #2,-(sp)
197	jsr _SetPri
198	addq.l #2,sp
199	*line 98
200	move R7,_vtcrow
201	*line 99
202	move R6,_vtccol
203	L4:tst.l (sp)+
204	movem.l (sp)+,R4-R7/R13-R13
205	unlk R14
206	rts
207	.data

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format