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