source: buchla-68k/alcyon/etagpt.s@ 4b63bf3

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

Added Alcyon C reference output.

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