source: buchla-68k/alcyon/etwvce.s@ 6099cac

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

Added Alcyon C reference output.

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