source: buchla-68k/alcyon/etarat.s@ 7bf3856

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