source: buchla-68k/alcyon/curset.s@ 60288f5

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 3.9 KB
Line 
1.globl _ebflag
2.globl _ebuf
3.globl _curfet
4.globl _cfetp
5.globl _infetp
6.globl _trkonly
7.data
8_trkonly:
9.dc.w $0
10.globl _curmove
11.globl _curtype
12.globl _cx_key
13.globl _cx_upd
14.globl _cy_key
15.globl _cy_upd
16.globl _d_key
17.globl _e_key
18.globl _m_key
19.globl _not_fld
20.globl _premove
21.globl _pstmove
22.globl _x_key
23.globl _xy_dn
24.globl _xy_up
25.globl _cratex
26.globl _cratey
27.globl _chtime
28.globl _chwait
29.globl _cmfirst
30.globl _cmtype
31.globl _curhold
32.globl _curslim
33.globl _cvtime
34.globl _cvwait
35.globl _cxval
36.globl _cyval
37.globl _hcwval
38.globl _nchwait
39.globl _ncvwait
40.globl _stccol
41.globl _stcrow
42.globl _submenu
43.globl _syrate
44.globl _thcwval
45.globl _tvcwval
46.globl _vcwval
47.globl _infetp
48.globl _cfetp
49.globl _curfet
50.globl _csbp
51.globl _stdctp0
52.text
53_stdctp0:
54~~stdctp0:
55link R14,#-4
56*line 139
57tst _submenu
58beq L10000
59move #2,R0
60bra L10002
61L10000:move #1,R0
62L10002:bra L1
63L1:unlk R14
64rts
65.globl _stdctp1
66.text
67_stdctp1:
68~~stdctp1:
69link R14,#-4
70*line 151
71*line 152
72tst _submenu
73beq L3
74*line 152
75move #2,R0
76bra L2
77*line 153
78L3:
79*line 154
80move _cyval,R0
81cmp _curslim,R0
82ble L10003
83move #1,R0
84bra L10005
85L10003:clr R0
86L10005:bra L2
87L2:unlk R14
88rts
89.globl _stdctp2
90.text
91_stdctp2:
92~~stdctp2:
93link R14,#-4
94*line 166
95clr R0
96bra L4
97L4:unlk R14
98rts
99.globl _stdctp3
100.text
101_stdctp3:
102~~stdctp3:
103link R14,#-4
104*line 181
105*line 182
106tst _submenu
107beq L6
108*line 182
109move #2,R0
110bra L5
111*line 183
112L6:
113*line 184
114cmp #14,_cyval
115blt L10007
116cmp #237,_cyval
117ble L10006
118L10007:move #3,R0
119bra L10009
120L10006:clr R0
121L10009:bra L5
122L5:unlk R14
123rts
124.globl _stdctp4
125.text
126_stdctp4:
127~~stdctp4:
128link R14,#-4
129*line 196
130*line 197
131tst _submenu
132beq L8
133*line 197
134move #2,R0
135bra L7
136*line 198
137L8:
138*line 199
139move _cyval,R0
140cmp _curslim,R0
141bge L10010
142move #1,R0
143bra L10012
144L10010:clr R0
145L10012:bra L7
146L7:unlk R14
147rts
148.globl _stdctp5
149.text
150_stdctp5:
151~~stdctp5:
152link R14,#-4
153*line 211
154tst _submenu
155beq L10013
156move #5,R0
157bra L10015
158L10013:move #4,R0
159L10015:bra L9
160L9:unlk R14
161rts
162.globl _curset
163.text
164_curset:
165~~curset:
166~s=R13
167link R14,#0
168movem.l R7-R7/R13-R13,-(sp)
169*line 231
170move.l 8(R14),R13
171*line 231
172move.l (R13),_curtype
173*line 232
174move.l 4(R13),_premove
175*line 233
176move.l 8(R13),_pstmove
177*line 235
178move.l #_cmvgen,_curmove
179*line 237
180*line 237
181tst _trkonly
182beq L11
183*line 238
184*line 239
185move.l #_txstd,_cx_key
186*line 240
187move.l #_tystd,_cy_key
188*line 241
189bra L12
190L11:
191*line 242
192*line 243
193*line 244
194move.l 12(R13),_cx_key
195*line 245
196move.l 16(R13),_cy_key
197L12:
198*line 248
199move.l 20(R13),_cx_upd
200*line 249
201move.l 24(R13),_cy_upd
202*line 250
203move.l 28(R13),_xy_up
204*line 251
205move.l 32(R13),_xy_dn
206*line 252
207move.l 36(R13),_x_key
208*line 253
209move.l 40(R13),_e_key
210*line 254
211move.l 44(R13),_m_key
212*line 255
213move.l 48(R13),_d_key
214*line 256
215move.l 52(R13),_not_fld
216*line 257
217move.l 56(R13),_curfet
218*line 258
219move.l 60(R13),_csbp
220*line 259
221move.l 64(R13),_cratex
222*line 260
223move.l 68(R13),_cratey
224*line 261
225move 72(R13),_cmtype
226*line 262
227move 74(R13),_cxval
228*line 263
229move 76(R13),_cyval
230*line 272
231*line 272
232tst _cmtype
233bne L13
234*line 273
235*line 274
236move _hcwval,_chtime
237*line 275
238move _vcwval,_cvtime
239*line 276
240bra L14
241L13:
242*line 277
243*line 278
244*line 279
245move _thcwval,_chtime
246*line 280
247cmp #4,_cmtype
248bne L10016
249move _syrate,R0
250bra L10018
251L10016:move _tvcwval,R0
252L10018:move R0,_cvtime
253L14:
254*line 283
255move _cxval,R0
256asr #3,R0
257move R0,_stccol
258*line 284
259move _cyval,R0
260ext.l R0
261divs #14,R0
262move R0,_stcrow
263*line 286
264move _chtime,_chwait
265*line 287
266move _cvtime,_cvwait
267*line 289
268move _curhold,_nchwait
269*line 290
270move _curhold,_ncvwait
271*line 292
272move #1,_cmfirst
273*line 294
274clr _ebflag
275*line 295
276move #81,(sp)
277clr -(sp)
278move.l #_ebuf,-(sp)
279jsr _memset
280addq.l #6,sp
281*line 297
282clr.l _cfetp
283*line 298
284clr.l _infetp
285L10:tst.l (sp)+
286movem.l (sp)+,R13-R13
287unlk R14
288rts
289.data
Note: See TracBrowser for help on using the repository browser.