source: buchla-68k/alcyon/scope.s@ 8325447

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 4.1 KB
Line 
1.globl _io_time
2.globl _io_lcd
3.globl _io_ser
4.globl _io_midi
5.globl _io_disk
6.globl _io_tone
7.globl _io_leds
8.globl _io_kbrd
9.globl _lcd_a0
10.globl _lcd_a1
11.globl _io_vreg
12.globl _io_vraw
13.globl _io_vram
14.globl _io_fpu
15.globl _v_regs
16.globl _v_odtab
17.globl _v_actab
18.globl _v_ct0
19.globl _v_gt1
20.globl _v_score
21.globl _v_cgtab
22.globl _v_curs0
23.globl _v_curs1
24.globl _v_curs2
25.globl _v_curs3
26.globl _v_curs4
27.globl _v_curs5
28.globl _v_curs6
29.globl _v_curs7
30.globl _v_tcur
31.globl _v_kbobj
32.globl _v_lnobj
33.globl _v_win0
34.globl _v_cur
35.globl _fc_sw
36.globl _fc_val
37.globl _ebflag
38.globl _ebuf
39.globl _curfet
40.globl _cfetp
41.globl _infetp
42.globl _scopec
43.comm _scopec,2
44.globl _scopef
45.comm _scopef,2
46.globl _scoper
47.comm _scoper,2
48.globl _scopev
49.comm _scopev,2
50.globl _scopeob
51.comm _scopeob,4
52.globl _scopebf
53.comm _scopebf,66
54.globl _astat
55.globl _ndisp
56.globl _scorpal
57.globl _crate1
58.globl _dt_flds
59.data
60_dt_flds:
61*line 48
62.dc.l _nokey
63*line 49
64.dc.l _nokey
65*line 50
66.dc.l _nokey
67*line 51
68.dc.l _nokey
69*line 52
70.dc.l _nokey
71*line 53
72.dc.l _nokey
73*line 54
74.dc.l _nokey
75*line 55
76.dc.l _nokey
77*line 56
78.dc.l _nokey
79*line 57
80.dc.l _nokey
81*line 58
82.dc.l _scptogl
83*line 59
84.dc.l _stdmkey
85*line 60
86.dc.l _nokey
87*line 61
88.dc.l _nokey
89.dc.l $0
90.dc.l $0
91*line 64
92.dc.l _crate1
93*line 65
94.dc.l _crate1
95.dc.w $0
96.dc.w $0
97.dc.w $0
98.globl _scope
99.text
100_scope:
101~~scope:
102~val=R7
103link R14,#0
104movem.l R5-R7/R13-R13,-(sp)
105~i=R6
106~bp=R13
107*line 84
108move.l #_scopebf,R13
109*line 86
110move 8(R14),R7
111*line 86
112*line 87
113cmp #11,_ndisp
114bne L1
115tst _scopef
116beq L1
117*line 88
118*line 89
119move #20,(sp)
120move.l #_scopebf,-(sp)
121move _scopec,-(sp)
122move _scoper,-(sp)
123move.l _scopeob,-(sp)
124jsr _vputs
125adda.l #12,sp
126add #1,_scoper
127*line 91
128move.b #32,(R13)+
129*line 93
130*line 93
131cmp #24,_scoper
132ble L2
133*line 94
134*line 95
135clr _scoper
136*line 96
137add #12,_scopec
138*line 97
139*line 98
140*line 99
141cmp #60,_scopec
142blt L3
143*line 99
144clr _scopec
145L3:
146*line 100
147*line 101
148L2:
149*line 102
150move R7,_scopev
151*line 104
152clr R6
153bra L6
154L7:
155*line 105
156*line 106
157clr R0
158move R7,R0
159move #128,R1
160move R6,R2
161asr R2,R1
162and R1,R0
163beq L8
164*line 106
165move.b #49,(R13)+
166*line 107
167bra L9
168L8:
169*line 108
170move.b #48,(R13)+
171L9:L5:
172*line 104
173add #1,R6
174L6:
175*line 104
176cmp #4,R6
177blt L7
178L4:
179*line 110
180move.b #32,(R13)+
181*line 112
182move #4,R6
183bra L12
184L13:
185*line 113
186*line 114
187clr R0
188move R7,R0
189move #128,R1
190move R6,R2
191asr R2,R1
192and R1,R0
193beq L14
194*line 114
195move.b #49,(R13)+
196*line 115
197bra L15
198L14:
199*line 116
200move.b #48,(R13)+
201L15:L11:
202*line 112
203add #1,R6
204L12:
205*line 112
206cmp #8,R6
207blt L13
208L10:
209*line 118
210move.b #32,(R13)+
211*line 119
212clr.b (R13)
213*line 121
214move #84,(sp)
215move.l #_scopebf,-(sp)
216move _scopec,-(sp)
217move _scoper,-(sp)
218move.l _scopeob,-(sp)
219jsr _vputs
220adda.l #12,sp
221L1:tst.l (sp)+
222movem.l (sp)+,R6-R7/R13-R13
223unlk R14
224rts
225.globl _scptogl
226.text
227_scptogl:
228~~scptogl:
229link R14,#-4
230*line 135
231*line 136
232tst _astat
233beq L16
234*line 137
235*line 138
236tst _scopef
237beq L10000
238clr R0
239bra L10001
240L10000:move #1,R0
241L10001:move R0,_scopef
242L16:unlk R14
243rts
244.globl _scopeon
245.text
246_scopeon:
247~~scopeon:
248link R14,#-4
249*line 152
250move.l #_v_score,_scopeob
251*line 154
252move.l #_dt_flds,(sp)
253jsr _curset
254*line 156
255clr _scopec
256*line 157
257move #1,_scopef
258*line 158
259clr _scoper
260*line 159
261clr _scopev
262*line 161
263move.l #L18,(sp)
264move.l #_scopebf,-(sp)
265jsr _strcpy
266addq.l #4,sp
267*line 163
268jsr _dswap
269*line 165
270clr (sp)
271jsr _vbank
272*line 167
273move #32767,(sp)
274clr -(sp)
275move.l _scopeob,-(sp)
276jsr _memsetw
277addq.l #6,sp
278*line 168
279move #12033,(sp)
280clr -(sp)
281move.l _scopeob,R0
282add.l #$fffe,R0
283move.l R0,-(sp)
284jsr _memsetw
285addq.l #6,sp
286*line 170
287move #-1,(sp)
288move #72,-(sp)
289clr -(sp)
290clr -(sp)
291move #350,-(sp)
292move #512,-(sp)
293move.l _scopeob,-(sp)
294clr -(sp)
295move #1,-(sp)
296clr -(sp)
297jsr _SetObj
298adda.l #20,sp
299*line 171
300move.l #_scorpal,(sp)
301jsr _vsndpal
302*line 173
303move #15,(sp)
304clr -(sp)
305jsr _SetPri
306addq.l #2,sp
307L17:unlk R14
308rts
309.data
310L18:.dc.b $20,$3F,$3F,$3F,$3F,$20,$3F,$3F,$3F,$3F,$20,$0
Note: See TracBrowser for help on using the repository browser.