Context Navigation

etwpnt.s@ 1c4f9be

Last change on this file since 1c4f9be was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Added Alcyon C reference output.
Property mode set to `100644`
File size: 2.8 KB

Line
1	.globl _ebflag
2	.globl _ebuf
3	.globl _curfet
4	.globl _cfetp
5	.globl _infetp
6	.globl _waveob
7	.globl _stccol
8	.globl _curwpnt
9	.globl _wdbox
10	.globl _dspbuf
11	.globl _et_wpnt
12	.text
13	_et_wpnt:
14	~~et_wpnt:
15	~n=8
16	link R14,#-4
17	*line 40
18	move _curwpnt,(sp)
19	move.l #L2,-(sp)
20	move.l #_ebuf,-(sp)
21	jsr _sprintf
22	addq.l #8,sp
23	*line 41
24	move #1,_ebflag
25	*line 43
26	clr R0
27	bra L1
28	L1:unlk R14
29	rts
30	.globl _ef_wpnt
31	.text
32	_ef_wpnt:
33	~~ef_wpnt:
34	~n=8
35	link R14,#0
36	movem.l R5-R7,-(sp)
37	~i=R7
38	~tmpval=R6
39	*line 61
40	clr.b 3+_ebuf
41	*line 62
42	clr _ebflag
43	*line 64
44	clr R6
45	*line 66
46	clr R7
47	bra L6
48	L7:
49	*line 67
50	muls #10,R6
51	move.l #_ebuf,R8
52	move.b 0(R8,R7),R0
53	ext.w R0
54	add R0,R6
55	add #-48,R6
56	L5:
57	*line 66
58	add #1,R7
59	L6:
60	*line 66
61	cmp #3,R7
62	blt L7
63	L4:
64	*line 69
65	*line 70
66	cmp #254,R6
67	blt L8
68	*line 70
69	move #-1,R0
70	bra L3
71	*line 71
72	L8:
73	*line 72
74	move R6,_curwpnt
75	*line 73
76	jsr _newws
77	*line 74
78	move #4,(sp)
79	jsr _wdswin
80	*line 75
81	clr R0
82	bra L3
83	L3:tst.l (sp)+
84	movem.l (sp)+,R6-R7
85	unlk R14
86	rts
87	.globl _rd_wpnt
88	.text
89	_rd_wpnt:
90	~~rd_wpnt:
91	~nn=8
92	link R14,#0
93	movem.l R6-R7,-(sp)
94	~n=R7
95	*line 93
96	move 8(R14),R7
97	and #255,R7
98	*line 94
99	move _curwpnt,(sp)
100	move.l #L10,-(sp)
101	move.l #_dspbuf,-(sp)
102	jsr _sprintf
103	addq.l #8,sp
104	*line 96
105	clr (sp)
106	jsr _vbank
107	*line 97
108	*line 98
109	move #14,(sp)
110	move.l #_dspbuf,-(sp)
111	move R7,R0
112	asl #4,R0
113	ext.l R0
114	move.l R0,R8
115	move.l #_wdbox,R9
116	move 14(R8,R9.l),-(sp)
117	add #4,(sp)
118	move R7,R0
119	asl #4,R0
120	ext.l R0
121	move.l R0,R8
122	move.l #_wdbox,R9
123	move 12(R8,R9.l),-(sp)
124	move R7,R0
125	asl #4,R0
126	ext.l R0
127	move.l R0,R8
128	move.l #_wdbox,R9
129	move 10(R8,R9.l),-(sp)
130	move R7,R0
131	asl #4,R0
132	ext.l R0
133	move.l R0,R8
134	move.l #_wdbox,R9
135	move 8(R8,R9.l),-(sp)
136	move #64,-(sp)
137	move.l _waveob,-(sp)
138	jsr _vcputsv
139	adda.l #18,sp
140	*line 100
141	clr R0
142	bra L9
143	L9:tst.l (sp)+
144	movem.l (sp)+,R7-R7
145	unlk R14
146	rts
147	.globl _nd_wpnt
148	.text
149	_nd_wpnt:
150	~~nd_wpnt:
151	~k=R7
152	~nn=8
153	link R14,#0
154	movem.l R4-R7,-(sp)
155	~ec=R6
156	~n=R5
157	*line 119
158	move 10(R14),R7
159	*line 119
160	move 8(R14),R5
161	and #255,R5
162	*line 120
163	move _stccol,R6
164	move.l _cfetp,R8
165	move 2(R8),R0
166	sub R0,R6
167	*line 121
168	move R7,R0
169	add #48,R0
170	move R6,R9
171	add.l #_ebuf,R9
172	move.b R0,(R9)
173	*line 122
174	clr.b 3+_ebuf
175	*line 124
176	move R7,R0
177	add #48,R0
178	move.b R0,_dspbuf
179	*line 125
180	clr.b 1+_dspbuf
181	*line 127
182	clr (sp)
183	jsr _vbank
184	*line 129
185	*line 130
186	move #14,(sp)
187	move.l #_dspbuf,-(sp)
188	move _stccol,-(sp)
189	move R5,R0
190	asl #4,R0
191	ext.l R0
192	move.l R0,R8
193	move.l #_wdbox,R9
194	move 12(R8,R9.l),-(sp)
195	move R5,R0
196	asl #4,R0
197	ext.l R0
198	move.l R0,R8
199	move.l #_wdbox,R9
200	move 10(R8,R9.l),-(sp)
201	move #12,-(sp)
202	move #64,-(sp)
203	move.l _waveob,-(sp)
204	jsr _vcputsv
205	adda.l #18,sp
206	*line 132
207	jsr _advwcur
208	*line 134
209	clr R0
210	bra L11
211	L11:tst.l (sp)+
212	movem.l (sp)+,R5-R7
213	unlk R14
214	rts
215	.data
216	L2:.dc.b $25,$30,$33,$64,$0
217	L10:.dc.b $25,$30,$33,$64,$0

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

Download in other formats:

Original Format