Context Navigation

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

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

Download in other formats:

Original Format