source: buchla-68k/alcyon/sqread.s@ ca867c1

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

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 3.2 KB
Line 
1.globl _Cbuffs
2.globl _Stdbufs
3.globl _Stdbuf
4.globl _stmptr
5.globl _defptr
6.globl _patches
7.globl _defents
8.globl _seqtab
9.globl _seqflag
10.globl _seqline
11.globl _seqstim
12.globl _seqtime
13.globl _sregval
14.globl _trstate
15.globl _filecat
16.globl _errno
17.globl _sqioerr
18.text
19_sqioerr:
20~~sqioerr:
21link R14,#-44
22~erms=-40
23*line 30
24jsr _clrlsel
25*line 32
26move _errno,(sp)
27move.l #L2,-(sp)
28move.l R14,-(sp)
29add.l #-40,(sp)
30jsr _sprintf
31addq.l #8,sp
32*line 34
33*line 35
34move #9,(sp)
35move #14,-(sp)
36move.l R14,-(sp)
37add.l #-40,(sp)
38move.l #L4,-(sp)
39move.l #L3,-(sp)
40jsr _ldermsg
41adda.l #14,sp
42L1:unlk R14
43rts
44.globl _sqread
45.text
46_sqread:
47~~sqread:
48~fp=R13
49link R14,#-4
50movem.l R7-R7/R13-R13,-(sp)
51~cb=-2
52~seq=-4
53*line 54
54move.l 8(R14),R13
55*line 55
56move #9,(sp)
57move #12,-(sp)
58move.l #L7,-(sp)
59clr.l -(sp)
60move.l #L6,-(sp)
61jsr _ldwmsg
62adda.l #14,sp
63L10:
64*line 57
65*line 58
66*line 59
67*line 59
68move.l #$1,(sp)
69move.l R14,-(sp)
70sub.l #2,(sp)
71move.l R13,-(sp)
72jsr _rd_ec
73addq.l #8,sp
74tst R0
75beq L11
76*line 60
77*line 61
78jsr _sqioerr
79*line 62
80move #-1,R0
81bra L5
82*line 63
83*line 64
84L11:
85*line 65
86*line 66
87tst.b -2(R14)
88bne L12
89*line 66
90clr R0
91bra L5
92*line 67
93L12:
94*line 68
95*line 68
96move.l #$2,(sp)
97move.l R14,-(sp)
98sub.l #4,(sp)
99move.l R13,-(sp)
100jsr _rd_ec
101addq.l #8,sp
102tst R0
103beq L13
104*line 69
105*line 70
106jsr _sqioerr
107*line 71
108move #-1,R0
109bra L5
110*line 72
111*line 73
112L13:
113*line 74
114*line 74
115btst #3,-2(R14)
116beq L14
117*line 75
118*line 76
119*line 76
120move.l #$2,(sp)
121move -4(R14),R0
122muls #14,R0
123add.l #_seqtab,R0
124move.l R0,-(sp)
125move.l R13,-(sp)
126jsr _rd_ec
127addq.l #8,sp
128tst R0
129beq L15
130*line 77
131*line 78
132jsr _sqioerr
133*line 79
134move #-1,R0
135bra L5
136*line 80
137L15:
138*line 81
139*line 82
140*line 83
141L14:
142*line 84
143*line 84
144btst #2,-2(R14)
145beq L16
146*line 85
147*line 86
148*line 86
149move.l #$4,(sp)
150move -4(R14),R0
151muls #14,R0
152add.l #_seqtab,R0
153move.l R0,-(sp)
154add.l #2,(sp)
155move.l R13,-(sp)
156jsr _rd_ec
157addq.l #8,sp
158tst R0
159beq L17
160*line 87
161*line 88
162jsr _sqioerr
163*line 89
164move #-1,R0
165bra L5
166*line 90
167L17:
168*line 91
169*line 92
170L16:
171*line 93
172*line 93
173btst #1,-2(R14)
174beq L18
175*line 94
176*line 95
177*line 95
178move.l #$4,(sp)
179move -4(R14),R0
180muls #14,R0
181add.l #_seqtab,R0
182move.l R0,-(sp)
183add.l #6,(sp)
184move.l R13,-(sp)
185jsr _rd_ec
186addq.l #8,sp
187tst R0
188beq L19
189*line 96
190*line 97
191jsr _sqioerr
192*line 98
193move #-1,R0
194bra L5
195*line 99
196L19:
197*line 100
198*line 101
199L18:
200*line 102
201*line 102
202btst #0,-2(R14)
203beq L20
204*line 103
205*line 104
206*line 104
207move.l #$4,(sp)
208move -4(R14),R0
209muls #14,R0
210add.l #_seqtab,R0
211move.l R0,-(sp)
212add.l #10,(sp)
213move.l R13,-(sp)
214jsr _rd_ec
215addq.l #8,sp
216tst R0
217beq L21
218*line 105
219*line 106
220jsr _sqioerr
221*line 107
222move #-1,R0
223bra L5
224*line 108
225L21:
226*line 109
227L20:L9:bra L10
228L8:L5:tst.l (sp)+
229movem.l (sp)+,R13-R13
230unlk R14
231rts
232.data
233L2:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
234L3:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$72,$65,$61,$64,$0
235L4:.dc.b $20,$74,$68,$65,$20,$73,$65,$71,$75,$65,$6E,$63,$65,$20,$74,$61,$62,$6C,$65,$0
236L6:.dc.b $20,$42,$75,$73,$79,$20,$2D,$2D,$20,$70,$6C,$65,$61,$73,$65,$20,$73,$74,$61,$6E,$64,$20,$62,$79,$0
237L7:.dc.b $20,$20,$52,$65,$61,$64,$69,$6E,$67,$20,$73,$65,$71,$75,$65,$6E,$63,$65,$73,$0
Note: See TracBrowser for help on using the repository browser.