Add tests, fixes for tests, reinstate and type-convert stuff marked "bitrot"
[ccom.git] / test / usr.sbin / ctm024344send.s
1 .data
2 _s:
3 177777
4 .globl  _nsport
5 .data
6 _nsport:
7 65
8 .globl  _SendRequest
9 .text
10 _SendRequest:
11 ~~SendRequest:
12 jsr     r5,csv
13 ~nsAddrPtr=4
14 ~buf=6
15 ~buflen=10
16 ~answer=12
17 ~anslen=14
18 ~trueLenPtr=16
19 jbr     L1
20 L2:~n=r4
21 ~try=177766
22 ~v_circuit=177764
23 ~resplen=177762
24 ~ns=177760
25 clr     -22(r5)
26 ~gotsomewhere=177756
27 clr     -24(r5)
28 ~connected=177754
29 clr     -26(r5)
30 ~connreset=177752
31 ~id=177750
32 ~len=177746
33 ~cp=177744
34 ~dsmask=177740
35 ~timeout=177730
36 mov     6(r5),-52(r5)
37 ~hp=177726
38 mov     12(r5),-54(r5)
39 ~anhp=177724
40 ~iov=177714
41 mov     $74,-66(r5)
42 ~terrno=177712
43 ~junk=176712
44 ~sin=176672
45 bit     4+__res,$100000
46 jne     L10000
47 bit     6+__res,$0
48 jeq     L4
49 L10000:mov      10(r5),(sp)
50 mov     $L5,-(sp)
51 jsr     pc,*$_printf
52 tst     (sp)+
53 mov     $1,(sp)
54 mov     6(r5),-(sp)
55 add     10(r5),(sp)
56 mov     6(r5),-(sp)
57 jsr     pc,*$_Print_query
58 cmp     (sp)+,(sp)+
59 L4:mov  $2,-1106(r5)
60 mov     _nsport,(sp)
61 jsr     pc,*$_htons
62 mov     r0,-1104(r5)
63 mov     4(r5),r0
64 mov     (r0),-1102(r5)
65 mov     +2(r0),-1100(r5)
66 bit     $10,6+__res
67 jne     L10001
68 cmp     $1000,10(r5)
69 jlt     L10001
70 clr     r0
71 jbr     L10002
72 L10001:mov      $1,r0
73 L10002:mov      r0,-14(r5)
74 mov     *-52(r5),-30(r5)
75 clr     -12(r5)
76 jbr     L8
77 L9:jbr  L10
78 L6:inc  -12(r5)
79 L8:cmp  2+__res,-12(r5)
80 jgt     L9
81 jbr     L7
82 L10:L11:tst     -14(r5)
83 jeq     L12
84 clr     -1110(r5)
85 ~truncated=176670
86 mov     2+__res,-12(r5)
87 tst     _s
88 jpl     L13
89 clr     (sp)
90 mov     $1,-(sp)
91 mov     $2,-(sp)
92 jsr     pc,*$_socket
93 cmp     (sp)+,(sp)+
94 mov     r0,_s
95 tst     _s
96 jpl     L14
97 mov     _errno,-66(r5)
98 bit     $2,6+__res
99 jeq     L15
100 mov     $L16,(sp)
101 jsr     pc,*$_perror
102 L15:jbr L6
103 L14:mov $20,(sp)
104 mov     r5,-(sp)
105 add     $-1106,(sp)
106 mov     _s,-(sp)
107 jsr     pc,*$_connect
108 cmp     (sp)+,(sp)+
109 tst     r0
110 jpl     L17
111 mov     _errno,-66(r5)
112 bit     $2,6+__res
113 jeq     L18
114 mov     $L19,(sp)
115 jsr     pc,*$_perror
116 L18:mov _s,(sp)
117 jsr     pc,*$_close
118 mov     $-1,_s
119 jbr     L6
120 L17:L13:mov     10(r5),(sp)
121 jsr     pc,*$_htons
122 mov     r0,-32(r5)
123 mov     r5,r0
124 add     $-32,r0
125 mov     r0,-64(r5)
126 mov     $2,-62(r5)
127 mov     6(r5),-60(r5)
128 mov     10(r5),-56(r5)
129 mov     $2,(sp)
130 mov     r5,-(sp)
131 add     $-64,(sp)
132 mov     _s,-(sp)
133 jsr     pc,*$_writev
134 cmp     (sp)+,(sp)+
135 mov     10(r5),r1
136 add     $2,r1
137 cmp     r1,r0
138 jeq     L20
139 mov     _errno,-66(r5)
140 bit     $2,6+__res
141 jeq     L21
142 mov     $L22,(sp)
143 jsr     pc,*$_perror
144 L21:mov _s,(sp)
145 jsr     pc,*$_close
146 mov     $-1,_s
147 jbr     L6
148 L20:mov 12(r5),-34(r5)
149 mov     $2,-32(r5)
150 L23:tst -32(r5)
151 jeq     L24
152 mov     -32(r5),(sp)
153 mov     -34(r5),-(sp)
154 mov     _s,-(sp)
155 jsr     pc,*$_read
156 cmp     (sp)+,(sp)+
157 mov     r0,r4
158 jmi     L24
159 jeq     L24
160 add     r4,-34(r5)
161 sub     r4,-32(r5)
162 jbr     L23
163 L24:tst r4
164 jmi     L10003
165 jne     L25
166 L10003:mov      _errno,-66(r5)
167 bit     $2,6+__res
168 jeq     L26
169 mov     $L27,(sp)
170 jsr     pc,*$_perror
171 L26:mov _s,(sp)
172 jsr     pc,*$_close
173 mov     $-1,_s
174 cmp     $66,-66(r5)
175 jne     L28
176 tst     -26(r5)
177 jne     L28
178 mov     $1,-26(r5)
179 dec     -20(r5)
180 L28:jbr L6
181 L25:mov 12(r5),-34(r5)
182 mov     *-34(r5),(sp)
183 jsr     pc,*$_ntohs
184 mov     r0,-16(r5)
185 cmp     14(r5),r0
186 jhis    L29
187 bit     $2,6+__res
188 jeq     L30
189 mov     $L31,(sp)
190 mov     $30+__iob,-(sp)
191 jsr     pc,*$_fprintf
192 tst     (sp)+
193 L30:mov 14(r5),-32(r5)
194 mov     $1,-1110(r5)
195 jbr     L32
196 L29:mov -16(r5),-32(r5)
197 L32:L33:tst     -32(r5)
198 jeq     L34
199 mov     -32(r5),(sp)
200 mov     -34(r5),-(sp)
201 mov     _s,-(sp)
202 jsr     pc,*$_read
203 cmp     (sp)+,(sp)+
204 mov     r0,r4
205 jmi     L34
206 jeq     L34
207 add     r4,-34(r5)
208 sub     r4,-32(r5)
209 jbr     L33
210 L34:tst r4
211 jmi     L10004
212 jne     L35
213 L10004:mov      _errno,-66(r5)
214 bit     $2,6+__res
215 jeq     L36
216 mov     $L37,(sp)
217 jsr     pc,*$_perror
218 L36:mov _s,(sp)
219 jsr     pc,*$_close
220 mov     $-1,_s
221 jbr     L6
222 L35:tst -1110(r5)
223 jeq     L38
224 mov     -54(r5),r0
225 bis     $2,2(r0)
226 mov     -16(r5),r0
227 sub     14(r5),r0
228 mov     r0,-32(r5)
229 L39:tst -32(r5)
230 jeq     L40
231 cmp     $1000,-32(r5)
232 jhis    L10005
233 mov     $1000,r0
234 jbr     L10006
235 L10005:mov      -32(r5),r0
236 L10006:mov      r0,r4
237 mov     r4,(sp)
238 mov     r5,-(sp)
239 add     $-1066,(sp)
240 mov     _s,-(sp)
241 jsr     pc,*$_read
242 cmp     (sp)+,(sp)+
243 mov     r0,r4
244 jmi     L41
245 jeq     L41
246 sub     r4,-32(r5)
247 jbr     L42
248 L41:jbr L40
249 L42:jbr L39
250 L40:L38:jbr     L43
251 L12:tst _s
252 jpl     L44
253 clr     (sp)
254 mov     $2,-(sp)
255 mov     $2,-(sp)
256 jsr     pc,*$_socket
257 cmp     (sp)+,(sp)+
258 mov     r0,_s
259 tst     _s
260 jpl     L45
261 mov     _errno,-66(r5)
262 bit     $2,6+__res
263 jeq     L46
264 mov     $L47,(sp)
265 jsr     pc,*$_perror
266 L46:jbr L6
267 L45:L44:tst     -24(r5)
268 jne     L48
269 mov     $20,(sp)
270 mov     r5,-(sp)
271 add     $-1106,(sp)
272 mov     _s,-(sp)
273 jsr     pc,*$_connect
274 cmp     (sp)+,(sp)+
275 tst     r0
276 jpl     L49
277 bit     $2,6+__res
278 jeq     L50
279 mov     $L51,(sp)
280 jsr     pc,*$_perror
281 L50:jbr L6
282 L49:mov $1,-24(r5)
283 L48:clr (sp)
284 mov     10(r5),-(sp)
285 mov     6(r5),-(sp)
286 mov     _s,-(sp)
287 jsr     pc,*$_send
288 add     $6,sp
289 cmp     10(r5),r0
290 jeq     L52
291 bit     $2,6+__res
292 jeq     L53
293 mov     $L54,(sp)
294 jsr     pc,*$_perror
295 L53:jbr L6
296 L52:mov __res,r0
297 ash     -12(r5),r0
298 mov     r0,-46(r5)
299 sxt     -50(r5)
300 tst     -50(r5)
301 jgt     L55
302 jlt     L10007
303 tst     -46(r5)
304 jne     L55
305 L10007:mov      $1,-46(r5)
306 sxt     -50(r5)
307 L55:clr -44(r5)
308 clr     -42(r5)
309 L56:mov $4,(sp)
310 mov     r5,-(sp)
311 add     $-40,(sp)
312 jsr     pc,*$_bzero
313 tst     (sp)+
314 mov     _s,r1
315 clr     r0
316 div     $40,r0
317 mov     r1,-(sp)
318 mov     $1,r1
319 sxt     r0
320 ashc    (sp)+,r0
321 mov     r1,-(sp)
322 mov     r0,-(sp)
323 mov     _s,r1
324 clr     r0
325 div     $40,r0
326 ash     $2,r0
327 add     r5,r0
328 bis     (sp)+,-40(r0)
329 bis     (sp)+,-40+2(r0)
330 mov     r5,(sp)
331 add     $-50,(sp)
332 clr     -(sp)
333 clr     -(sp)
334 mov     r5,-(sp)
335 add     $-40,(sp)
336 mov     _s,-(sp)
337 inc     (sp)
338 jsr     pc,*$_select
339 add     $10,sp
340 mov     r0,r4
341 tst     r4
342 jpl     L57
343 bit     $2,6+__res
344 jeq     L58
345 mov     $L59,(sp)
346 jsr     pc,*$_perror
347 L58:jbr L6
348 L57:tst r4
349 jne     L60
350 bit     $2,6+__res
351 jeq     L61
352 mov     -46(r5),-(sp)
353 mov     -50(r5),-(sp)
354 mov     $L62,-(sp)
355 jsr     pc,_printf
356 add     $6,sp
357 L61:mov $1,-22(r5)
358 jbr     L6
359 L60:clr (sp)
360 mov     14(r5),-(sp)
361 mov     12(r5),-(sp)
362 mov     _s,-(sp)
363 jsr     pc,*$_recv
364 add     $6,sp
365 mov     r0,-16(r5)
366 jmi     L10008
367 jne     L63
368 L10008:bit      $2,6+__res
369 jeq     L64
370 mov     $L65,(sp)
371 jsr     pc,*$_perror
372 L64:jbr L6
373 L63:mov $1,-22(r5)
374 cmp     -30(r5),*-54(r5)
375 jeq     L66
376 bit     4+__res,$100000
377 jne     L10009
378 bit     6+__res,$0
379 jeq     L67
380 L10009:mov      $L68,(sp)
381 jsr     pc,*$_printf
382 mov     $1,(sp)
383 mov     12(r5),-(sp)
384 add     -16(r5),(sp)
385 mov     12(r5),-(sp)
386 jsr     pc,*$_Print_query
387 cmp     (sp)+,(sp)+
388 L67:jbr L56
389 L66:bit $40,6+__res
390 jne     L69
391 mov     -54(r5),r1
392 mov     2(r1),r1
393 clr     r0
394 ashc    $-1,r0
395 bit     $1,r1
396 jeq     L69
397 bit     $2,6+__res
398 jeq     L70
399 mov     $L71,(sp)
400 jsr     pc,*$_printf
401 L70:mov _s,(sp)
402 jsr     pc,*$_close
403 mov     $-1,_s
404 mov     $1,-14(r5)
405 jbr     L11
406 L69:L43:bit     $2,6+__res
407 jeq     L72
408 bit     4+__res,$100000
409 jne     L10010
410 bit     6+__res,$0
411 jeq     L73
412 L10010:mov      -16(r5),(sp)
413 mov     $L74,-(sp)
414 jsr     pc,*$_printf
415 tst     (sp)+
416 jbr     L75
417 L73:mov $L76,(sp)
418 jsr     pc,*$_printf
419 L75:mov $1,(sp)
420 mov     12(r5),-(sp)
421 add     -16(r5),(sp)
422 mov     12(r5),-(sp)
423 jsr     pc,*$_Print_query
424 cmp     (sp)+,(sp)+
425 L72:mov _s,(sp)
426 jsr     pc,*$_close
427 mov     $-1,_s
428 mov     -16(r5),*16(r5)
429 clr     r0
430 jbr     L3
431 jbr     L6
432 L7:tst  _s
433 jmi     L77
434 mov     _s,(sp)
435 jsr     pc,*$_close
436 mov     $-1,_s
437 L77:tst -14(r5)
438 jne     L78
439 tst     -22(r5)
440 jne     L79
441 mov     $-5,r0
442 jbr     L3
443 L79:mov $-1,r0
444 jbr     L3
445 jbr     L80
446 L78:cmp $75,_errno
447 jne     L81
448 mov     $-5,r0
449 jbr     L3
450 L81:mov $-3,r0
451 jbr     L3
452 L80:L3:jmp      cret
453 L1:sub  $1100,sp
454 jbr     L2
455 .globl  _SendRequest_close
456 .text
457 _SendRequest_close:
458 ~~SendRequest_close:
459 jsr     r5,csv
460 jbr     L82
461 L83:cmp $-1,_s
462 jeq     L85
463 mov     _s,(sp)
464 jsr     pc,*$_close
465 mov     $-1,_s
466 L85:L84:jmp     cret
467 L82:jbr L83
468 .globl
469 .data
470 L5:.byte 55,55,55,55,55,55,55,55,55,55,55,55,12,123
471 .byte 145,156,144,122,145,161,165,145,163,164,50,51,54,40,154
472 .byte 145,156,40,45,144,12,0
473 L16:.byte 163,157,143,153,145,164,40,50,166,143,51,40,146,141
474 .byte 151,154,145,144,0
475 L19:.byte 143,157,156,156,145,143,164,40,146,141,151,154,145,144,0
476 L22:.byte 167,162,151,164,145,40,146,141,151,154,145,144,0
477 L27:.byte 162,145,141,144,40,146,141,151,154,145,144,0
478 L31:.byte 162,145,163,160,157,156,163,145,40,164,162,165,156,143
479 .byte 141,164,145,144,12,0
480 L37:.byte 162,145,141,144,40,146,141,151,154,145,144,0
481 L47:.byte 163,157,143,153,145,164,40,50,144,147,51,40,146,141
482 .byte 151,154,145,144,0
483 L51:.byte 143,157,156,156,145,143,164,0
484 L54:.byte 163,145,156,144,0
485 L59:.byte 163,145,154,145,143,164,0
486 L62:.byte 164,151,155,145,157,165,164,40,50,45,144,40,163,145
487 .byte 143,163,51,12,0
488 L65:.byte 162,145,143,166,146,162,157,155,0
489 L68:.byte 55,55,55,55,55,55,55,55,55,55,55,55,12,117
490 .byte 154,144,40,141,156,163,167,145,162,72,12,0
491 L71:.byte 164,162,165,156,143,141,164,145,144,40,141,156,163,167
492 .byte 145,162,12,0
493 L74:.byte 55,55,55,55,55,55,55,55,55,55,55,55,12,107
494 .byte 157,164,40,141,156,163,167,145,162,40,50,45,144,40,142
495 .byte 171,164,145,163,51,72,12,0
496 L76:.byte 55,55,55,55,55,55,55,55,55,55,55,55,12,107
497 .byte 157,164,40,141,156,163,167,145,162,72,12,0