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