source: buchla-68k/alcyon/etwslt.s@ e68b406

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