home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-2.LHA / CLISP960530-ki.lha / ffcall / vacall / vacall-m68k.s < prev    next >
Encoding:
Text File  |  1996-04-15  |  1.5 KB  |  130 lines
  1. #NO_APP
  2. gcc2_compiled.:
  3. ___gnu_compiled_c:
  4. .text
  5.     .even
  6. .globl _vacall
  7. _vacall:
  8.     link a6,#-32
  9.     moveml #0x3030,sp@-
  10.     clrl a6@(-32)
  11.     lea a6@(8),a3
  12.     movel a3,a6@(-28)
  13.     clrl a6@(-24)
  14.     clrl a6@(-20)
  15.     movel a1,a6@(-4)
  16.     pea a6@(-32)
  17.     movel _vacall_function,a2
  18.     jbsr a2@
  19.     addqw #4,sp
  20.     moveq #13,d3
  21.     cmpl a6@(-20),d3
  22.     jcs L2
  23.     movel a6@(-20),d2
  24. LI30:
  25.     movew pc@(L30-LI30-2:b,d2:l:2),d2
  26.     jmp pc@(2,d2:w)
  27. L30:
  28.     .word L2-L30
  29.     .word L4-L30
  30.     .word L5-L30
  31.     .word L6-L30
  32.     .word L7-L30
  33.     .word L8-L30
  34.     .word L12-L30
  35.     .word L12-L30
  36.     .word L11-L30
  37.     .word L12-L30
  38.     .word L13-L30
  39.     .word L16-L30
  40.     .word L17-L30
  41.     .word L18-L30
  42. L4:
  43. L5:
  44.     moveb a6@(-12),d0
  45.     extbl d0
  46.     jra L2
  47. L6:
  48.     clrl d0
  49.     moveb a6@(-12),d0
  50.     jra L2
  51. L7:
  52.     movew a6@(-12),d0
  53.     extl d0
  54.     jra L2
  55. L8:
  56.     clrl d0
  57.     movew a6@(-12),d0
  58.     jra L2
  59. L11:
  60. L12:
  61.     movel a6@(-12),d0
  62.     jra L2
  63. L13:
  64.     btst #4,a6@(-29)
  65.     jeq L14
  66.     fmoves a6@(-12),fp0
  67.     fmoved fp0,sp@-
  68.     movel sp@+,d0
  69.     movel sp@+,d1
  70.     jra L2
  71. L14:
  72.     movel a6@(-12),d0
  73.     jra L2
  74. L16:
  75.     movel a6@(-12),d0
  76.     movel a6@(-8),d1
  77.     jra L2
  78. L17:
  79.     movel a6@(-12),d0
  80.     movel d0,a0
  81.     jra L2
  82. L18:
  83.     btst #0,a6@(-29)
  84.     jeq L19
  85.     movel a6@(-24),d0
  86.     movel d0,a0
  87.     jra L2
  88. L19:
  89.     btst #0,a6@(-30)
  90.     jeq L2
  91.     movel a6@(-16),d2
  92.     moveq #2,d3
  93.     cmpl d2,d3
  94.     jeq L24
  95.     jcs L29
  96.     moveq #1,d3
  97.     cmpl d2,d3
  98.     jeq L23
  99.     jra L2
  100. L29:
  101.     moveq #4,d3
  102.     cmpl d2,d3
  103.     jeq L25
  104.     moveq #8,d3
  105.     cmpl d2,d3
  106.     jeq L26
  107.     jra L2
  108. L23:
  109.     movel a6@(-24),a2
  110.     clrl d0
  111.     moveb a2@,d0
  112.     jra L2
  113. L24:
  114.     movel a6@(-24),a2
  115.     clrl d0
  116.     movew a2@,d0
  117.     jra L2
  118. L25:
  119.     movel a6@(-24),a2
  120.     movel a2@,d0
  121.     jra L2
  122. L26:
  123.     movel a6@(-24),a2
  124.     movel a2@,d0
  125.     movel a2@(4),d1
  126. L2:
  127.     moveml a6@(-48),#0xc0c
  128.     unlk a6
  129.     rts
  130.