source: buchla-68k/alcyon/etscor.s@ 4810254

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 2.7 KB
Line 
1.globl _ebflag
2.globl _ebuf
3.globl _curfet
4.globl _cfetp
5.globl _infetp
6.globl _io_time
7.globl _io_lcd
8.globl _io_ser
9.globl _io_midi
10.globl _io_disk
11.globl _io_tone
12.globl _io_leds
13.globl _io_kbrd
14.globl _lcd_a0
15.globl _lcd_a1
16.globl _io_vreg
17.globl _io_vraw
18.globl _io_vram
19.globl _io_fpu
20.globl _v_regs
21.globl _v_odtab
22.globl _v_actab
23.globl _v_ct0
24.globl _v_gt1
25.globl _v_score
26.globl _v_cgtab
27.globl _v_curs0
28.globl _v_curs1
29.globl _v_curs2
30.globl _v_curs3
31.globl _v_curs4
32.globl _v_curs5
33.globl _v_curs6
34.globl _v_curs7
35.globl _v_tcur
36.globl _v_kbobj
37.globl _v_lnobj
38.globl _v_win0
39.globl _v_cur
40.globl _fc_sw
41.globl _fc_val
42.globl _obj8
43.globl _curscor
44.globl _insmode
45.globl _stccol
46.globl _dspbuf
47.globl _et_scor
48.text
49_et_scor:
50~~et_scor:
51link R14,#-4
52*line 36
53move _curscor,(sp)
54add #1,(sp)
55move.l #L2,-(sp)
56move.l #_ebuf,-(sp)
57jsr _sprintf
58addq.l #8,sp
59*line 37
60move #1,_ebflag
61*line 39
62clr R0
63bra L1
64L1:unlk R14
65rts
66.globl _ef_scor
67.text
68_ef_scor:
69~~ef_scor:
70link R14,#0
71movem.l R6-R7,-(sp)
72~ival=R7
73*line 56
74clr.b 2+_ebuf
75*line 57
76move.b _ebuf,R7
77ext.w R7
78add #-48,R7
79muls #10,R7
80move.b 1+_ebuf,R0
81ext.w R0
82add R0,R7
83add #-48,R7
84*line 59
85clr _ebflag
86*line 61
87*line 62
88cmp #20,R7
89bgt L10000
90tst R7
91bne L4
92L10000:*line 62
93move #-1,R0
94bra L3
95*line 63
96L4:
97*line 64
98*line 64
99tst _insmode
100beq L5
101*line 65
102*line 66
103jsr _icancel
104*line 67
105jsr _dsimode
106*line 68
107*line 69
108L5:
109*line 70
110move R7,(sp)
111sub #1,(sp)
112jsr _selscor
113*line 71
114jsr _sdwins
115*line 72
116clr R0
117bra L3
118L3:tst.l (sp)+
119movem.l (sp)+,R7-R7
120unlk R14
121rts
122.globl _rd_scor
123.text
124_rd_scor:
125~~rd_scor:
126link R14,#-4
127*line 84
128move _curscor,(sp)
129add #1,(sp)
130move.l #L7,-(sp)
131move.l #_dspbuf,-(sp)
132jsr _sprintf
133addq.l #8,sp
134*line 86
135*line 87
136clr R0
137move 10+_v_regs,R0
138and #384,R0
139beq L8
140*line 87
141clr (sp)
142jsr _vbank
143*line 88
144L8:
145*line 89
146move #19,(sp)
147move.l #_dspbuf,-(sp)
148move #7,-(sp)
149move #8,-(sp)
150move.l _obj8,-(sp)
151jsr _vputs
152adda.l #12,sp
153*line 91
154clr R0
155bra L6
156L6:unlk R14
157rts
158.globl _nd_scor
159.text
160_nd_scor:
161~~nd_scor:
162~n=8
163~k=10
164link R14,#0
165movem.l R6-R7,-(sp)
166~ec=R7
167*line 109
168move _stccol,R7
169move.l _cfetp,R8
170move 2(R8),R0
171sub R0,R7
172*line 110
173move 10(R14),R0
174add #48,R0
175move R7,R9
176add.l #_ebuf,R9
177move.b R0,(R9)
178*line 112
179*line 113
180clr R0
181move 10+_v_regs,R0
182and #384,R0
183beq L10
184*line 113
185clr (sp)
186jsr _vbank
187*line 114
188L10:
189*line 115
190move #99,(sp)
191move 10(R14),-(sp)
192add #48,(sp)
193move _stccol,-(sp)
194move #8,-(sp)
195move.l _obj8,-(sp)
196jsr _vputc
197adda.l #10,sp
198*line 116
199jsr _advscur
200*line 118
201clr R0
202bra L9
203L9:tst.l (sp)+
204movem.l (sp)+,R7-R7
205unlk R14
206rts
207.data
208L2:.dc.b $25,$30,$32,$2E,$32,$64,$0
209L7:.dc.b $25,$30,$32,$2E,$32,$64,$0
Note: See TracBrowser for help on using the repository browser.