source: buchla-68k/alcyon/etwpnt.s@ 4810254

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