source: buchla-68k/alcyon/fcnote.s@ 58ff1a9

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 2.6 KB
Line 
1.globl _ac_code
2.globl _scname
3.globl _se_chg
4.globl _curscor
5.globl _cursect
6.globl _se1_cnt
7.globl _se2_cnt
8.globl _se3_cnt
9.globl _spool
10.globl _pspool
11.globl _spcount
12.globl _frags
13.globl _t_bak
14.globl _t_cur
15.globl _t_ctr
16.globl _t_fwd
17.globl _size1
18.globl _size2
19.globl _size3
20.globl _scores
21.globl _scp
22.globl _seclist
23.globl _hplist
24.globl _p_bak
25.globl _p_cur
26.globl _p_ctr
27.globl _p_fwd
28.globl _noteop
29.globl _notesel
30.globl _t_note
31.globl _p_nbeg
32.globl _p_nend
33.globl _ctime
34.globl _fcnote
35.text
36_fcnote:
37~~fcnote:
38~grp=R7
39~tnote=R6
40link R14,#-4
41movem.l R2-R7/R12-R13,-(sp)
42~bp=R13
43~ep=R12
44~en=R5
45~eg=R4
46~et=R3
47~t_left=-4
48*line 52
49move 8(R14),R7
50*line 52
51move 10(R14),R6
52*line 52
53move.l _ctime,(sp)
54clr -(sp)
55move.l _p_cur,-(sp)
56jsr _ep_adj
57addq.l #6,sp
58move.l R0,R13
59*line 53
60move.l _t_cur,R0
61add.l #$ffffff0f,R0
62move.l R0,-4(R14)
63*line 54
64clr.l _p_nbeg
65*line 55
66clr.l _p_nend
67*line 56
68clr.l _t_note
69L4:
70*line 58
71*line 59
72*line 60
73move.b 5(R13),R3
74ext.w R3
75and #127,R3
76*line 61
77move.b 6(R13),R5
78ext.w R5
79*line 62
80move.b 7(R13),R4
81ext.w R4
82*line 63
83*line 64
84*line 64
85move.l (R13),R0
86cmp.l -4(R14),R0
87blt L10000
88cmp #1,R3
89bne L5
90L10000:*line 65
91*line 66
92*line 67
93*line 68
94clr.l R0
95bra L1
96*line 69
97bra L6
98L5:
99*line 70
100*line 70
101cmp #6,R3
102bne L7
103cmp R6,R5
104bne L7
105cmp R7,R4
106bne L7
107*line 71
108*line 72
109*line 73
110*line 74
111clr.l R0
112bra L1
113*line 75
114*line 76
115bra L8
116L7:
117*line 77
118*line 77
119cmp #5,R3
120bne L9
121cmp R6,R5
122bne L9
123cmp R7,R4
124bne L9
125*line 78
126*line 79
127*line 80
128*line 81
129move.l 12(R13),R12
130*line 82
131L12:
132*line 83
133*line 84
134*line 85
135move.b 5(R12),R3
136ext.w R3
137and #127,R3
138*line 86
139move.b 6(R12),R5
140ext.w R5
141*line 87
142move.b 7(R12),R4
143ext.w R4
144*line 88
145*line 89
146*line 90
147cmp #5,R3
148bne L13
149cmp R6,R5
150bne L13
151cmp R7,R4
152bne L13
153*line 91
154*line 92
155*line 93
156*line 94
157clr.l R0
158bra L1
159*line 95
160*line 96
161bra L14
162L13:
163*line 97
164*line 98
165cmp #6,R3
166bne L15
167cmp R6,R5
168bne L15
169cmp R7,R4
170bne L15
171*line 99
172*line 100
173*line 101
174*line 102
175move.l R13,_p_nbeg
176*line 103
177move.l R12,_p_nend
178*line 104
179move.l (R12),R0
180sub.l (R13),R0
181move.l R0,_t_note
182*line 105
183move.l R13,R0
184bra L1
185*line 106
186bra L16
187L15:
188*line 107
189*line 107
190cmp #21,R3
191bne L17
192*line 108
193*line 109
194*line 110
195*line 111
196clr.l R0
197bra L1
198*line 112
199*line 113
200L17:L16:L14:
201*line 114
202move.l 12(R12),R12
203*line 115
204L11:bra L12
205L10:
206*line 116
207*line 117
208*line 118
209*line 119
210L9:L8:L6:
211*line 120
212move.l 8(R13),R13
213*line 121
214L3:bra L4
215L2:L1:tst.l (sp)+
216movem.l (sp)+,R3-R7/R12-R13
217unlk R14
218rts
219.data
Note: See TracBrowser for help on using the repository browser.