home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-2.LHA / CLISP960530-ki.lha / ffcall / vacall / vacall-alpha.s < prev    next >
Encoding:
Text File  |  1996-04-15  |  2.5 KB  |  196 lines
  1.     .set noreorder
  2.     .set volatile
  3.     .set noat
  4.     .file    1 "vacall-alpha.c"
  5. gcc2_compiled.:
  6. __gnu_compiled_c:
  7. .text
  8.     .align 3
  9.     .globl vacall
  10.     .ent vacall
  11. vacall:
  12.     ldgp $29,0($27)
  13. vacall..ng:
  14.     lda $30,-176($30)
  15.     .frame $30,176,$26,0
  16.     stq $26,0($30)
  17.     .mask 0x4000000,-176
  18.     .prologue 1
  19.     stq $16,128($30)
  20.     stq $17,136($30)
  21.     stq $18,144($30)
  22.     stq $19,152($30)
  23.     stq $20,160($30)
  24.     stq $21,168($30)
  25.     stt $f16,80($30)
  26.     stt $f17,88($30)
  27.     stt $f18,96($30)
  28.     stt $f19,104($30)
  29.     stt $f20,112($30)
  30.     stt $f21,120($30)
  31.     lda $3,vacall_function
  32.     stl $31,16($30)
  33.     addq $30,128,$2
  34.     stq $2,24($30)
  35.     ldq $27,0($3)
  36.     stq $31,32($30)
  37.     addq $30,16,$16
  38.     stl $31,40($30)
  39.     addq $30,176,$4
  40.     stq $4,72($30)
  41.     jsr $26,($27),0
  42.     ldgp $29,0($26)
  43.     ldl $2,40($30)
  44.     zapnot $2,15,$3
  45.     cmpule $3,13,$2
  46.     beq $2,$34
  47.     lda $2,$60
  48.     s4addq $3,$2,$2
  49.     ldl $2,0($2)
  50.     addq $2,$29,$3
  51.     jmp $31,($3),$47
  52. .rdata
  53.     .align 3
  54.     .align 2
  55. $60:
  56.     .gprel32 $34
  57.     .gprel32 $36
  58.     .gprel32 $37
  59.     .gprel32 $38
  60.     .gprel32 $39
  61.     .gprel32 $40
  62.     .gprel32 $41
  63.     .gprel32 $42
  64.     .gprel32 $47
  65.     .gprel32 $47
  66.     .gprel32 $45
  67.     .gprel32 $46
  68.     .gprel32 $47
  69.     .gprel32 $48
  70. .text
  71.     .align 4
  72. $36:
  73. $37:
  74.     ldl $2,56($30)
  75.     insbl $2,7,$2
  76.     sra $2,56,$0
  77.     br $31,$34
  78.     .align 4
  79. $38:
  80.     ldl $2,56($30)
  81.     extbl $2,0,$2
  82.     zapnot $2,1,$0
  83.     br $31,$34
  84.     .align 4
  85. $39:
  86.     ldl $2,56($30)
  87.     inswl $2,6,$2
  88.     sra $2,48,$0
  89.     br $31,$34
  90.     .align 4
  91. $40:
  92.     ldl $2,56($30)
  93.     extwl $2,0,$2
  94.     zapnot $2,3,$0
  95.     br $31,$34
  96.     .align 4
  97. $41:
  98.     ldl $0,56($30)
  99.     br $31,$34
  100.     .align 4
  101. $42:
  102.     ldl $2,56($30)
  103.     zapnot $2,15,$0
  104.     br $31,$34
  105.     .align 4
  106. $45:
  107.     lds $f0,56($30)
  108.     br $31,$34
  109.     .align 4
  110. $46:
  111.     ldt $f0,56($30)
  112.     br $31,$34
  113.     .align 4
  114. $47:
  115.     ldq $0,56($30)
  116.     br $31,$34
  117.     .align 4
  118. $48:
  119.     ldl $3,16($30)
  120.     blbc $3,$49
  121.     ldq $0,32($30)
  122.     br $31,$34
  123.     .align 4
  124. $49:
  125.     lda $2,256
  126.     and $3,$2,$2
  127.     addl $2,$31,$2
  128.     beq $2,$34
  129.     ldq $2,48($30)
  130.     subq $2,1,$3
  131.     cmpule $3,15,$2
  132.     beq $2,$34
  133.     lda $2,$59
  134.     s4addq $3,$2,$2
  135.     ldl $2,0($2)
  136.     addq $2,$29,$3
  137.     jmp $31,($3),$34
  138. .rdata
  139.     .align 3
  140.     .align 2
  141. $59:
  142.     .gprel32 $53
  143.     .gprel32 $54
  144.     .gprel32 $34
  145.     .gprel32 $55
  146.     .gprel32 $34
  147.     .gprel32 $34
  148.     .gprel32 $34
  149.     .gprel32 $56
  150.     .gprel32 $34
  151.     .gprel32 $34
  152.     .gprel32 $34
  153.     .gprel32 $34
  154.     .gprel32 $34
  155.     .gprel32 $34
  156.     .gprel32 $34
  157.     .gprel32 $57
  158. .text
  159.     .align 4
  160. $53:
  161.     ldq $3,32($30)
  162.     ldq_u $2,0($3)
  163.     extbl $2,$3,$2
  164.     zapnot $2,1,$0
  165.     br $31,$34
  166.     .align 4
  167. $54:
  168.     ldq $2,32($30)
  169.     bic $2,6,$3
  170.     ldq $3,0($3)
  171.     bic $2,1,$2
  172.     extwl $3,$2,$3
  173.     zapnot $3,3,$0
  174.     br $31,$34
  175.     .align 4
  176. $55:
  177.     ldq $2,32($30)
  178.     ldl $2,0($2)
  179.     zapnot $2,15,$0
  180.     br $31,$34
  181.     .align 4
  182. $56:
  183.     ldq $2,32($30)
  184.     ldq $0,0($2)
  185.     br $31,$34
  186.     .align 4
  187. $57:
  188.     ldq $2,32($30)
  189.     ldq $0,0($2)
  190.     ldq $1,8($2)
  191. $34:
  192.     ldq $26,0($30)
  193.     addq $30,176,$30
  194.     ret $31,($26),1
  195.     .end vacall
  196.