source: buchla-68k/alcyon/etttab.s@ 526a993

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