source: buchla-68k/alcyon/etipnt.s@ 81a59aa

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 4.1 KB
Line 
1.globl _ebflag
2.globl _ebuf
3.globl _curfet
4.globl _cfetp
5.globl _infetp
6.globl _instob
7.globl _stccol
8.globl _subj
9.globl _curvce
10.globl _curfunc
11.globl _curpnt
12.globl _idbox
13.globl _dspbuf
14.globl _vbufs
15.globl _pntptr
16.globl _et_ipnt
17.text
18_et_ipnt:
19~~et_ipnt:
20~n=8
21link R14,#-4
22*line 46
23move _subj,(sp)
24move.l #L2,-(sp)
25move.l #_ebuf,-(sp)
26jsr _sprintf
27addq.l #8,sp
28*line 47
29move #1,_ebflag
30*line 49
31clr R0
32bra L1
33L1:unlk R14
34rts
35.globl _ef_ipnt
36.text
37_ef_ipnt:
38~~ef_ipnt:
39~n=8
40link R14,#0
41movem.l R3-R7/R12-R13,-(sp)
42~i=R7
43~tmpval=R6
44~endpnt=R5
45~basept=R4
46~fp=R13
47~ip=R12
48*line 69
49move _curvce,R0
50muls #3938,R0
51move.l R0,R12
52add.l #_vbufs,R12
53*line 70
54move.l R12,R13
55move _curfunc,R0
56muls #12,R0
57add.l R0,R13
58add.l #86,R13
59*line 72
60clr.b 2+_ebuf
61*line 73
62clr _ebflag
63*line 75
64clr R6
65*line 77
66clr R7
67bra L6
68L7:
69*line 78
70muls #10,R6
71move.l #_ebuf,R8
72move.b 0(R8,R7),R0
73ext.w R0
74add R0,R6
75add #-48,R6
76L5:
77*line 77
78add #1,R7
79L6:
80*line 77
81cmp #2,R7
82blt L7
83L4:
84*line 80
85move.b 6(R13),R4
86ext.w R4
87*line 81
88move.b 6(R13),R5
89ext.w R5
90move.b 5(R13),R0
91ext.w R0
92add R0,R5
93sub #1,R5
94*line 86
95*line 86
96move.b 5(R13),R0
97ext.w R0
98cmp R0,R6
99blt L8
100*line 87
101*line 88
102*line 88
103cmp.b #100,5(R13)
104bne L9
105*line 89
106*line 90
107move #1,(sp)
108jsr _showpt
109*line 91
110move #-1,R0
111bra L3
112*line 92
113*line 95
114L9:
115*line 96
116*line 96
117move R5,(sp)
118move _curfunc,-(sp)
119move.l R12,-(sp)
120jsr _inspnt
121addq.l #6,sp
122tst R0
123bne L10
124*line 99
125*line 100
126move #1,(sp)
127jsr _showpt
128*line 101
129move #-1,R0
130bra L3
131*line 102
132bra L11
133L10:
134*line 103
135*line 104
136*line 105
137move.b 5(R13),R0
138ext.w R0
139sub #1,R0
140move R0,_subj
141*line 106
142jsr _pntsel
143*line 107
144move #12,(sp)
145clr -(sp)
146move.l _pntptr,-(sp)
147jsr _memset
148addq.l #6,sp
149*line 108
150move.l _pntptr,R8
151move.l _pntptr,R9
152move -10(R9),2(R8)
153*line 109
154move _subj,(sp)
155sub #1,(sp)
156move _curfunc,-(sp)
157jsr _timeto
158addq.l #2,sp
159move R0,(sp)
160add #1,(sp)
161move _subj,-(sp)
162jsr _setseg
163addq.l #2,sp
164*line 110
165move #1,(sp)
166jsr _showpt
167*line 114
168*line 115
169jsr _modinst
170*line 116
171clr R0
172bra L3
173L11:
174*line 117
175*line 118
176bra L12
177L8:
178*line 119
179*line 122
180*line 123
181*line 124
182move R6,R0
183add R4,R0
184cmp R0,R5
185bge L13
186*line 124
187move #-1,R0
188bra L3
189*line 125
190L13:
191*line 126
192move R6,_subj
193*line 127
194jsr _pntsel
195*line 128
196move #1,(sp)
197jsr _showpt
198*line 132
199*line 133
200clr R0
201bra L3
202L12:L3:tst.l (sp)+
203movem.l (sp)+,R4-R7/R12-R13
204unlk R14
205rts
206.globl _rd_ipnt
207.text
208_rd_ipnt:
209~~rd_ipnt:
210~n=8
211link R14,#-4
212*line 150
213move _subj,(sp)
214move.l #L15,-(sp)
215move.l #_dspbuf,-(sp)
216jsr _sprintf
217addq.l #8,sp
218*line 152
219clr (sp)
220jsr _vbank
221*line 154
222*line 155
223move #14,(sp)
224move.l #_dspbuf,-(sp)
225move 8(R14),R0
226asl #4,R0
227ext.l R0
228move.l R0,R8
229move.l #_idbox,R9
230move 14(R8,R9.l),-(sp)
231move 8(R14),R0
232asl #4,R0
233ext.l R0
234move.l R0,R8
235move.l #_idbox,R9
236move 12(R8,R9.l),-(sp)
237add #1,(sp)
238move 8(R14),R0
239asl #4,R0
240ext.l R0
241move.l R0,R8
242move.l #_idbox,R9
243move 10(R8,R9.l),-(sp)
244move 8(R14),R0
245asl #4,R0
246ext.l R0
247move.l R0,R8
248move.l #_idbox,R9
249move 8(R8,R9.l),-(sp)
250move #64,-(sp)
251move.l _instob,-(sp)
252jsr _vcputsv
253adda.l #18,sp
254*line 157
255clr R0
256bra L14
257L14:unlk R14
258rts
259.globl _nd_ipnt
260.text
261_nd_ipnt:
262~~nd_ipnt:
263~k=R7
264~n=8
265link R14,#0
266movem.l R5-R7,-(sp)
267~ec=R6
268*line 176
269move 10(R14),R7
270*line 176
271move _stccol,R6
272move.l _cfetp,R8
273move 2(R8),R0
274sub R0,R6
275*line 177
276move R7,R0
277add #48,R0
278move R6,R9
279add.l #_ebuf,R9
280move.b R0,(R9)
281*line 178
282clr.b 2+_ebuf
283*line 180
284move R7,R0
285add #48,R0
286move.b R0,_dspbuf
287*line 181
288clr.b 1+_dspbuf
289*line 183
290clr (sp)
291jsr _vbank
292*line 185
293*line 186
294move #14,(sp)
295move.l #_dspbuf,-(sp)
296move _stccol,-(sp)
297move 8(R14),R0
298asl #4,R0
299ext.l R0
300move.l R0,R8
301move.l #_idbox,R9
302move 12(R8,R9.l),-(sp)
303add #1,(sp)
304move 8(R14),R0
305asl #4,R0
306ext.l R0
307move.l R0,R8
308move.l #_idbox,R9
309move 10(R8,R9.l),-(sp)
310move #10,-(sp)
311move #64,-(sp)
312move.l _instob,-(sp)
313jsr _vcputsv
314adda.l #18,sp
315*line 188
316jsr _advicur
317*line 190
318clr R0
319bra L16
320L16:tst.l (sp)+
321movem.l (sp)+,R6-R7
322unlk R14
323rts
324.data
325L2:.dc.b $25,$30,$32,$64,$0
326L15:.dc.b $25,$30,$32,$64,$0
Note: See TracBrowser for help on using the repository browser.