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