source: buchla-68k/alcyon/etains.s@ de91266

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 3.3 KB
Line 
1.globl _ebflag
2.globl _ebuf
3.globl _curfet
4.globl _cfetp
5.globl _infetp
6.globl _asgob
7.globl _asgmod
8.globl _stccol
9.globl _stcrow
10.globl _dspbuf
11.globl _ins2grp
12.globl _adbox
13.globl _modasg
14.text
15_modasg:
16~~modasg:
17link R14,#-4
18*line 42
19*line 42
20tst _asgmod
21bne L2
22*line 43
23*line 44
24move #1,_asgmod
25*line 45
26clr (sp)
27jsr _adswin
28*line 46
29L2:L1:unlk R14
30rts
31.globl _et_ains
32.text
33_et_ains:
34~~et_ains:
35~n=8
36link R14,#-4
37movem.l R6-R7,-(sp)
38~grp=R7
39~buf=-4
40*line 63
41move 8(R14),R7
42asr #8,R7
43and #255,R7
44*line 65
45move R7,R8
46add.l R8,R8
47move.l #_ins2grp,R9
48move 0(R8,R9.l),(sp)
49and #255,(sp)
50move.l #L4,-(sp)
51move.l #_ebuf,-(sp)
52jsr _sprintf
53addq.l #8,sp
54*line 66
55move #1,_ebflag
56*line 68
57clr R0
58bra L3
59L3:tst.l (sp)+
60movem.l (sp)+,R7-R7
61unlk R14
62rts
63.globl _ef_ains
64.text
65_ef_ains:
66~~ef_ains:
67~n=8
68link R14,#0
69movem.l R4-R7,-(sp)
70~tmpval=R7
71~grp=R6
72~i=R5
73*line 83
74move 8(R14),R6
75asr #8,R6
76and #255,R6
77*line 84
78clr.b 2+_ebuf
79*line 85
80clr _ebflag
81*line 86
82clr R7
83*line 88
84clr R5
85bra L8
86L9:
87*line 89
88muls #10,R7
89move.l #_ebuf,R8
90move.b 0(R8,R5),R0
91ext.w R0
92add R0,R7
93add #-48,R7
94L7:
95*line 88
96add #1,R5
97L8:
98*line 88
99cmp #2,R5
100blt L9
101L6:
102*line 91
103*line 92
104cmp #41,R7
105blt L10
106*line 92
107move #-1,R0
108bra L5
109*line 93
110L10:
111*line 94
112move R7,R0
113move R6,R9
114add.l R9,R9
115add.l #_ins2grp,R9
116move (R9),R1
117and #-256,R1
118or R1,R0
119move R6,R9
120add.l R9,R9
121add.l #_ins2grp,R9
122move R0,(R9)
123*line 95
124jsr _modasg
125*line 96
126move R6,(sp)
127jsr _setv2gi
128*line 97
129jsr _setinst
130*line 98
131clr R0
132bra L5
133L5:tst.l (sp)+
134movem.l (sp)+,R5-R7
135unlk R14
136rts
137.globl _rd_ains
138.text
139_rd_ains:
140~~rd_ains:
141~nn=8
142link R14,#-4
143movem.l R5-R7,-(sp)
144~n=R7
145~grp=R6
146~buf=-4
147*line 117
148move 8(R14),R7
149and #255,R7
150*line 118
151move 8(R14),R6
152asr #8,R6
153and #255,R6
154*line 120
155move R6,R8
156add.l R8,R8
157move.l #_ins2grp,R9
158move 0(R8,R9.l),(sp)
159and #255,(sp)
160move.l #L12,-(sp)
161move.l #_dspbuf,-(sp)
162jsr _sprintf
163addq.l #8,sp
164*line 122
165clr (sp)
166jsr _vbank
167*line 123
168*line 124
169move #14,(sp)
170move.l #_dspbuf,-(sp)
171move.l _cfetp,R8
172move 2(R8),-(sp)
173move.l _cfetp,R8
174move (R8),-(sp)
175move R7,R0
176asl #4,R0
177ext.l R0
178move.l R0,R8
179move.l #_adbox,R9
180move 10(R8,R9.l),-(sp)
181move R7,R0
182asl #4,R0
183ext.l R0
184move.l R0,R8
185move.l #_adbox,R9
186move 8(R8,R9.l),-(sp)
187move #64,-(sp)
188move.l _asgob,-(sp)
189jsr _vcputsv
190adda.l #18,sp
191*line 126
192clr R0
193bra L11
194L11:tst.l (sp)+
195movem.l (sp)+,R6-R7
196unlk R14
197rts
198.globl _nd_ains
199.text
200_nd_ains:
201~~nd_ains:
202~k=R7
203~nn=8
204link R14,#0
205movem.l R5-R7,-(sp)
206~n=R6
207*line 142
208move 10(R14),R7
209*line 142
210move 8(R14),R6
211and #255,R6
212*line 143
213move R7,R0
214add #48,R0
215move _stccol,R9
216move.l _cfetp,R10
217move 2(R10),R10
218sub R10,R9
219add.l #_ebuf,R9
220move.b R0,(R9)
221*line 144
222clr.b 2+_ebuf
223*line 146
224move R7,R0
225add #48,R0
226move.b R0,_dspbuf
227*line 147
228clr.b 1+_dspbuf
229*line 149
230clr (sp)
231jsr _vbank
232*line 150
233*line 151
234move #14,(sp)
235move.l #_dspbuf,-(sp)
236move _stccol,-(sp)
237move _stcrow,-(sp)
238move R6,R0
239asl #4,R0
240ext.l R0
241move.l R0,R8
242move.l #_adbox,R9
243move 10(R8,R9.l),-(sp)
244move #12,-(sp)
245move #64,-(sp)
246move.l _asgob,-(sp)
247jsr _vcputsv
248adda.l #18,sp
249*line 153
250jsr _advacur
251*line 154
252clr R0
253bra L13
254L13:tst.l (sp)+
255movem.l (sp)+,R6-R7
256unlk R14
257rts
258.data
259L4:.dc.b $25,$30,$32,$2E,$32,$64,$0
260L12:.dc.b $25,$30,$32,$2E,$32,$64,$0
Note: See TracBrowser for help on using the repository browser.