home *** CD-ROM | disk | FTP | other *** search
/ Amiga Times / AmigaTimes.iso / internet / Term / Extras / Source / term-source.lha / Glue / Glue.asm < prev    next >
Encoding:
Assembly Source File  |  1996-10-20  |  4.5 KB  |  342 lines
  1. **
  2. **    Glue.asm
  3. **
  4. **    Stub code to invoke routines that don't accept assembly
  5. **    language parameters
  6. **
  7. **    Copyright © 1990-1996 by Olaf `Olsen' Barthel
  8. **        All Rights Reserved
  9. **
  10.  
  11.     section    text,code
  12.  
  13. *-----------------------------------------------------------------------------
  14.  
  15.     xdef    _CustomStuffTextGlue
  16.     xref    _CustomStuffText
  17.  
  18. _CustomStuffTextGlue:
  19.  
  20.     move.l    d0,-(sp)
  21.     move.l    a3,-(sp)
  22.     jsr    _CustomStuffText
  23.     addq.l    #8,sp
  24.     rts
  25.  
  26.     xdef    _CustomCountCharGlue
  27.     xref    _CustomCountChar
  28.  
  29. _CustomCountCharGlue:
  30.  
  31.     move.l    d0,-(sp)
  32.     move.l    a3,-(sp)
  33.     jsr    _CustomCountChar
  34.     addq.l    #8,sp
  35.     rts
  36.  
  37. *-----------------------------------------------------------------------------
  38.  
  39.     xdef    _StuffCharGlue
  40.     xref    _StuffChar
  41.  
  42. _StuffCharGlue:
  43.  
  44.     move.l    d0,-(sp)
  45.     move.l    a3,-(sp)
  46.     jsr    _StuffChar
  47.     addq.l    #8,sp
  48.     rts
  49.  
  50. *-----------------------------------------------------------------------------
  51.  
  52.     xdef    _CountCharGlue
  53.     xref    _CountChar
  54.  
  55. _CountCharGlue:
  56.  
  57.     move.l    a3,-(sp)
  58.     jsr    _CountChar
  59.     addq.l    #4,sp
  60.     rts
  61.  
  62. *-----------------------------------------------------------------------------
  63.  
  64.     xdef    _RendezvousLoginGlue
  65.     xref    _RendezvousLogin
  66.  
  67. _RendezvousLoginGlue:
  68.  
  69.     movem.l    a0/a1/a2,-(sp)
  70.     jsr    _RendezvousLogin
  71.     add.l    #12,sp
  72.     rts
  73.  
  74.     xdef    _RendezvousLogoffGlue
  75.     xref    _RendezvousLogoff
  76.  
  77. _RendezvousLogoffGlue:
  78.  
  79.     move.l    a0,-(sp)
  80.     jsr    _RendezvousLogoff
  81.     addq.l    #4,sp
  82.     rts
  83.  
  84.     xdef    _RendezvousNewNodeGlue
  85.     xref    _RendezvousNewNode
  86.  
  87. _RendezvousNewNodeGlue:
  88.  
  89.     move.l    a0,-(sp)
  90.     jsr    _RendezvousNewNode
  91.     addq.l    #4,sp
  92.     rts
  93.  
  94. *-----------------------------------------------------------------------------
  95.  
  96.     xdef    _xem_sread_glue
  97.     xref    _xem_sread
  98.  
  99. _xem_sread_glue:
  100.  
  101.     movem.l    d0/d1,-(sp)
  102.     move.l    a0,-(sp)
  103.     jsr    _xem_sread
  104.     add.l    #12,sp
  105.     rts
  106.  
  107.     xdef    _xem_toptions_glue
  108.     xref    _xem_toptions
  109.  
  110. _xem_toptions_glue:
  111.  
  112.     movem.l    d0/a0,-(sp)
  113.     jsr    _xem_toptions
  114.     addq.l    #8,sp
  115.     rts
  116.  
  117.     xdef    _xem_swrite_glue
  118.     xref    _xem_swrite
  119.  
  120. _xem_swrite_glue:
  121.  
  122.     move.l    d0,-(sp)
  123.     move.l    a0,-(sp)
  124.     jsr    _xem_swrite
  125.     addq.l    #8,sp
  126.     rts
  127.  
  128.     xdef    _xem_tgets_glue
  129.     xref    _xem_tgets
  130.  
  131. _xem_tgets_glue:
  132.  
  133.     move.l    d0,-(sp)
  134.     movem.l    a0/a1,-(sp)
  135.     jsr    _xem_tgets
  136.     add.l    #12,sp
  137.     rts
  138.  
  139.     xdef    _xem_tbeep_glue
  140.     xref    _xem_tbeep
  141.  
  142. _xem_tbeep_glue:
  143.  
  144.     movem.l    d0/d1,-(sp)
  145.     jsr    _xem_tbeep
  146.     addq.l    #8,sp
  147.     rts
  148.  
  149.     xdef    _xem_macrodispatch_glue
  150.     xref    _xem_macrodispatch
  151.  
  152. _xem_macrodispatch_glue:
  153.  
  154.     move.l    a0,-(sp)
  155.     jsr    _xem_macrodispatch
  156.     addq.l    #4,sp
  157.     rts
  158.  
  159. *-----------------------------------------------------------------------------
  160.  
  161.     xdef    _xpr_fopen_glue
  162.     xref    _xpr_fopen
  163.  
  164. _xpr_fopen_glue:
  165.  
  166.     movem.l    a0/a1,-(sp)
  167.     jsr    _xpr_fopen
  168.     addq.l    #8,sp
  169.     rts
  170.  
  171.     xdef    _xpr_fclose_glue
  172.     xref    _xpr_fclose
  173.  
  174. _xpr_fclose_glue:
  175.  
  176.     move.l    a0,-(sp)
  177.     jsr    _xpr_fclose
  178.     addq.l    #4,sp
  179.     rts
  180.  
  181.     xdef    _xpr_fread_glue
  182.     xref    _xpr_fread
  183.  
  184. _xpr_fread_glue:
  185.  
  186.     move.l    a1,-(sp)
  187.     movem.l    d0/d1,-(sp)
  188.     move.l    a0,-(sp)
  189.     jsr    _xpr_fread
  190.     add.l    #16,sp
  191.     rts
  192.  
  193.     xdef    _xpr_fwrite_glue
  194.     xref    _xpr_fwrite
  195.  
  196. _xpr_fwrite_glue:
  197.  
  198.     move.l    a1,-(sp)
  199.     movem.l    d0/d1,-(sp)
  200.     move.l    a0,-(sp)
  201.     jsr    _xpr_fwrite
  202.     add.l    #16,sp
  203.     rts
  204.  
  205.     xdef    _xpr_fseek_glue
  206.     xref    _xpr_fseek
  207.  
  208. _xpr_fseek_glue:
  209.  
  210.     movem.l    d0/d1,-(sp)
  211.     move.l    a0,-(sp)
  212.     jsr    _xpr_fseek
  213.     add.l    #12,sp
  214.     rts
  215.  
  216.     xdef    _xpr_sread_glue
  217.     xref    _xpr_sread
  218.  
  219. _xpr_sread_glue:
  220.  
  221.     movem.l    d0/d1,-(sp)
  222.     move.l    a0,-(sp)
  223.     jsr    _xpr_sread
  224.     add.l    #12,sp
  225.     rts
  226.  
  227.     xdef    _xpr_swrite_glue
  228.     xref    _xpr_swrite
  229.  
  230. _xpr_swrite_glue:
  231.  
  232.     move.l    d0,-(sp)
  233.     move.l    a0,-(sp)
  234.     jsr    _xpr_swrite
  235.     addq.l    #8,sp
  236.     rts
  237.  
  238.     xdef    _xpr_update_glue
  239.     xref    _xpr_update
  240.  
  241. _xpr_update_glue:
  242.  
  243.     move.l    a0,-(sp)
  244.     jsr    _xpr_update
  245.     addq.l    #4,sp
  246.     rts
  247.  
  248.     xdef    _xpr_gets_glue
  249.     xref    _xpr_gets
  250.  
  251. _xpr_gets_glue:
  252.  
  253.     movem.l    a0/a1,-(sp)
  254.     jsr    _xpr_gets
  255.     addq.l    #8,sp
  256.     rts
  257.  
  258.     xdef    _xpr_setserial_glue
  259.     xref    _xpr_setserial
  260.  
  261. _xpr_setserial_glue:
  262.  
  263.     move.l    d0,-(sp)
  264.     jsr    _xpr_setserial
  265.     addq.l    #4,sp
  266.     rts
  267.  
  268.     xdef    _xpr_ffirst_glue
  269.     xref    _xpr_ffirst
  270.  
  271. _xpr_ffirst_glue:
  272.  
  273.     movem.l    a0/a1,-(sp)
  274.     jsr    _xpr_ffirst
  275.     addq.l    #8,sp
  276.     rts
  277.  
  278.     xdef    _xpr_fnext_glue
  279.     xref    _xpr_fnext
  280.  
  281. _xpr_fnext_glue:
  282.  
  283.     movem.l    d0/a0/a1,-(sp)
  284.     jsr    _xpr_fnext
  285.     add.l    #12,sp
  286.     rts
  287.  
  288.     xdef    _xpr_finfo_glue
  289.     xref    _xpr_finfo
  290.  
  291. _xpr_finfo_glue:
  292.  
  293.     move.l    d0,-(sp)
  294.     move.l    a0,-(sp)
  295.     jsr    _xpr_finfo
  296.     addq.l    #8,sp
  297.     rts
  298.  
  299.     xdef    _xpr_options_glue
  300.     xref    _xpr_options
  301.  
  302. _xpr_options_glue:
  303.  
  304.     movem.l    d0/a0,-(sp)
  305.     jsr    _xpr_options
  306.     addq.l    #8,sp
  307.     rts
  308.  
  309.     xdef    _xpr_unlink_glue
  310.     xref    _xpr_unlink
  311.  
  312. _xpr_unlink_glue:
  313.  
  314.     move.l    a0,-(sp)
  315.     jsr    _xpr_unlink
  316.     addq.l    #4,sp
  317.     rts
  318.  
  319.     xdef    _xpr_getptr_glue
  320.     xref    _xpr_getptr
  321.  
  322. _xpr_getptr_glue:
  323.  
  324.     movem.l    d0,-(sp)
  325.     jsr    _xpr_getptr
  326.     addq.l    #4,sp
  327.     rts
  328.  
  329.     xdef    _xpr_stealopts_glue
  330.     xref    _xpr_stealopts
  331.  
  332. _xpr_stealopts_glue:
  333.  
  334.     movem.l    a0/a1,-(sp)
  335.     jsr    _xpr_stealopts
  336.     addq.l    #8,sp
  337.     rts
  338.  
  339. *-----------------------------------------------------------------------------
  340.  
  341.     end
  342.