source: buchla-68k/alcyon/etatun.s@ abd4109

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

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 2.3 KB
RevLine 
[7bf3856]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 _curtun
10.globl _adbox
11.globl _dspbuf
12.globl _et_atun
13.text
14_et_atun:
15~~et_atun:
16~n=8
17link R14,#-4
18*line 39
19move _curtun,(sp)
20move.l #L2,-(sp)
21move.l #_ebuf,-(sp)
22jsr _sprintf
23addq.l #8,sp
24*line 40
25move #1,_ebflag
26*line 42
27clr R0
28bra L1
29L1:unlk R14
30rts
31.globl _ef_atun
32.text
33_ef_atun:
34~~ef_atun:
35~n=8
36link R14,#0
37movem.l R6-R7,-(sp)
38~tmpval=R7
39*line 57
40clr.b 1+_ebuf
41*line 58
42clr _ebflag
43*line 60
44move.b _ebuf,R7
45ext.w R7
46add #-48,R7
47*line 62
48move R7,(sp)
49jsr _gettun
50*line 64
51jsr _modasg
52*line 65
53clr R0
54bra L3
55L3:tst.l (sp)+
56movem.l (sp)+,R7-R7
57unlk R14
58rts
59.globl _rd_atun
60.text
61_rd_atun:
62~~rd_atun:
63~nn=8
64link R14,#0
65movem.l R6-R7,-(sp)
66~n=R7
67*line 83
68move 8(R14),R7
69and #255,R7
70*line 84
71move _curtun,(sp)
72move.l #L5,-(sp)
73move.l #_dspbuf,-(sp)
74jsr _sprintf
75addq.l #8,sp
76*line 86
77clr (sp)
78jsr _vbank
79*line 87
80*line 88
81move #14,(sp)
82move.l #_dspbuf,-(sp)
83move R7,R0
84asl #4,R0
85ext.l R0
86move.l R0,R8
87move.l #_adbox,R9
88move 14(R8,R9.l),-(sp)
89move R7,R0
90asl #4,R0
91ext.l R0
92move.l R0,R8
93move.l #_adbox,R9
94move 12(R8,R9.l),-(sp)
95move R7,R0
96asl #4,R0
97ext.l R0
98move.l R0,R8
99move.l #_adbox,R9
100move 10(R8,R9.l),-(sp)
101move R7,R0
102asl #4,R0
103ext.l R0
104move.l R0,R8
105move.l #_adbox,R9
106move 8(R8,R9.l),-(sp)
107move #64,-(sp)
108move.l _asgob,-(sp)
109jsr _vcputsv
110adda.l #18,sp
111*line 90
112clr R0
113bra L4
114L4:tst.l (sp)+
115movem.l (sp)+,R7-R7
116unlk R14
117rts
118.globl _nd_atun
119.text
120_nd_atun:
121~~nd_atun:
122~k=R7
123~nn=8
124link R14,#0
125movem.l R5-R7,-(sp)
126~n=R6
127*line 106
128move 10(R14),R7
129*line 106
130move 8(R14),R6
131and #255,R6
132*line 107
133move R7,R0
134add #48,R0
135move.b R0,_ebuf
136*line 108
137clr.b 1+_ebuf
138*line 110
139move R7,R0
140add #48,R0
141move.b R0,_dspbuf
142*line 111
143clr.b 1+_dspbuf
144*line 113
145clr (sp)
146jsr _vbank
147*line 114
148*line 115
149move #14,(sp)
150move.l #_dspbuf,-(sp)
151move _stccol,-(sp)
152move _stcrow,-(sp)
153move R6,R0
154asl #4,R0
155ext.l R0
156move.l R0,R8
157move.l #_adbox,R9
158move 10(R8,R9.l),-(sp)
159move #12,-(sp)
160move #64,-(sp)
161move.l _asgob,-(sp)
162jsr _vcputsv
163adda.l #18,sp
164*line 117
165clr R0
166bra L6
167L6:tst.l (sp)+
168movem.l (sp)+,R6-R7
169unlk R14
170rts
171.data
172L2:.dc.b $25,$30,$31,$2E,$31,$64,$0
173L5:.dc.b $54,$75,$6E,$20,$25,$30,$31,$2E,$31,$64,$0
Note: See TracBrowser for help on using the repository browser.